macro suivant condition

[typo]

Bonjour, plutôt bonsoir à tous

Toujours dans mes adresses postales je voudrais savoir s'il est possible de déclencher une macro suivant une liste de mots.(tabeau ou array).
exemple : si le mot "route" est dans mon tableau et qu'il est trouvé dans ma liste de recherche est ce que je peux appeler une macro.
En vous remerciant
Cordialement
Philippe

 

[ledzepfred]

Re : macro suivant condition

bonsoir,

oui c'est possible grâce à une procédure worksheet_change() qui serait de ce genre

Private Sub Worksheet_Change(Byval Target as Range)
dim maplage as range
maplage = sheets("Feuil1").range("A1:A65536")
x=application.worksheetfunction.countif(maplage,Target.value)
if x>0 then call mamacro
end sub

en fait x compte le nb de fois où il trouve la valeur de la cellule modifiée dans maplage (là où la recherche doit se faire), si x=0 donc valeur non trouvée dans la plage de recherche rien ne se passe mais à l'inverse la macro mamacro est déclenchée.

A adapter bien sur, si tu joignais un fichier on pourrait t'apporter une solution plus précise.

a+