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

Paulle · 14 Avril 2022

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 · 14 Avril 2022

bonjour,

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

VB:

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 · 14 Avril 2022

Bonjour @Paulle , @Hasco ,

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

Paulle · 14 Avril 2022

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

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

Paulle

XLDnaute Occasionnel

Pièces jointes

Hasco

XLDnaute Barbatruc

Pièces jointes

cp4

XLDnaute Barbatruc

Pièces jointes

Paulle

XLDnaute Occasionnel

Discussions similaires

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

Paulle

XLDnaute Occasionnel

Pièces jointes

Hasco

XLDnaute Barbatruc

Pièces jointes

cp4

XLDnaute Barbatruc

Pièces jointes

Paulle

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency