OVH Cloud OVH Cloud

Bouton d'option

4 réponses
Avatar
Bruno ALEMANNO
Bonsoir le groupe,

J'ai un userform avec 6 boutons d'option
ils ont respectivement la valeur de 1 à 6
Comment lorsque l'option à été cliquée
sa valeur donc 1 à 6 soit dans la colonne C2 de ma feuille

--
Merci au groupe pour vos réponses
Amicalement
Bruno

4 réponses

Avatar
MichDenis
Voir ton autre message !


"Bruno ALEMANNO" a écrit dans le message de news: %
Bonsoir le groupe,

J'ai un userform avec 6 boutons d'option
ils ont respectivement la valeur de 1 à 6
Comment lorsque l'option à été cliquée
sa valeur donc 1 à 6 soit dans la colonne C2 de ma feuille

--
Merci au groupe pour vos réponses
Amicalement
Bruno
Avatar
Bruno ALEMANNO
Bonjour le groupe et Michel,

Ok j'ai fait ce que tu m'as dit mais je planche pour l'adapter,
en fait ce que je souhaiterais
c'est lorsque que je valide un bouton il fasse la mêmechose
c'est à dire que si j'ai coché l'option 2, le chiffre deux
viendra se placer automatiquement en C2
ensuite si j'ai chois 5, le chiffre 5 viendra se placer automatiquement en
C3
et ainsi de suite.
Merci de m'aider

J'ai un userform avec 6 boutons d'option
ils ont respectivement la valeur de 1 à 6
Comment lorsque l'option à été cliquée
sa valeur donc 1 à 6 soit dans la colonne C2 de ma feuille
Avatar
ghirardelli
Bruno ALEMANNO wrote:
Bonsoir le groupe,

J'ai un userform avec 6 boutons d'option
ils ont respectivement la valeur de 1 à 6
Comment lorsque l'option à été cliquée
sa valeur donc 1 à 6 soit dans la colonne C2 de ma feuille

Dans l'évenement Click du ou des boutons,

faire la copie de la valeur souhaitée dans l'emplacement souhaité.

Private Sub OptionButton1_Click()
copie ....
End Sub

L.G.

Avatar
MichDenis
Bonjour Bruno,

Tu veux dire que ce complément n'a rien à voir avec l'utilisation de ton combobox que tu as soumis sous la même feuille
?

Dans ce cas, utilise quelque chose comme :

'-----------------------------------
Private Sub CommandButton1_Click()

Dim B As Object
For Each B In Me.Controls
If TypeName(B) = "OptionButton" Then
Select Case B.Value
Case True
With Worksheets("Liste")
.Range("C" & .Range("C65536"). _
End(xlUp)(2).Row) = Val(Right(B.Name, 1))
End With
End Select
End If
Next
End Sub
'-----------------------------------


Salutations!



"Bruno ALEMANNO" a écrit dans le message de news:
Bonjour le groupe et Michel,

Ok j'ai fait ce que tu m'as dit mais je planche pour l'adapter,
en fait ce que je souhaiterais
c'est lorsque que je valide un bouton il fasse la mêmechose
c'est à dire que si j'ai coché l'option 2, le chiffre deux
viendra se placer automatiquement en C2
ensuite si j'ai chois 5, le chiffre 5 viendra se placer automatiquement en
C3
et ainsi de suite.
Merci de m'aider

J'ai un userform avec 6 boutons d'option
ils ont respectivement la valeur de 1 à 6
Comment lorsque l'option à été cliquée
sa valeur donc 1 à 6 soit dans la colonne C2 de ma feuille