Case option vba
Bonjour,
j'ai un petit problème sur excel sur vba en particulier. mon souhait c'est après avoir réaliser pls case d'option (il y en a 4) est que après avoir choisi une option, avoir un bouton valider qui quand je clike dessus me ramène à une autre feuille correspondant à l'option choisi. par exemple si je clike sur option 1, ensuite valider je veux que ça m'emene à la feuille 2 et ainsi de suite pour les autre options.
j'ai fait un code sur vba mais ça ne marche pas et je comprends pas pourquoi :
Sub Bouton20_QuandClic()
If optionbutton15.Value = True Then
Sheets("Feuil3").Visible = True 'Affiche la feuille que tu souhaite
ElseIf optionbutton16.Value = True Then
Sheets("feuil4").Visible = True
ElseIf optionbutton17.Value = True Then
Sheets("feuil5").Visible = True
ElseIf optionbutton18.Value = True Then
Sheets("feuil6").Visible = True
End If
Sheets2.Visible = False 'Réduit la feuille principal
End Sub
il me surligne en jaune la ligne : if optionbutton15.value = true then
Merci d'avance pour votre aide
j'ai un petit problème sur excel sur vba en particulier. mon souhait c'est après avoir réaliser pls case d'option (il y en a 4) est que après avoir choisi une option, avoir un bouton valider qui quand je clike dessus me ramène à une autre feuille correspondant à l'option choisi. par exemple si je clike sur option 1, ensuite valider je veux que ça m'emene à la feuille 2 et ainsi de suite pour les autre options.
j'ai fait un code sur vba mais ça ne marche pas et je comprends pas pourquoi :
Sub Bouton20_QuandClic()
If optionbutton15.Value = True Then
Sheets("Feuil3").Visible = True 'Affiche la feuille que tu souhaite
ElseIf optionbutton16.Value = True Then
Sheets("feuil4").Visible = True
ElseIf optionbutton17.Value = True Then
Sheets("feuil5").Visible = True
ElseIf optionbutton18.Value = True Then
Sheets("feuil6").Visible = True
End If
Sheets2.Visible = False 'Réduit la feuille principal
End Sub
il me surligne en jaune la ligne : if optionbutton15.value = true then
Merci d'avance pour votre aide
6 réponses
-
personne pour m'aider svp??
-
Bonjour
que dis le message d'erreur?
par ailleurs pour rendre une feuille "active", il faut utiliser:
Sheets("Feuil3").Activate
Bonne suite -
je ne sais pas ce que dis le message d'erreur, quand je click F1 dessus il me dis mot clé introuvable. je n'arrive pas à comprendre
-
il ne reconnait pas le mot optionbutton. et me dit que le mot clé true est égale a -1.
-
bonjour à tous
Sheets2.Visible = False 'Réduit la feuille principal
' pas d'accord
Sheets(2).visible=false ' cache la feuille
de plus je remarque que le userform n'est pas déchargé...
et avec cela utilise .activate comme paf te le suggère.
A+ -
bonjour,
plusieurs interrogations:
le bouton et les optionbutton sont ils sur une userform ou directement sur une feuille
les optionbutton sont ils bien nommés comme appelés dans le code ( leur nom ne comporte pas de majuscule, signe qu'ils n'existent pas réellement)
Dans :Sub Bouton20_QuandClic() , QuandClic() n'est pas un évenement lié à un commandbutton (à ma connaissance). Comment est elle déclenchée?
éventuellement joignez le lien vers votre fichier déposé sur cijoint.com
à +
