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