Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Exécuter plusieurs macros avec un seul bouton.

Mattb19

XLDnaute Nouveau
Bonjour à toutes et à tous,

Etant nouveau sur excel, je vous expose mon problème.

Je suis en train de réalisé un document où il m'est demandé de réaliser une macro avec un bouton de "Zone de liste déroulante" ou j'aurais le choix entre 3 propositions, qui chacune d'elles auraient une macro différente affecté.

Après avoir réalisé les 3 macros séparément, j'ai bien compris qu'il fallait en créer une quatrième qui jouera la rôle de lien.

Mais mon problème est que je ne sais pas la programmer, j'aimerais qu'elle puisse me permettre de choisir entre une des trois macro. Je me perds un peu entre les If, les When ou les Go To.

Donc si vous avez une proposition de réponse, je suis preneur.

Cordialement,
MB.
 

Victor21

XLDnaute Barbatruc
Re : Exécuter plusieurs macros avec un seul bouton.

Bonjour, Mattb19, et bienvenue sur XLD.

Ne serait-ce pas plus simple si vous nous joigniez un court extrait anonymisé représentatif de votre fichier ?
 

natorp

XLDnaute Accro
Re : Exécuter plusieurs macros avec un seul bouton.

Bjr Mattb et Victor

un exemple en pièce jointe,
Voir la liste de validation en A1 et le code de la feuille

Cordialement, Gérard
 

Pièces jointes

  • Classeur1.xls
    21.5 KB · Affichages: 39
  • Classeur1.xls
    21.5 KB · Affichages: 50
  • Classeur1.xls
    21.5 KB · Affichages: 46

Mattb19

XLDnaute Nouveau
Re : Exécuter plusieurs macros avec un seul bouton.

Alors, j'ai créé trois macros pour colorier des cellules en fonction de si c'est validé, refusé ou en attente et j'aimerai pouvoir faire ce choix avec un bouton de liste déroulante


Sub Validation1()
'
' Validation1 Macro
'
' Touche de raccourci du clavier*: Option+Cmd+Maj+V
'
Range("A8:W8").Select
With Selection.Interior
.Pattern = xlSolid
.ColorIndex = 4
End With
Range("W8").Select
End Sub
Sub Refusé1()
'
' Refusé1 Macro
'
' Touche de raccourci du clavier*: Option+Cmd+Maj+R
'
Range("A8:W8").Select
With Selection.Interior
.Pattern = xlSolid
.ColorIndex = 3
End With
Range("W8").Select
End Sub

Sub Attente1()
'
' Attente1 Macro
'
' Touche de raccourci du clavier*: Option+Cmd+Maj+A
'
Range("A8:W8").Select
With Selection.Interior
.Pattern = xlSolid
.ColorIndex = 2
End With
Range("W8").Select
End Sub

ce sont les macros réalisés jusqu'à présent, j'aimerai en faire une quatrième pour me permettre de choisir une des trois.
 

Mattb19

XLDnaute Nouveau
Re : Exécuter plusieurs macros avec un seul bouton.

Le problème avec la fonction Call c'est qu'il les appelle toute et qu'il n'y a que la dernière qui reste effective. J'aimerai pouvoir choisir laquelle appeler.
 

natorp

XLDnaute Accro
Re : Exécuter plusieurs macros avec un seul bouton.

Re,

voir fichier joint...

Cordialement, Gérard
 

Pièces jointes

  • Classeur1.xls
    28 KB · Affichages: 80
  • Classeur1.xls
    28 KB · Affichages: 65
  • Classeur1.xls
    28 KB · Affichages: 53

Mattb19

XLDnaute Nouveau
Re : Exécuter plusieurs macros avec un seul bouton.

Mon soucis est que je ne sais pas faire ces listes, faut-il écrire Validé, Refusé et en attente dans une seul cellule et faire la liste et d'ailleurs comment fait-on cette liste ? :$
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…