Colorer cellule contenant un terme
floker820
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai un léger problème en vba. Je souhaite écrire une macro qui colorerait une cellule en jaune si elle contient "#CL#". Voici ci dessous le code que j'ai ecrit pour le moment. Le point positif, c'est que ça ne plante pas, le point négatif c'est que ça ne marche pas. Il ne se passe rien...du tout. C'est comme si je n'avais rien lancé. Comme si ma macro n'avait jamais existée.
Sub test()
With Worksheets("Feuil1")
nbcol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
For curseur = nbcol To 1 Step -1
If Cells(1, curseur) Like "#CL#" Then
Cells(1, curseur).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Next curseur
End With
End Sub
Quelqu'un pourrait-il me dire à quel endroit je fais une erreur svp ?
Merci
J'ai un léger problème en vba. Je souhaite écrire une macro qui colorerait une cellule en jaune si elle contient "#CL#". Voici ci dessous le code que j'ai ecrit pour le moment. Le point positif, c'est que ça ne plante pas, le point négatif c'est que ça ne marche pas. Il ne se passe rien...du tout. C'est comme si je n'avais rien lancé. Comme si ma macro n'avait jamais existée.
Sub test()
With Worksheets("Feuil1")
nbcol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
For curseur = nbcol To 1 Step -1
If Cells(1, curseur) Like "#CL#" Then
Cells(1, curseur).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Next curseur
End With
End Sub
Quelqu'un pourrait-il me dire à quel endroit je fais une erreur svp ?
Merci
A voir également:
- Vba recherche cellule contenant valeur
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Excel compter cellule couleur sans vba - Guide
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Recherche photo - Guide
2 réponses
Bonjour,
Puisque tu utilises un
Ensuite utilise plutôt la fonction Instr() pour rechercher une chaîne de caractères dans une autre chaîne de caractères. Evites aussi l'utilisation de .Select, tu peux très bien faire
Puisque tu utilises un
With Worksheets("Feuil1") il te faut un point devant chaque Cells.
Ensuite utilise plutôt la fonction Instr() pour rechercher une chaîne de caractères dans une autre chaîne de caractères. Evites aussi l'utilisation de .Select, tu peux très bien faire
With .Cells(1, curseur).Interior
Super!! Merci.
Cela fonctionne désormais.
Juste par curiosité, saurais-tu comment faire pour repérer #CL# même si ce terme n'est pas au début de la cellule stp? Pour le moment il repère les cellules ne possédant que "#CL#" ou "#CL#blablabla"
J'utilise ta fonction de cette façon:
InStr(Cells(1, curseur), "#CL#") = 1
Cela fonctionne désormais.
Juste par curiosité, saurais-tu comment faire pour repérer #CL# même si ce terme n'est pas au début de la cellule stp? Pour le moment il repère les cellules ne possédant que "#CL#" ou "#CL#blablabla"
J'utilise ta fonction de cette façon:
InStr(Cells(1, curseur), "#CL#") = 1
