Optionbutton dans Excel VBA
Résolu
Bonjour,
Je voudrais créer plusieurs boutons d'option (soit 7) et selon le bouton qui est coché, l'utilisateur est renvoyé vers une page, ou une autre, lorsqu'il clique sur un bouton Valider.
J'espère que vous m'aurez compris !
Merci d'avance
Je voudrais créer plusieurs boutons d'option (soit 7) et selon le bouton qui est coché, l'utilisateur est renvoyé vers une page, ou une autre, lorsqu'il clique sur un bouton Valider.
J'espère que vous m'aurez compris !
Merci d'avance
5 réponses
-
Tu crées tes optionboutons dans ta userform puis dans le code de ton bouton valider, tu regardes chaque optionbutton si sa valeur est true ou false avec une série de if...puis tu ouvres la page correspondante (c'est bien d'autres userform que tu veux ouvrir ?)
un petit bout du code sur lequel je bosse en ce moment :
'on vérifie que l'utilisateur a coché un choix
If accueil.OptionButton1.Value = False And accueil.OptionButton2 = False And accueil.OptionButton3.Value = False And accueil.OptionButton4.Value = False Then
msg = MsgBox("Merci de choisir un type d'analyse", vbExclamation, "Attention")
Exit Sub
End If
'on affiche la userForm qui correspond au choix
If accueil.OptionButton2.Value = True Then
accueil.Hide
marque.Show
End If
If accueil.OptionButton1.Value = True Then
accueil.Hide
classe_therap.Show
End If
If accueil.OptionButton3.Value = True Then
accueil.Hide
labo.Show
End If
If accueil.OptionButton4.Value = True Then
accueil.Hide
generalites.Show
End If -
ModérateurBonjour,
Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then Sheets("Mafeuille").Select
End Sub
m@rina -
Merci beaucoup ça marche
-
Désolé, une autre petite question, j'aimerai faire pareil mais avec une liste déroulante, c'est à dire que selon le critère selectionner, l'utilisteur sera renvoyé à une page excel
Merci-
-
@nikomaniaeuh, je ne comprend pas trop, il faut que j'écrive exactement comme ça????
Si oui, ça ne marche pas..... -
@lauraen fait le select case remplace les blocs if quand il y en a beaucoup...ca épure le code...
la syntaxe est la suivante
SELECT CASE le nom de ta liste déroulante.Value CASE "la première valeur de ta liste déroulante" sheets("la page à afficher").select CASE "la deuxième valeur de ta liste déroulante" sheets("la page à afficher").select END SELECT
Bien sûr tu remplaces ce qu'il y a en italique par les noms de tes objets...
après je n'ai pas testé si le select marche avec une liste déroulante mais normalement oui...sinon utilises des conditions if...
-
-
Merci beaucoup, ça marche, en tout cas t'es bien calé en informatique et tu réponds du tac au tac, c'est cool
encore merci
