Tonin39
Messages postés75Date d'inscriptionmercredi 6 avril 2005StatutMembreDernière intervention 2 avril 2006
-
12 avril 2005 à 10:15
nostra78
Messages postés137Date d'inscriptionjeudi 10 mars 2005StatutMembreDernière intervention 6 décembre 2005
-
12 avril 2005 à 11:34
jai un userform avec un bouton OK, 4 optionbutton nommés A,B,C,T et un textbox
jaimerais savoir comment écrire une procedure ki qd jappuie sur OK ds la cellule Ai de la feuille DnTw ecri
si A cocher alors ds A1 Fiche n° A&textbox.value
si B cocher alors ds A1 Fiche n° B&textbox.value
si C cocher alors ds A1 Fiche n° C&textbox.value
si T cocher alors ds A1 Fiche n° T&textbox.value
nostra78
Messages postés137Date d'inscriptionjeudi 10 mars 2005StatutMembreDernière intervention 6 décembre 2005 12 avril 2005 à 11:34
Option Explicit
Dim ctrl As Control
Private Sub Ok_Click()
For Each ctrl In Me.Controls
If TypeName(ctrl) = "OptionButton" Then
If ctrl.Value = True Then
ThisWorkbook.Sheets("Feuil1").Range("A1").Value = "Fiche n° " & ctrl.Caption & " " & Camarche.Value
End If
End If
Next
End Sub
Je sais pas si c ce que tu voulais
Rq les noms des controles = Caption des Controles