[XL-2007] Cacher des lignes [Résolu]

[crebuffet]

Bonjour,

Je souhaite cacé des lignes en "automatique" avec une macro. Dans un tableau excel, j'ai une colonne qui contient des valeurs (0 ou 1). je souhaite cacher toutes les lignes qui contiennent la valeurs "0".

merci de votre aide.

christophe

[ZebreLoup]

Tu boucles sur toutes tes lignes et quand il y a un 0 tu fais

Code :

Rows(i).Hidden = True

Où i est le numéro de la ligne

En imaginant que la colonne C contienne les 0/1 :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'Macro à lancer lorsque ta feuille est active
Public Sub CacherLignes()
    Dim i As Integer
    Dim col01 As Integer
 
    col01 = 3 'A changer en fonction de la colonne contenant les 0/1
    i = 1
 
    While Cells(i, col01) <> ""
        If Cells(i, col01).Value = 0 Then
            Rows(i).Hidden = True
        End If
        i = i + 1
    Wend
End Sub