utiliser 2 macros différentes selon le choix des optionbutton

Bonjour au forum,

Je souhaite utiliser 2 macros différentes selon le choix des optionbutton dans une frame.
Frame1 réunie OptionButton (NouveauCtrl et NouvelleTache), si je coche "NouveauCtrl"en validant avec le bouton "CmdOK", c'est la macro "NouveauCtrl " qui est lancer et si c'est NouvelleTache qui est coché, la macro "NouvelleTache" est lancer à l'appui du bouton "CmdOK"

Ca ne fonctionne pas ce que je fais

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim Ctrl As Control For Each Ctrl In Frame1.Controls If Ctrl.Object.Value = True Then NouveauCtrl Else NouvelleTache End If Exit For End If Next Ctrl End Sub

---

Quelqu'un aurait-il une idée ?

Merci

Stephanie

Salut,

Code:

---

If Me.OptionButton1.Value = True Then

---

etc

salut,

pourquoi utilises-tu une boucle For Each sur tes controls ? :koi:

la solution de kiki29 étant bien plus directe au final :)

bonjour kiki29, jpcheck et au forum

J'avais proceder de la manière suivante au départ mais ça ne fonctionnait pas.
Lorsque je cliquer sur Enregistrer (CmdOK) rien ne se passer même pas l'exécution des différentes macros (NouveauRDV et NouvelleTache)

Code:

---

1 2 3 4 5 6 7

Private Sub CmdOK_Click() ... ... If OptionButton1 = True Then NouveauRDV else NouvelleTache ... ... End Sub

---

, j'ai essayé ceci

Code:

---

1 2 3

If OptionButton1 = True Then NouveauRDV Else Exit Sub ElseIf OptionButton2 = True Then NouvelleTache End If

---

c'est pareil, aucune réaction. Les 2 macros fonctionne bien individuellement, le reste du code que j'ai isolé aussi. Je pense que l'erreur de code avec mes choix optionbutton est le problème majeur

Pourquoi ?

Merci

Stephanie

Salut, il faut taper la valeur True dans la fenêtre VBE Propriétés : Value
pour l'OptionButton1 par exemple
Il y a la FAQ ainsi que [F1] sans oublier

Code:

---

1 2 3 4 5 6 7 8 9

Option Explicit   Private Sub OptionButton1_Click() Me.OptionButton1.Value = True End Sub   Private Sub OptionButton2_Click() Me.OptionButton2.Value = True End Sub

---

re bonjour kiki29, jpcheck et au forum

Merci kiki29 et jpcheck,

En faites, c'est une erreur de débutant car je placé end if au mauvais endroit. J'ai aussi modifié les proprietes vbe comme signaler plus haut et tout est ok

Merci pour votre aide

Stephanie

Re, en fait tu devrais rebaptiser un bouton en NouveauRDV et l'autre en AutreChose, tu ajoutes un 3eme Annuler et tu te passes des OptionsBoutons