Probleme Code Macro (Affectation variable?)

Bonjour,

Je souhaiterais faire disparaitre les lignes dans ma feuille excel qui ne figure pas dans ma variable range (de 7 à 11) et celle qui ne contiennent pas linfo "AA"

Alors j'ai écris ce code

Code:

---

1 2 3 4 5 6 7 8 9 10 11

For ligne = 4 To [B65536].End(xlUp).Row If Cells(ligne, 12) <> List(7) And _ Cells(ligne, 12) <> List(8) And _ Cells(ligne, 12) <> List(9) And _ Cells(ligne, 12) <> List(10) And _ Cells(ligne, 12) <> "AA" And _ Cells(ligne, 12) <> List(11) Then   Rows(ligne).EntireRow.Hidden = True End If Next ligne

---

Par contre même si l'info dans dans le range "List(7)" est identique à la valeur de la cellule celle ci va etre caché... pourquoi ? (j'ai verifié avec le mode pas à pas)
Et t il possible que c'est a cause de la couleur de fond qui est sur la cellule ? il faudrait faire une recherche sur le texte brut de la cellule?

Code:

---

1 2 3 4 5 6 7

Windows(Ref).Activate Sheets("Ref").Select Derniereligne = Range("C65536").End(xlUp).Row ReDim List(7 To Derniereligne) As String For Num = 7 To Derniereligne List(Num) = Cells(Num, 3).Value Next Num

---

Faut il que j'affecte d'une autre facon mes variable pour juste comparer les texte brutes?


Merci

la valeur par défaut d'un cells est value, donc il compare que la vaaleur. dans ton cas, le plus probable est une difference de casse (ou un espace a la fin) entre les deux value. essaie en faisant un copier coller, tu seras sur d'avoir la même value

comme je l'ai dis avant les 2 cellules sont strictement identique, pas d'espace.... et lorsque je place le curseur sur la variable je la retrouve bien :/:?

Salut Esmax666 et le forum
tu as un test de comparaison de 6 variables, et si une seule est faux, ta formule devient faux : dans un cas comme ça, je décompose ma formule en 6 tests pour vérifier celui qui plante : tu as donc l'instruction

Code:

---

1 2 3 4 5

For ligne = 4 To [B65536].End(xlUp).Row If Cells(ligne, 12) <> List(7) Rows(ligne).EntireRow.Hidden = True End If Next ligne

---

qui te cache les lignes, même en cas d'égalité sur une copie de List(7) dans la cellule, avant le test ?
A+