M
marmotte
Guest
bonjour a vous
je voudrais cacher des lignes ayant une valeur 0 ou vide , j'ai bien trouver un code que je met dessous mais je n'arrive pas a le faire marcher pour masquer mes lignes et je vois pas ou est le probleme
Private Sub CommandButton1_Click()
Dim L As Integer
Dim i As Integer
L = Sheets("feuil1").Range("A1:a20").Row
For i = 1 To L
If Range("A" & L).Value = 0 Then
Range("A" & L).EntireRow.Hidden = True
End If
Next i
End Sub
dans l'attente
marmotte
ps: vous pouvez envoyer un peu d'air frais en meme temps
je voudrais cacher des lignes ayant une valeur 0 ou vide , j'ai bien trouver un code que je met dessous mais je n'arrive pas a le faire marcher pour masquer mes lignes et je vois pas ou est le probleme
Private Sub CommandButton1_Click()
Dim L As Integer
Dim i As Integer
L = Sheets("feuil1").Range("A1:a20").Row
For i = 1 To L
If Range("A" & L).Value = 0 Then
Range("A" & L).EntireRow.Hidden = True
End If
Next i
End Sub
dans l'attente
marmotte
ps: vous pouvez envoyer un peu d'air frais en meme temps