Exécuter une macro en fonction du bouton d'option choisi
Résolu/Fermé
Adirien
Messages postés
84
Date d'inscription
samedi 11 mai 2013
Statut
Membre
Dernière intervention
27 janvier 2024
-
2 mars 2021 à 16:25
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 4 mars 2021 à 09:11
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 4 mars 2021 à 09:11
A voir également:
- Exécuter une macro en fonction du bouton d'option choisi
- Fonction si et - Guide
- Option booster free avis - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
6 réponses
yg_be
Messages postés
22692
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
16 avril 2024
1 471
2 mars 2021 à 16:33
2 mars 2021 à 16:33
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.
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
Messages postés
84
Date d'inscription
samedi 11 mai 2013
Statut
Membre
Dernière intervention
27 janvier 2024
2
2 mars 2021 à 16:37
2 mars 2021 à 16:37
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...
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
Messages postés
84
Date d'inscription
samedi 11 mai 2013
Statut
Membre
Dernière intervention
27 janvier 2024
2
Modifié le 2 mars 2021 à 17:07
Modifié le 2 mars 2021 à 17:07
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
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
Le Pingou
Messages postés
12035
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
1 avril 2024
1 425
2 mars 2021 à 18:34
2 mars 2021 à 18:34
Bonjour,
Avez-vous essayé d'exécuter un pas à pas sur le code afin de voir ou est le problème ?
Salutations
Le Pingou
Avez-vous essayé d'exécuter un pas à pas sur le code afin de voir ou est le problème ?
Salutations
Le Pingou
Adirien
Messages postés
84
Date d'inscription
samedi 11 mai 2013
Statut
Membre
Dernière intervention
27 janvier 2024
2
>
Le Pingou
Messages postés
12035
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
1 avril 2024
3 mars 2021 à 17:40
3 mars 2021 à 17:40
Le pas à pas ne m'a pas beaucoup aidé je pense que c'est pas juste une erreur de saisie la syntaxe ne doit pas convenir
Le Pingou
Messages postés
12035
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
1 avril 2024
1 425
>
Adirien
Messages postés
84
Date d'inscription
samedi 11 mai 2013
Statut
Membre
Dernière intervention
27 janvier 2024
3 mars 2021 à 18:56
3 mars 2021 à 18:56
Bonjour,
Dommage et pourtant c'est possible de voir ce qui ne vas pas dans l'exécution.
Salutations
Le Pingou
Dommage et pourtant c'est possible de voir ce qui ne vas pas dans l'exécution.
Salutations
Le Pingou
yg_be
Messages postés
22692
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
16 avril 2024
1 471
2 mars 2021 à 18:42
2 mars 2021 à 18:42
"ça ne marche pas": que se passe-t-il?
yg_be
Messages postés
22692
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
16 avril 2024
1 471
2 mars 2021 à 18:43
2 mars 2021 à 18:43
= Truepeut être supprimé.
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
3 mars 2021 à 08:59
3 mars 2021 à 08:59
Bonjour,
essaie ceci:
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
Adirien
Messages postés
84
Date d'inscription
samedi 11 mai 2013
Statut
Membre
Dernière intervention
27 janvier 2024
2
3 mars 2021 à 17:41
3 mars 2021 à 17:41
C'est la même macro que j'au suggéré sur ma réponse <2> et ça ne fonctionne pas
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
Modifié le 3 mars 2021 à 14:30
Modifié le 3 mars 2021 à 14:30
Bonjour
code non vérifié
Il aurait été plus facile pour tester de joindre le fichier plut^t qu'une photo..... :o)
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
Next
End Sub
Il aurait été plus facile pour tester de joindre le fichier plut^t qu'une photo..... :o)
Adirien
Messages postés
84
Date d'inscription
samedi 11 mai 2013
Statut
Membre
Dernière intervention
27 janvier 2024
2
3 mars 2021 à 17:49
3 mars 2021 à 17:49
Merci Michel, mais j'ai eu une erreur sur la partie
Call. Ctrl.Caption
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
>
Adirien
Messages postés
84
Date d'inscription
samedi 11 mai 2013
Statut
Membre
Dernière intervention
27 janvier 2024
4 mars 2021 à 09:11
4 mars 2021 à 09:11
Re Adirien
pourquoi as tu mis un point entre call et ctrl.caption ?
mais si ta dernière modif fonctione, c'est le principal ! :o)
pourquoi as tu mis un point entre call et ctrl.caption ?
mais si ta dernière modif fonctione, c'est le principal ! :o)
Adirien
Messages postés
84
Date d'inscription
samedi 11 mai 2013
Statut
Membre
Dernière intervention
27 janvier 2024
2
3 mars 2021 à 17:51
3 mars 2021 à 17:51
Finalement j'ai fini par trouvé quelque chose de similaire mais non pas avec la fonction
Callmais
Run:
Private Sub CommandButton1_Click()
Dim Ctrl As Control
For Each Ctrl In Me.Controls
If Ctrl.Name Like "OptionButton*" Then
If Ctrl.Value = True Then Run Ctrl.Caption
End If
Next Ctrl
End Sub
