Discussion :

[dlight]

Bonjour à tous. j'ai à nouveau besoin d'aide...

Je cherche à masquer une ligne si l'information dans la colonne E de cette ligne est 0. La boucle doit s'exécuter jusqu'à ce que dans la colonne E il n'y aie une cellule vide dans la colonne E.

Voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
'
   Range("E6").Select
 
   Do While ActiveCell.Value <> Empty
        If ActiveCell.Value = 0 Then
            activerow.Select
    Selection.EntireRow.Hidden = True
    End If
    ActiveCell.Offset(1, 0).Activate
    Loop
 
End Sub

Actuellement, pour faire mon test j'ain inscrit 1 dans E6 et E7 puis les 3 autres lignes suivantes j'ai inscrtit 0.

Le code fonctionne bien pour les 2 lignes avec le 1 mais à la suivante il termine le code.

Merci pour votre aide

dlight

[mercatog]

Tu peux utiliser éventuellement un filtre
sinon, un code par boucle sur ta colonne E

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Cach()
Dim LastLig As Long, i As Long
 
With Sheets("Feuil1")
    LastLig = .Cells(.Rows.Count, "E").End(xlUp).Row
    For i = 1 To LastLig
        If .Range("E" & i).Text = "0" Then .Rows(i).Hidden = True
    Next i
End With
End Sub

[dlight]

Merci encore une fois pour vos judicieux conseils mercatog.

C'est encore une fois parfait !

Pour ma culture personnelle, J'ai essayer de faire la même chose mais pour masquer les colonnes mais ça ne fonctionne pas.

Voci ce qu j'ai essayé:

Code :

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

1
2
3
4
5
6
With Sheets("Transactions")
    LastCol = .Cells(.Column.Count, "50").End(xlRight).Column
    For i = 1 To LastCol
        If .Range("50" & i).Text = "2" Then .Column(i).Hidden = True
    Next i
End With

Merci encore une fois !

[mercatog]

Tu cherches sur la ligne 50?

Code :

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

1
2
3
4
5
6
7
8
Dim LastCol As Integer, i As Integer
 
With Sheets("Feuil1")
    LastCol = .Cells(50, .Columns.Count).End(xlToLeft).Column
    For i = 1 To LastCol
        If .Cells(50, i).Value = 2 Then .Columns(i).Hidden = True
    Next i
End With

[dlight]

Merci encore une fois pour votre temps mercatog.

dlight