Bonjour,
j'ai un petit soucis avec le code ci-dessous :
Avec ce code j'arrive à sélectionner la bonne ligne en fonction de mon critère TOTO, le problème est que j'ai un tableau avec n colonnes et n lignes, du coup j'ai mis en place une liste que j'ai appelé "Liste1_23".
Le code précédent met en couleur toute la ligne sélectionnée, alors que je veux limité la sélection jusqu'a la colonne n de ma liste.
Quand j'essaye de limiter la sélection à la liste1_23, les lignes surlignées s'arrêtent bien à la dernière colonne de ma liste mais la sélection est complètement fausse.
Ce qui est étrange c'est que le "p" qui est renvoyé en msgbox correspond aux bonnes lignes
Afin de comprendre tout seul, j'ai fouillé un peu le forum sans succès et consulté le site :
Ce lien n'existe plus
Si quelqu'un à une idée je suis preneur,
Merci d'avance
j'ai un petit soucis avec le code ci-dessous :
Code:
Sub Couleurliste()
Dim p As Long
On Error Resume Next
For p = Range("B65536").End(xlUp).row To 1 Step -1
If InStr(1, Cells(p, 2).Value, "TOTO", vbTextCompare) Then
MsgBox ("verif n° ligne : " & p)
Rows(p).Interior.ColorIndex = 3
End If
Next p
End Sub
Avec ce code j'arrive à sélectionner la bonne ligne en fonction de mon critère TOTO, le problème est que j'ai un tableau avec n colonnes et n lignes, du coup j'ai mis en place une liste que j'ai appelé "Liste1_23".
Le code précédent met en couleur toute la ligne sélectionnée, alors que je veux limité la sélection jusqu'a la colonne n de ma liste.
Quand j'essaye de limiter la sélection à la liste1_23, les lignes surlignées s'arrêtent bien à la dernière colonne de ma liste mais la sélection est complètement fausse.
Code:
Range("Liste1_23").Rows(p).Interior.ColorIndex = 3
Ce qui est étrange c'est que le "p" qui est renvoyé en msgbox correspond aux bonnes lignes
Afin de comprendre tout seul, j'ai fouillé un peu le forum sans succès et consulté le site :
Ce lien n'existe plus
Si quelqu'un à une idée je suis preneur,
Merci d'avance