M
mike
Guest
Bonjour à tous,
J'ai une formule qui me permet de chercher un mot et qui rempli la cellule quand le mot est trouvé de couleur rouge et si un autre mot est trouvé il passe à la cellule suivante en enlevant la couleur rouge de la precedent cellule pour mettre la couleur dans cette nouvelle cellule. Ci joint le fichier pour mieux comprendre. Mais le probleme c'est que depuis si je veux faire un copier/coller sur une cellule pas de probleme mais si je veux copier un nom par exemple "toto" sur plusieur ligne d'affiler ce n'est pas possible, alors si j'enleve la formule:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim Cell
For Each Cell In Columns("b:d")
If Cell.Address <> Target.Address Then
Cell.Interior.ColorIndex = xlNone
End If
Next
End Sub
ça marche mais là par contre il mets bien la couleur rouge sur le mot trouvé mais il ne l'enleve pas quand il trouve un autre mot. Donc je pense que cela vient de cette formule ci-dessus, mais je n'arrive pas à trouver la solution pour regler ce probleme. Et c'est pour cela que je fais appel à vous.
D'avance merci pour votre aide et vos reponse,
mike
J'ai une formule qui me permet de chercher un mot et qui rempli la cellule quand le mot est trouvé de couleur rouge et si un autre mot est trouvé il passe à la cellule suivante en enlevant la couleur rouge de la precedent cellule pour mettre la couleur dans cette nouvelle cellule. Ci joint le fichier pour mieux comprendre. Mais le probleme c'est que depuis si je veux faire un copier/coller sur une cellule pas de probleme mais si je veux copier un nom par exemple "toto" sur plusieur ligne d'affiler ce n'est pas possible, alors si j'enleve la formule:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim Cell
For Each Cell In Columns("b:d")
If Cell.Address <> Target.Address Then
Cell.Interior.ColorIndex = xlNone
End If
Next
End Sub
ça marche mais là par contre il mets bien la couleur rouge sur le mot trouvé mais il ne l'enleve pas quand il trouve un autre mot. Donc je pense que cela vient de cette formule ci-dessus, mais je n'arrive pas à trouver la solution pour regler ce probleme. Et c'est pour cela que je fais appel à vous.
D'avance merci pour votre aide et vos reponse,
mike