Appel d'une macro si colonne x contiens valeur x
Résolu
July74
Messages postés
47
Date d'inscription
Statut
Membre
Dernière intervention
-
July74 Messages postés 47 Date d'inscription Statut Membre Dernière intervention -
July74 Messages postés 47 Date d'inscription Statut Membre Dernière intervention -
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.
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.
A voir également:
- Appel d'une macro si colonne x contiens valeur x
- Site x - Guide
- Sites X : Pornhub, YouPorn et Redtube sont de nouveau accessibles en France - Guide
- Déplacer une colonne excel - Guide
- Nommez une application d'appel vidéo ou de visioconférence - Guide
- Photoscape x - Télécharger - Retouche d'image
6 réponses
Salut le Forum
Pour la plage A1:A10, code à placer dans le module de la feuille
Mytå
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å
Re le Forum
Autre possibilité
Mytå
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å
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.
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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Je l'ai essayé et ça fonctionne mais seulement sur le 1er nom.
Avant de recevoir ta réponse j'ai trouvé une solution mais bcp plus longue, avec une macro;
Sub EMPL()
If Range("A1") = "Lise" Then
Call Lise
End If
If Range("A1") = "Yvan" Then
Call Yvan
End If
...
Ens Sub
C'est long car je dois tout inclure les possibilités.
Peut-être j'ai pas entré ton code comme il faut
Voir Message #5 pour un fichier avec les deux méthodes.
Mytå