XL 2019 Macro déclenchée par liste déroulante.

[Paulle]

Bonjour,
J'ai crée des macros de tri qui fonctionnent bien.
Je voudrai que ces macros soient exécutées en fonction du choix dans la liste déroulante.
J'ai bien tenté une macro, mais elle ne fonctionne pas.
Si vous pouvez me dire ce qui ne va pas. Merci.

 

[Hasco]

bonjour,

Dans le module de code de votre feuille 'Feuil3' vous trouverez :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim MacroName As String
    If Target.Address(0, 0) = "Q1" And Target.Text <> "" Then
        MacroName = "Module1." & Replace(Target, " ", "_") ' remplacer les espaces par _
        Application.Run MacroName
    End If
End Sub

qui semble fonctionner comme il me semble que vous l'attendez.

cordialement

 

[cp4]

Bonjour @Paulle , @Hasco ,

Je l'ai fait et même s'il manque de rigueur de codage, je le joins.

 

[Paulle]

Bonsoir Hasc et cp4,
C'est ce que j'attendais et je vous en remercie.
Cordialement.