J'ai une userform avec 6 boutons d'option et un bouton de commande (OK).
Quand je clique sur OK, je souhaiterai que la valeur "Caption" du bouton
d'option cochée se copie dans le presse-papier et que si aucun n'est cochée,
il ne se passe rien.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anonymousA
Bonjour,
Private Sub CommandButton1_Click()
Dim MyData As DataObject
Set MyData = New DataObject For Each ctrl In Me.Controls If TypeName(ctrl) = "OptionButton" Then If ctrl.Value = True Then MyData.SetText Me.OptionButton1.Caption End If Next
MsgBox MyData.GetText
End Sub
A+
Bonjour,
Private Sub CommandButton1_Click()
Dim MyData As DataObject
Set MyData = New DataObject
For Each ctrl In Me.Controls
If TypeName(ctrl) = "OptionButton" Then
If ctrl.Value = True Then MyData.SetText
Me.OptionButton1.Caption
End If
Next
Set MyData = New DataObject For Each ctrl In Me.Controls If TypeName(ctrl) = "OptionButton" Then If ctrl.Value = True Then MyData.SetText Me.OptionButton1.Caption End If Next
MsgBox MyData.GetText
End Sub
A+
Tucky
Bonsoir,
Merci de la réponse, mais est-ce que cela va tester mes 6 boutons et ne choisir que la valeur Caption de celui coché ?
A+
Bonjour,
Private Sub CommandButton1_Click()
Dim MyData As DataObject
Set MyData = New DataObject For Each ctrl In Me.Controls If TypeName(ctrl) = "OptionButton" Then If ctrl.Value = True Then MyData.SetText Me.OptionButton1.Caption End If Next
MsgBox MyData.GetText
End Sub
A+
Bonsoir,
Merci de la réponse, mais est-ce que cela va tester mes 6 boutons et ne
choisir que la valeur Caption de celui coché ?
A+
Bonjour,
Private Sub CommandButton1_Click()
Dim MyData As DataObject
Set MyData = New DataObject
For Each ctrl In Me.Controls
If TypeName(ctrl) = "OptionButton" Then
If ctrl.Value = True Then MyData.SetText
Me.OptionButton1.Caption
End If
Next
Merci de la réponse, mais est-ce que cela va tester mes 6 boutons et ne choisir que la valeur Caption de celui coché ?
A+
Bonjour,
Private Sub CommandButton1_Click()
Dim MyData As DataObject
Set MyData = New DataObject For Each ctrl In Me.Controls If TypeName(ctrl) = "OptionButton" Then If ctrl.Value = True Then MyData.SetText Me.OptionButton1.Caption End If Next
MsgBox MyData.GetText
End Sub
A+
anonymousA
Effectivement erreur de copier -coller. Il faut lire If ctrl.Value = True Then MyData.SetText Ctrl.Caption
au lieu de
If ctrl.Value = True Then MyData.SetText Me.OptionButton1.Caption
A+
Effectivement erreur de copier -coller.
Il faut lire
If ctrl.Value = True Then MyData.SetText Ctrl.Caption
au lieu de
If ctrl.Value = True Then MyData.SetText Me.OptionButton1.Caption
