Discussion :

[versnath]

Bonjour

Je cherche à créer une macro servant à colorer les lignes si certains mots se situent dans une colonne précise.
La recherche se fait dans la colonne "W" .
Chaque cellule peut contenir un ou plusieurs mots, séparés par une virgule.

j'ai généré une macro qui ne me satisfait pas car elle ne prend pas en compte toutes les solutions, du fait qu'il y ait plusieurs mots dans les cellules.
La voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub ESPACES_PALAIS_ROUGES()
'
' ESPACES_PALAIS_ROUGES Macro
'
 
'
    Cells.Select
    Cells.FormatConditions.Delete
    Cells.Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=OU($W1=""ROTONDE"";$W1=""POURTOUR,ROTONDE"";$W1=""CONF"";$W1=""ROTONDE,POURTOUR"";$W1=""CONF,POURTOUR"";$W1=""ONF,SALLE13"";$W1=""ELECTRO,PLANE,ROTONDE"")"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16777024
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Range("H6").Select
End Sub

Il me faudrait une macro où quand on trouve les mots ELECTRO, CONF, PLANETES, POURTOUR, ROTONDE, SALLE13 dans les cellules de la colonne W, alors la ligne se colore. J'ai essayé avec la fonction cherche et ou mais cela ne fonctionne pas.

Merci de votre aide, j'avoue que je suis un peu perdue !!!!!
A très vite

[SfJ5Rpw8]

Bonjour,

pas besoin de macro pour créer une mise en forme conditionnelle ....

Pour ta recherche tu peu utiliser la fonction EQUIV qui renvoi d'élément lors d'une recherche dans une plage ou N/A si pas trouvé ...

Par exemple tu met en N1..N4 la liste de tes mots à chercher ...

et pour la colonne W tu utilise la formule suivante dans ta mise en forme conditionnelle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NON(ESTNA(EQUIV(W1;$N$1:$N$4;0)))

[versnath]

Bonjour

Merci pour cette réponse rapide mais cela ne sélectionne pas lorsqu'il y a plusieurs mots dans la même cellule.

Cf la pièce jointe.
Ce qui est entouré aurait dû être mis en rouge.

La mise en forme conditionnelle a été appliquée aux cellule ne contenant qu'un seul mot

[Marc-L]

Bonjour versnath,

si vraiment besoin d'une macro (facile pourtant avec la méthode Range.Find), joindre un classeur
en précisant si c'est toute la ligne qui doit être coloriée et quelle couleur utiliser …

[SfJ5Rpw8]

... cela ne sélectionne pas lorsqu'il y a plusieurs mots dans la même cellule....

cela ce n'était pas dans énoncé du départ (ni dans le code ...) on peu passer par la fonction CHERCHE et la fonction OU où bien une simple addition :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NON(ESTERR(CHERCHE($N$1;W1)))+NON(ESTERR(CHERCHE($N$2;W1)))+NON(ESTERR(CHERCHE($N$3;W1)))+NON(ESTERR(CHERCHE($N$4;W1)))+NON(ESTERR(CHERCHE($N$5;W1)))+NON(ESTERR(CHERCHE($N$6;W1)))

[78chris]

Bonjour

Autre formule un soupçon plus courte avec la liste des mots à chercher en colonne AB

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NB.SI($W1;"*"&$AB$1&"*")+NB.SI($W1;"*"&$AB$2&"*")+NB.SI($W1;"*"&$AB$3&"*")+NB.SI($W1;"*"&$AB$4&"*")+NB.SI($W1;"*"&$AB$5&"*")+NB.SI($W1;"*"&$AB$6&"*")

[versnath]

Merci pour vos réponses, cela fonctionne parfaitement
Encore merci de votre aide

Cordialement