Appel d'une macro si colonne x contiens valeur xRésolu/Fermé

Question

Bonjour, 
J'ai dans une colonne des noms employés.
J'ai des macros pour chacun.
comment appeler les macros en fonction de leur présence dans la colonne employés??
Ex.: Employés: Lise(A1),Yvan(A2),Gilbert(A3)
       Macros: Lise, Yvan, Bertrand, Gertrude, Gilbert.
Je veux exécuter les macros; Lise, Yvan, Gilbert.

 
Configuration: Windows 7 / Mozilla 11.0

Mytå · Answer

Salut le Forum

Pour la plage A1:A10, code à placer dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
        Select Case Target.Value
        Case "Lise"
            Call Lise
        Case "Yvan"
            Call Yvan
        End Select
    End If
End Sub

Mytå

Mytå · Answer

Re le Forum

Autre possibilité

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
    On Error Resume Next
     Run Target.Value
    End If
End Sub

Mytå

Mytå · Answer

Re le Forum

Les deux méthodes dans le fichier : July74.xls

Mytå

July74 · Answer

Merci pour le fichier 
Je l'ai essayer mais se peut-il que se soit le code
"If Not Application.Intersect"
Parce que en fait dans ma colonne j'ai plusieurs nom à traiter.
Il peut y avoir Lise, Yvan, Gilbert mais parfois juste Yvan & Gilbert...

Avec ce code le résultat est bon seulement pour le premier nom.

Mytå · Answer

Re le Forum

Les macros sont lancées lors de la saisie du nom dans la plage de cellule A1 à A10 

Mytå

July74 · Answer

Ok c'était correct il y avait un erreur de mise à jour car j'ai enregistrer et fermer et en ré-ouvrant mon fichier tout marche comme il faut

c'est super!

Par contre la 2ième fonctionne pas " Run Target.Value"
Mais c'est pas grave la 1ère option est bonne.

Appel d'une macro si colonne x contiens valeur x

6 réponses

Newsletters