bouton option dans une boite de dialogue

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" <andrea.parker@laposte.net> a écrit dans le message de news:
emuMMtLaIHA.1960@TK2MSFTNGP02.phx.gbl...

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

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

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" <andrea.parker@laposte.net> a écrit dans le message de news:
OEmQWSNaIHA.5088@TK2MSFTNGP06.phx.gbl...

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

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