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
Jacky
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" a écrit dans le message de news:
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
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 ?
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" a écrit dans le message de news:
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
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
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
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
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" a écrit dans le message de news:
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
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" a écrit dans le message de news:
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
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
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
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