Macro voir si une cellule contient un nom spécifique

[Schmi]

Bonjour,

Je suis entrain de creer un fichier excel qui me permet d'automatiser la répartition de charges en fonction de la nature de la charge. Tout ca a des fins d'analyse.


je souhaite faire la chose suivante :
- dans une plage donnée, je veux voir si les cellules de cette plage contient des noms spécifiques si c'est le cas alors la cellule x est "marqué"

je suis arrivé à faire la formule suivante :

Sheets("Mai").Select
For i = 1 To 3
If Cells(5 + i, 2) Like "*Nomx*" Then
Cells(5 + i, 8) = 1
ElseIf Cells(5 + i, 2) Like "*Nom1*" Or Cells(5 + i, 2) Like "* Nom2*" Or Cells(5 + i, 2) Like "*Nom3*" Then
ElseIf Cells(5 + i, 2) Like Then
Cells(5 + i, 11) = 1
Else
End If
Next i

La formule fonctionne car si je liste les noms moi meme cela marche.

Cependant j'aurai souhaité savoir s'il était possible de regrouper les nom1/nom2/nom3 dans une liste et que la formule ci dessus integre cette liste dans la condition.

J'ai pensé a un Range("nomdelaliste") mais j'arrive pas à lui dire de regarder à l'intérieur de la liste.

Je vous remercie par avance pour vos pistes,

Cordialement,

 

[laurent950]

Re : Macro voir si une cellule contient un nom spécifique

Bonjour,

C'est possible soit une liste Array (ecrite en dure dans le module) ou soit en récupérant laliste dans la feuille Excel (La mettre en variable tableau) et boucler ainsi sur cette liste.

Si vous ajouter le fichier au poste pourquoi pas essayer

Au plaisir

Laurent

 

[Si...]

Re : Macro voir si une cellule contient un nom spécifique

salut

à voir Si... cela peut s'adapter :

For I = 0 To 2 'pour 3 noms
  If Cells(5 + I, 2) Like Array("*Nomx*", "*Nom2*", "*Nom3*")(n) Then Cells(6 + I, 8) = 1
Next

 

[Schmi]

Re : Macro voir si une cellule contient un nom spécifique

Rebonjour,

Ci joint le fichier remanié pour l'exemple.

Je me rends compte que dans un cas cela fonctionne tres bien.
Dans l'autre avec l'incorporation de la fonction Array("* noms*") (n) il n'en trouve qu'un !

Cordialement,