bouton option dans une boite de dialogue

Le
andrea
Bonjour

je sais gérer 2 boutons option
comme ceci

If Me.logiciel Then
Range("F2") = "Excel"
Else
Range("F2") = "Word"

End If



mais si j'ai 5 boutons option
comment choisir la bonne réponse ?

merci d'avance
si quelqu'un à un exemple
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #5281791
Bonjour,
Sans plus d'explications, je dirais.....
comme ceci peut-être:

code des boutons
'---------------
Private Sub OptionButton1_Click()
nom = "Excel"
Call jj(nom)
End Sub
'--
Private Sub OptionButton2_Click()
nom = "Word"
Call jj(nom)
End Sub
'--
Private Sub OptionButton3_Click()
nom = "inconnu"
Call jj(nom)
End Sub
'--
Private Sub OptionButton4_Click()
nom = "A definir"
Call jj(nom)
End Sub
--
'Code dans un module
Sub jj(nom)
[F2] = nom
MsgBox nom
End Sub
'---------------------------------
exemple simple ici
http://cjoint.com/?cgoYFIJk73


Salutations
JJ


"andrea"
Bonjour

je sais gérer 2 boutons option
comme ceci

If Me.logiciel Then
Range("F2") = "Excel"
Else
Range("F2") = "Word"

End If



mais si j'ai 5 boutons option
comment choisir la bonne réponse ?

merci d'avance
si quelqu'un à un exemple


andrea
Le #5281681
en fait ces boutons option sont dans un userform

avec une multitude d'autres
chaque série est dans une frame
et le résultat s'incrit dans une cellule

comment insérer ce code dans le code de l'userform





Bonjour,
Sans plus d'explications, je dirais.....
comme ceci peut-être:

code des boutons
'---------------
Private Sub OptionButton1_Click()
nom = "Excel"
Call jj(nom)
End Sub
'--
Private Sub OptionButton2_Click()
nom = "Word"
Call jj(nom)
End Sub
'--
Private Sub OptionButton3_Click()
nom = "inconnu"
Call jj(nom)
End Sub
'--
Private Sub OptionButton4_Click()
nom = "A definir"
Call jj(nom)
End Sub


Jacky
Le #5281501
Re...
Le principe reste le même.
Alt+F11
Selection de l'userform

Clique droit sur " l'OptionButton" , puis selection de Code et coller le
code précédemment joint.
S'il n'y a pas d'autres intructions que l'inscription dans une cellule ceci
est suffisant.
'---------
Private Sub OptionButton1_Click()
[F2] = "Excel"
End Sub
'--
Private Sub OptionButton2_Click()
[F2] = "Word"
End Sub
'--
Private Sub OptionButton3_Click()
[F2] = "Inconnu"
End Sub
'--
Private Sub OptionButton4_Click()
[F2] = "A définir"
End Sub
'------------------
http://cjoint.com/?cgrJPfPvRD

--
Salutations
JJ


"andrea"
en fait ces boutons option sont dans un userform

avec une multitude d'autres
chaque série est dans une frame
et le résultat s'incrit dans une cellule

comment insérer ce code dans le code de l'userform





Bonjour,
Sans plus d'explications, je dirais.....
comme ceci peut-être:

code des boutons
'---------------
Private Sub OptionButton1_Click()
nom = "Excel"
Call jj(nom)
End Sub
'--
Private Sub OptionButton2_Click()
nom = "Word"
Call jj(nom)
End Sub
'--
Private Sub OptionButton3_Click()
nom = "inconnu"
Call jj(nom)
End Sub
'--
Private Sub OptionButton4_Click()
nom = "A definir"
Call jj(nom)
End Sub




andrea
Le #5281451
Merci je vais tester ta methode
mais pour l'instant j'ai utilisé ceci :
récupéré sur internet
le principal c'est que ca fonctionne


If Me.AAA.Value = -1 Then
Range("F2") = "WORD"
ElseIf Me.BBB.Value = -1 Then
Range("F2") = "EXCEL"
ElseIf Me.CCC.Value = -1 Then
Range("F2") = "ACCESS"
ElseIf Me.DDD.Value = -1 Then
Range("F2") = "POWERPOINT"
ElseIf Me.EEE.Value = -1 Then
Range("F2") = "PUBLISHER"
End If




Re...
Le principe reste le même.
Alt+F11
Selection de l'userform

Clique droit sur " l'OptionButton" , puis selection de Code et coller le
code précédemment joint.
S'il n'y a pas d'autres intructions que l'inscription dans une cellule ceci
est suffisant.
'---------
Private Sub OptionButton1_Click()
[F2] = "Excel"
End Sub
'--
Private Sub OptionButton2_Click()
[F2] = "Word"
End Sub
'--
Private Sub OptionButton3_Click()
[F2] = "Inconnu"
End Sub
'--
Private Sub OptionButton4_Click()
[F2] = "A définir"
End Sub
'------------------
http://cjoint.com/?cgrJPfPvRD



Publicité
Poster une réponse
Anonyme