Exécuter une macro en fonction du bouton d'option choisi Résolu/Fermé

Question

Bonjour, 

Ma question sera peut être bête mais je débute vraiment avec les userform :

J'ai créer un userform comme ceci

L'idée c'est que j'ai 5 macros qui s'apelle respectivement Lundi,Mardi,etc...

Je veux que la macro correspondante au bouton d'option choisi se lance quand je valide le userform.

Merci à ceux qui pourront m'aider 

Configuration: Windows / Chrome 88.0.4324.190

yg_be · Answer

bonjour,
moi je ferais un code qui s'exécute quand le bouton "valider" est cliqué.
dans ce code, je vérifierais quelle est l'option choisie.

Adirien · Answer

En faite je viens juste de trouver la réponse à ma question...

Je suis aller dans le code de chaque bouton d'option et j'ai tapé ceci : 

Private Sub OptionButton1_Click()
Call Lundi
End Sub

Private Sub OptionButton2_Click()
Call Mardi
End Sub

Private Sub OptionButton3_Click()
Call Mercredi
End Sub

etc...

Adirien · Answer

Après réflexion ça ne marche pas exactement proprement comme il faudrait car la macro se lance quand je clique sur le bouton d'option et non pas quand je la sélectionne et appui sur "Valider"...
Il faudrait surement que je stock le contenu du bouton d'option dans une variable et c'est le bouton valider qui devrait exécuter la macro en fonction de la variable.

Maintenant faut mettre ça en code..

J'ai essayé ça mais non ça ne marche pas :

Private Sub CommandButton1_Click()
    If Me.OptionButton1.Value = True Then Call Lundi
    ElseIf Me.OptionButton2.Value = True Then Call Mardi
    ElseIf Me.OptionButton3.Value = True Then Call Mercredi
    ElseIf Me.OptionButton4.Value = True Then Call Jeudi
    ElseIf Me.OptionButton5.Value = True Then Call Vendredi
    End If

End Sub

cs_Le Pivert · Answer

Bonjour,

essaie ceci:

Private Sub CommandButton1_Click()
If Me.OptionButton1.Value = True Then 
Call Lundi
ElseIf Me.OptionButton2.Value = True Then 
Call Mardi
ElseIf Me.OptionButton3.Value = True Then 
Call Mercredi
ElseIf Me.OptionButton4.Value = True Then 
Call Jeudi
ElseIf Me.OptionButton5.Value = True Then 
Call Vendredi
End If
End Sub

michel_m · Answer

Bonjour

code non vérifié 

Option Explicit'------------------------------------------------------------Private Sub CommandButton1_Click()    Dim Ctrl As Control    '------------------------    For Each Ctrl In Me.Controls        If TypeOf Ctrl Is MSForms.OptionButton Then               If Ctrl.Value  Then                       Call Ctrl.Caption                     Exit For               End If        End If    NextEnd Sub
 
 Il aurait été plus facile pour tester de joindre le fichier plut^t qu'une photo..... :o)

Adirien · Answer

Finalement j'ai fini par trouvé quelque chose de similaire mais non pas avec la fonction Call mais Run :

Private Sub CommandButton1_Click()Dim Ctrl As ControlFor Each Ctrl In Me.Controls    If Ctrl.Name Like "OptionButton*" Then        If Ctrl.Value = True Then Run Ctrl.Caption    End IfNext CtrlEnd Sub

Exécuter une macro en fonction du bouton d'option choisi

6 réponses

Discussions similaires