Exécuter plusieurs macros avec un seul bouton.

[Mattb19]

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]

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 ?

 

[Mattb19]

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

Je ne peux malheureusement rien faire sortir de l'entreprise ou je suis. :/

 

[Victor21]

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

re,

peut-être pouvez-vous au moins nous communiquer les codes et leur emplacement ?

 

[natorp]

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

 

[Mattb19]

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.

 

[targa]

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

Salut Mattb19

essaie la foction Call, comme ceci:

Sub Nom de ta macro général()
' Macro pour appeler une autre macro
Call Nom de la macro recherchée
Call ...
Call ...
End Sub

A+

 

[Mattb19]

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]

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

Re,

voir fichier joint...

Cordialement, Gérard

 

[targa]

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

Selon ton code, cela fera:

Sub Bouton 4()

Call Validation1
Call Refusé1
Call Attente1

'etc...
End Sub

 

[targa]

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

désolé nos messages se sont croisés.

Ah d'accord je comprends mieux ton besoin.

La solution à natorp me semble bien!

 

[Mattb19]

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

La solution est géniale, je dois l'admettre mais mon seul problème maintenant est que je n'arrive pas à faire de liste. :$

 

[natorp]

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

Re,

La liste est une liste de validation (Données --> Validation)
Quel est ton souci ?

Cordialement, Gérard

 

[Mattb19]

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 ? :$

 

[natorp]

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

re,

voir :
Création d'une liste déroulante pour entrer des données - mac excel

cordialement, Gérard