Macro activé par liste déroulante

[Rick@]

Bonjour,

Besoin d'aide pour activer des macros selon choix de liste déroulante... Voir fichier joint

Encore et encore merci!!!

 

[JCGL]

Re : Macro activé par liste déroulante

Bonjour à tous,

Un essai en pièce jointe

Dans un Module :

Sub Copie()
    If Feuil3.ComboBox1 = "Commercial" Then
        Rows("39:43").Copy Rows("25:25")
        Feuil3.ComboBox1.BackColor = &HFF00&
        Feuil3.Range("A25").Select
    End If
    If Feuil3.ComboBox1 = "Résidentiel" Then
        Rows("46:50").Copy Rows("25:25")
        Feuil3.ComboBox1.BackColor = &HFFFF&
        Feuil3.Range("A25").Select
    End If
    If Feuil3.ComboBox1 = "Recouvrement" Then
        Rows("52:56").Copy Rows("25:25")
        Feuil3.ComboBox1.BackColor = &H80FF&
        Feuil3.Range("A25").Select
    End If
End Sub

A+ à tous

 

[Rick@]

Re : Macro activé par liste déroulante

Gros merci JCGL, tu es vraiment fort!

Au plaisir!!!!