XL 2013 Des Noms de MACROS dans une liste déroulante ??!!

pierrejean

XLDnaute Barbatruc

• 22 Avril 2020

• #2

Bonjour Dicas
tu peux t'inspirer de ceci
Avec liste de validation en A1

 

Pièces jointes

• Dicas.xlsm

  14.2 KB · Affichages: 19

Vote positif 0 Vote négatif

D

Dicas

XLDnaute Junior

• 22 Avril 2020

• #3

Bonjour Pierre Jean !
Oui, j'ai bien là ,une liste déroulante mais qui ne répond pas à mon Pb qui dit, lui que ton 1 comme ton 2 ou ton 3 est le nom d'une macro. Si je remplace ces 1, 2 ou 3 par des noms de macros, celles-ci ne fonctionnent pas...

 

Vote positif 0 Vote négatif

Gégé-45550

XLDnaute Accro

• 22 Avril 2020

• #4

Bonjour Dicas,
Les indications de pierrejean étaient excellentes, il suffisait juste d'extrapoler.
Voir fichier joint.

Bonne soirée ... confinée.

 

Pièces jointes

• DicasPlus.xlsm

  15.5 KB · Affichages: 14

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 23 Avril 2020

• #5

bonjour le fil
on extrapole rien du tout @Gégé-45550
pourquoi passer par une passerelle("m1")???????

VB:

Application.Run Target.Value

épicétou'
surtout que j'ai cru comprendre qu'il va y avoir des arguments semaines qui peuvent être ajoutés après target.value

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 23 Avril 2020

• #6

Merci patricktoulon de me rappeler le Application.run

 

Vote positif 0 Vote négatif

D

Dicas

XLDnaute Junior

• 23 Avril 2020

• #7

Merci pierrejean ! Merci Gégé 45550
J'ai enfin vu la seconde fenêtre...!! Ça doit être un des effets du confinement ! D'ailleurs, vous connaissez sans aucun doute l'expression : quant on est confiné on est confiné...
Pour tout dire, ta réponse pierrejean me convient très bien !! Merci Gégé de m'avoir mis le nez dessus !!
Il me reste pourtant à creuser ce que patricktoulon vient de me glisser .... et qu'il me convient de documenter...

 

Pièces jointes

• ClasseurTest1.xlsx

  19.9 KB · Affichages: 7

Vote positif 0 Vote négatif

Gégé-45550

XLDnaute Accro

• 23 Avril 2020

• #8

Bonjour Dicas ... de la part de

patricktoulon

Cliquez pour agrandir...

(voir le code de Feuil1)

 

Pièces jointes

• Lancer macro par liste de validation.xlsm

  15.7 KB · Affichages: 12

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 23 Avril 2020

• #9

re
préférez le .text (des fois que l'expression serait interprétée par excel)
sait on jamais si les expression inscrites représentent des fonctions ou constantes excel ou VBA
Application.Run Target.Text

 

Vote positif 0 Vote négatif

Gégé-45550

XLDnaute Accro

• 23 Avril 2020

• #10

re-bonjour,
petite précision qui semble évidente mais qui n'est pas forcément inutile : pour éviter que le code plante ou fasse n'importe quoi si un changement intervient sur une autre cellule que celle ou figure la liste de validation (en l'occurrence la cellule A1), il convient de modifier la macro dans feuil1 comme ceci :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Application.Run Target.Text   'pour obéir à la dernère recommandation une fois de plus hyper pertinente de patricktoulon
    End If
End Sub

Bien cordialement,

 

Vote positif 0 Vote négatif

D

Dicas

XLDnaute Junior

• 23 Avril 2020

• #11

Merci à patricktoulon !! J'avais fait ça comme ça et pour une raison qui m'est encore inconnue ça n'acceptait pas l'intitulé comme "macro". En reprenant les B A BA comme tu me l'a suggéré et en étant , cette fois plus attentif... ça marche ! MERCI à vous trois !!!

 

Vote positif 0 Vote négatif