Discussion :

[stephadm]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kiki29]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Me.OptionButton1.Value = True Then

etc

[Jean-Philippe André]

salut,

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

la solution de kiki29 étant bien plus directe au final

[stephadm]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kiki29]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[stephadm]

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

[kiki29]

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