Discussion :

[Yamiral]

Bonjour,

Existe-il une macro pour traduire cette requette :

Cacher les lignes qui ne contiennent pas la valuer de la cellule A1

je connait la formule pour cacher les lignes, mais je n'arrive à rien de probant concernant la suite !

une idée ??

[jfontaine]

Bonjour,

la valeur cherchée est dans une colonne spécifique ou dans n'importe quelle colonne de la ligne ?

[Daniel.C]

Bonjour,

Dans n'importe quelle colonne, sur la ligne ?

[Yamiral]

Bonjour,

Merci pour l'interet et le temps que vous accordez à mon post !

Les deux solutions sont possible, on va donc aller au plus simple :

Elle sont dans la même colonne.

Cordialement.

[Daniel.C]

Pour n'importe quelle colonne de la ligne :

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
    Dim DerLigne As Long
    DerLigne = Cells.Find("*", , , , , xlPrevious).Row
    For i = DerLigne To 1 Step -1
        If Application.CountIf(Rows(i), [A1]) = 0 Then
            Rows(i).Hidden = True
        End If
    Next i
End Sub

[Yamiral]

Merci pour l'info,

j'ai par contre du mal a la mettre en fonction, il me cache toute les valeurs.

j'ai adapté la formule au tableau, donc rechercher la valeur de la cellule A4.

Voici le document en Pj, ce sera peut être plus parlant.

[Daniel.C]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton2_Click()
 
 
    Dim DerLigne As Long
    DerLigne = Cells.Find([A4].Value, , , xlPart, xlByRows, xlPrevious).Row
    For i = DerLigne To 6 Step -1
        If Application.CountIf(Rows(i), [A4] & "*") = 0 Then
            Rows(i).Hidden = True
        End If
    Next i
End Sub

Tu aurais dû dire que la valeur cherchée se trouvait à l'intérieur d'une cellule.