Bonjour tout le monde,
voici mon souci, dans un userform, j'ai une frame comprenant cinq
optionsbuttons, nommés act1 à act5.
je ne sais pas comment écrire dans le code du bouton de validation (OK)
quelle action effectuée en fonction du choix de l'utilisateur.
Merci pour vos précieuses indications.
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
isabelle
bonjour,
Private Sub CommandButton1_Click() For Each op In UserForm1.Frame1.Controls If op Then Select Case op.Caption Case "OptionButton1": MsgBox "OptionButton1" Case "OptionButton2": MsgBox "OptionButton2" Case "OptionButton3": MsgBox "OptionButton3" Case "OptionButton4": MsgBox "OptionButton4" Case "OptionButton5": MsgBox "OptionButton5" End Select End If Next End Sub
isabelle
Bonjour tout le monde, voici mon souci, dans un userform, j'ai une frame comprenant cinq optionsbuttons, nommés act1 à act5. je ne sais pas comment écrire dans le code du bouton de validation (OK) quelle action effectuée en fonction du choix de l'utilisateur. Merci pour vos précieuses indications.
bonjour,
Private Sub CommandButton1_Click()
For Each op In UserForm1.Frame1.Controls
If op Then
Select Case op.Caption
Case "OptionButton1": MsgBox "OptionButton1"
Case "OptionButton2": MsgBox "OptionButton2"
Case "OptionButton3": MsgBox "OptionButton3"
Case "OptionButton4": MsgBox "OptionButton4"
Case "OptionButton5": MsgBox "OptionButton5"
End Select
End If
Next
End Sub
isabelle
Bonjour tout le monde,
voici mon souci, dans un userform, j'ai une frame comprenant cinq
optionsbuttons, nommés act1 à act5.
je ne sais pas comment écrire dans le code du bouton de validation (OK)
quelle action effectuée en fonction du choix de l'utilisateur.
Merci pour vos précieuses indications.
Private Sub CommandButton1_Click() For Each op In UserForm1.Frame1.Controls If op Then Select Case op.Caption Case "OptionButton1": MsgBox "OptionButton1" Case "OptionButton2": MsgBox "OptionButton2" Case "OptionButton3": MsgBox "OptionButton3" Case "OptionButton4": MsgBox "OptionButton4" Case "OptionButton5": MsgBox "OptionButton5" End Select End If Next End Sub
isabelle
Bonjour tout le monde, voici mon souci, dans un userform, j'ai une frame comprenant cinq optionsbuttons, nommés act1 à act5. je ne sais pas comment écrire dans le code du bouton de validation (OK) quelle action effectuée en fonction du choix de l'utilisateur. Merci pour vos précieuses indications.
cousinhub
Merci pour ta réponse, mais cela ne fonctionne pas, je n'ai pas de msgbox. en pas à pas, il ne voit pas de "optionbutton" sélectionné j'ai remplacé dans ton code les infos concernant mon projet, le voici :
Private Sub actok_Click() AjoutAction.Hide For Each act In AjoutAction.FrameAction.Controls If act Then Select Case act.Caption Case "act1": MsgBox ("act1") Case "act2": MsgBox ("act2") Case "act3": MsgBox ("act3") Case "act4": MsgBox ("act4") Case "act5": MsgBox ("act5") End Select End If Next
End Sub
bonjour,
Private Sub CommandButton1_Click() For Each op In UserForm1.Frame1.Controls If op Then Select Case op.Caption Case "OptionButton1": MsgBox "OptionButton1" Case "OptionButton2": MsgBox "OptionButton2" Case "OptionButton3": MsgBox "OptionButton3" Case "OptionButton4": MsgBox "OptionButton4" Case "OptionButton5": MsgBox "OptionButton5" End Select End If Next End Sub
isabelle
Bonjour tout le monde, voici mon souci, dans un userform, j'ai une frame comprenant cinq optionsbuttons, nommés act1 à act5. je ne sais pas comment écrire dans le code du bouton de validation (OK) quelle action effectuée en fonction du choix de l'utilisateur. Merci pour vos précieuses indications.
Merci pour ta réponse, mais cela ne fonctionne pas, je n'ai pas de msgbox.
en pas à pas, il ne voit pas de "optionbutton" sélectionné
j'ai remplacé dans ton code les infos concernant mon projet, le voici :
Private Sub actok_Click()
AjoutAction.Hide
For Each act In AjoutAction.FrameAction.Controls
If act Then
Select Case act.Caption
Case "act1": MsgBox ("act1")
Case "act2": MsgBox ("act2")
Case "act3": MsgBox ("act3")
Case "act4": MsgBox ("act4")
Case "act5": MsgBox ("act5")
End Select
End If
Next
End Sub
bonjour,
Private Sub CommandButton1_Click()
For Each op In UserForm1.Frame1.Controls
If op Then
Select Case op.Caption
Case "OptionButton1": MsgBox "OptionButton1"
Case "OptionButton2": MsgBox "OptionButton2"
Case "OptionButton3": MsgBox "OptionButton3"
Case "OptionButton4": MsgBox "OptionButton4"
Case "OptionButton5": MsgBox "OptionButton5"
End Select
End If
Next
End Sub
isabelle
Bonjour tout le monde,
voici mon souci, dans un userform, j'ai une frame comprenant cinq
optionsbuttons, nommés act1 à act5.
je ne sais pas comment écrire dans le code du bouton de validation (OK)
quelle action effectuée en fonction du choix de l'utilisateur.
Merci pour vos précieuses indications.
Merci pour ta réponse, mais cela ne fonctionne pas, je n'ai pas de msgbox. en pas à pas, il ne voit pas de "optionbutton" sélectionné j'ai remplacé dans ton code les infos concernant mon projet, le voici :
Private Sub actok_Click() AjoutAction.Hide For Each act In AjoutAction.FrameAction.Controls If act Then Select Case act.Caption Case "act1": MsgBox ("act1") Case "act2": MsgBox ("act2") Case "act3": MsgBox ("act3") Case "act4": MsgBox ("act4") Case "act5": MsgBox ("act5") End Select End If Next
End Sub
bonjour,
Private Sub CommandButton1_Click() For Each op In UserForm1.Frame1.Controls If op Then Select Case op.Caption Case "OptionButton1": MsgBox "OptionButton1" Case "OptionButton2": MsgBox "OptionButton2" Case "OptionButton3": MsgBox "OptionButton3" Case "OptionButton4": MsgBox "OptionButton4" Case "OptionButton5": MsgBox "OptionButton5" End Select End If Next End Sub
isabelle
Bonjour tout le monde, voici mon souci, dans un userform, j'ai une frame comprenant cinq optionsbuttons, nommés act1 à act5. je ne sais pas comment écrire dans le code du bouton de validation (OK) quelle action effectuée en fonction du choix de l'utilisateur. Merci pour vos précieuses indications.
isabelle
regarde cette exemple :
http://cjoint.com/?lkqv5q8jq0
isabelle
Merci pour ta réponse, mais cela ne fonctionne pas, je n'ai pas de msgbox. en pas à pas, il ne voit pas de "optionbutton" sélectionné j'ai remplacé dans ton code les infos concernant mon projet, le voici :
Private Sub actok_Click() AjoutAction.Hide For Each act In AjoutAction.FrameAction.Controls If act Then Select Case act.Caption Case "act1": MsgBox ("act1") Case "act2": MsgBox ("act2") Case "act3": MsgBox ("act3") Case "act4": MsgBox ("act4") Case "act5": MsgBox ("act5") End Select End If Next
End Sub
bonjour,
Private Sub CommandButton1_Click() For Each op In UserForm1.Frame1.Controls If op Then Select Case op.Caption Case "OptionButton1": MsgBox "OptionButton1" Case "OptionButton2": MsgBox "OptionButton2" Case "OptionButton3": MsgBox "OptionButton3" Case "OptionButton4": MsgBox "OptionButton4" Case "OptionButton5": MsgBox "OptionButton5" End Select End If Next End Sub
isabelle
Bonjour tout le monde, voici mon souci, dans un userform, j'ai une frame comprenant cinq optionsbuttons, nommés act1 à act5. je ne sais pas comment écrire dans le code du bouton de validation (OK) quelle action effectuée en fonction du choix de l'utilisateur. Merci pour vos précieuses indications.
regarde cette exemple :
http://cjoint.com/?lkqv5q8jq0
isabelle
Merci pour ta réponse, mais cela ne fonctionne pas, je n'ai pas de msgbox.
en pas à pas, il ne voit pas de "optionbutton" sélectionné
j'ai remplacé dans ton code les infos concernant mon projet, le voici :
Private Sub actok_Click()
AjoutAction.Hide
For Each act In AjoutAction.FrameAction.Controls
If act Then
Select Case act.Caption
Case "act1": MsgBox ("act1")
Case "act2": MsgBox ("act2")
Case "act3": MsgBox ("act3")
Case "act4": MsgBox ("act4")
Case "act5": MsgBox ("act5")
End Select
End If
Next
End Sub
bonjour,
Private Sub CommandButton1_Click()
For Each op In UserForm1.Frame1.Controls
If op Then
Select Case op.Caption
Case "OptionButton1": MsgBox "OptionButton1"
Case "OptionButton2": MsgBox "OptionButton2"
Case "OptionButton3": MsgBox "OptionButton3"
Case "OptionButton4": MsgBox "OptionButton4"
Case "OptionButton5": MsgBox "OptionButton5"
End Select
End If
Next
End Sub
isabelle
Bonjour tout le monde,
voici mon souci, dans un userform, j'ai une frame comprenant cinq
optionsbuttons, nommés act1 à act5.
je ne sais pas comment écrire dans le code du bouton de validation (OK)
quelle action effectuée en fonction du choix de l'utilisateur.
Merci pour vos précieuses indications.
Merci pour ta réponse, mais cela ne fonctionne pas, je n'ai pas de msgbox. en pas à pas, il ne voit pas de "optionbutton" sélectionné j'ai remplacé dans ton code les infos concernant mon projet, le voici :
Private Sub actok_Click() AjoutAction.Hide For Each act In AjoutAction.FrameAction.Controls If act Then Select Case act.Caption Case "act1": MsgBox ("act1") Case "act2": MsgBox ("act2") Case "act3": MsgBox ("act3") Case "act4": MsgBox ("act4") Case "act5": MsgBox ("act5") End Select End If Next
End Sub
bonjour,
Private Sub CommandButton1_Click() For Each op In UserForm1.Frame1.Controls If op Then Select Case op.Caption Case "OptionButton1": MsgBox "OptionButton1" Case "OptionButton2": MsgBox "OptionButton2" Case "OptionButton3": MsgBox "OptionButton3" Case "OptionButton4": MsgBox "OptionButton4" Case "OptionButton5": MsgBox "OptionButton5" End Select End If Next End Sub
isabelle
Bonjour tout le monde, voici mon souci, dans un userform, j'ai une frame comprenant cinq optionsbuttons, nommés act1 à act5. je ne sais pas comment écrire dans le code du bouton de validation (OK) quelle action effectuée en fonction du choix de l'utilisateur. Merci pour vos précieuses indications.
cousinhub
Re et merci beaucoup mon erreur venait des "Case", où je mettais le nom de l'optionbutton et non son intitulé (caption) Merci encore
regarde cette exemple :
http://cjoint.com/?lkqv5q8jq0
isabelle
Merci pour ta réponse, mais cela ne fonctionne pas, je n'ai pas de msgbox. en pas à pas, il ne voit pas de "optionbutton" sélectionné j'ai remplacé dans ton code les infos concernant mon projet, le voici :
Private Sub actok_Click() AjoutAction.Hide For Each act In AjoutAction.FrameAction.Controls If act Then Select Case act.Caption Case "act1": MsgBox ("act1") Case "act2": MsgBox ("act2") Case "act3": MsgBox ("act3") Case "act4": MsgBox ("act4") Case "act5": MsgBox ("act5") End Select End If Next
End Sub
bonjour,
Private Sub CommandButton1_Click() For Each op In UserForm1.Frame1.Controls If op Then Select Case op.Caption Case "OptionButton1": MsgBox "OptionButton1" Case "OptionButton2": MsgBox "OptionButton2" Case "OptionButton3": MsgBox "OptionButton3" Case "OptionButton4": MsgBox "OptionButton4" Case "OptionButton5": MsgBox "OptionButton5" End Select End If Next End Sub
isabelle
Bonjour tout le monde, voici mon souci, dans un userform, j'ai une frame comprenant cinq optionsbuttons, nommés act1 à act5. je ne sais pas comment écrire dans le code du bouton de validation (OK) quelle action effectuée en fonction du choix de l'utilisateur. Merci pour vos précieuses indications.
Re et merci beaucoup
mon erreur venait des "Case", où je mettais le nom de l'optionbutton et non
son intitulé (caption)
Merci encore
regarde cette exemple :
http://cjoint.com/?lkqv5q8jq0
isabelle
Merci pour ta réponse, mais cela ne fonctionne pas, je n'ai pas de msgbox.
en pas à pas, il ne voit pas de "optionbutton" sélectionné
j'ai remplacé dans ton code les infos concernant mon projet, le voici :
Private Sub actok_Click()
AjoutAction.Hide
For Each act In AjoutAction.FrameAction.Controls
If act Then
Select Case act.Caption
Case "act1": MsgBox ("act1")
Case "act2": MsgBox ("act2")
Case "act3": MsgBox ("act3")
Case "act4": MsgBox ("act4")
Case "act5": MsgBox ("act5")
End Select
End If
Next
End Sub
bonjour,
Private Sub CommandButton1_Click()
For Each op In UserForm1.Frame1.Controls
If op Then
Select Case op.Caption
Case "OptionButton1": MsgBox "OptionButton1"
Case "OptionButton2": MsgBox "OptionButton2"
Case "OptionButton3": MsgBox "OptionButton3"
Case "OptionButton4": MsgBox "OptionButton4"
Case "OptionButton5": MsgBox "OptionButton5"
End Select
End If
Next
End Sub
isabelle
Bonjour tout le monde,
voici mon souci, dans un userform, j'ai une frame comprenant cinq
optionsbuttons, nommés act1 à act5.
je ne sais pas comment écrire dans le code du bouton de validation (OK)
quelle action effectuée en fonction du choix de l'utilisateur.
Merci pour vos précieuses indications.
Re et merci beaucoup mon erreur venait des "Case", où je mettais le nom de l'optionbutton et non son intitulé (caption) Merci encore
regarde cette exemple :
http://cjoint.com/?lkqv5q8jq0
isabelle
Merci pour ta réponse, mais cela ne fonctionne pas, je n'ai pas de msgbox. en pas à pas, il ne voit pas de "optionbutton" sélectionné j'ai remplacé dans ton code les infos concernant mon projet, le voici :
Private Sub actok_Click() AjoutAction.Hide For Each act In AjoutAction.FrameAction.Controls If act Then Select Case act.Caption Case "act1": MsgBox ("act1") Case "act2": MsgBox ("act2") Case "act3": MsgBox ("act3") Case "act4": MsgBox ("act4") Case "act5": MsgBox ("act5") End Select End If Next
End Sub
bonjour,
Private Sub CommandButton1_Click() For Each op In UserForm1.Frame1.Controls If op Then Select Case op.Caption Case "OptionButton1": MsgBox "OptionButton1" Case "OptionButton2": MsgBox "OptionButton2" Case "OptionButton3": MsgBox "OptionButton3" Case "OptionButton4": MsgBox "OptionButton4" Case "OptionButton5": MsgBox "OptionButton5" End Select End If Next End Sub
isabelle
Bonjour tout le monde, voici mon souci, dans un userform, j'ai une frame comprenant cinq optionsbuttons, nommés act1 à act5. je ne sais pas comment écrire dans le code du bouton de validation (OK) quelle action effectuée en fonction du choix de l'utilisateur. Merci pour vos précieuses indications.
