Discussion :

[Esmax666]

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 :

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

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 :

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

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

[alsimbad]

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

[Esmax666]

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 :/

[Gorfael]

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 :

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

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+