masquer des lignes

[marmotte]

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

 

[Minick]

Salut,
Ya plus simple

Essai ca

Private Sub CommandButton1_Click()
Sheets("Feuil1").Range("A1:A20").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden=True
End Sub

@+
Minick

PS: Cette solution a deja été donné a plusieur reprise, pense a faire des recherche ( c fait pour ca)

 

[michel]

Bonjour Marmotte

Tu peux essayer cette procedure pour masquer les lignes.
Dans la plage (A1:A20), si une valeur est vide ou égale à 0 la ligne est masquée
J'espere que cela correspondra à ta demande

Private Sub CommandButton1_Click()
Dim val
For Each val In Range("a1:a20")
If val.Value = 0 Or val.Value = "" Then
Range("A" & val.Row).Select
Selection.EntireRow.Hidden = True
End If
Next
End Sub


Pour l'air frais, il faut tester la procédure ci dessous

Private Sub CommandButton1_Plouf( palme et tuba as variant)
If temperature> 35° then
Maillot de bain.select
Piscine.Plongeon= true
End if
End sub

Bonne apres midi
Michel

 

[michel]

bonjour Minick

excuse moi je n'avais pas vu ta réponse

Michel

 

[marmotte]

re bonjour a vous

merci pour la formule de michel ca marche impec

pour la formule de minick j'ai essayer mais j'ai pas reussi a la faire marcher enfin le principal c'est que ca marche maintenant



pour ce qui est de la recherche j'ai essayer ,j'ai trouver plusieurs truc, j'ai essayer de les faire marcher et si je suis intervenu sur le forum c'est que je n'y arrivait pas .


ce qui serait bien c'est de mettre si possible la procedure complete de la boucle car certain comme moi qui sont faible en VBA (voir super novice) peuvent ensuite apprendre


excuser moi de vous avoir deranger mais merci de la reponse

marmotte

pour la macro air frais ca marche pas il fait plus chaud encore losqu'elle fonctionne

 

[Minick]

re marmotte,

ce que je t donné c'est la procedure complete.

En seulement 1 ligne de code tu peux masquer toutes les lignes vides en colonne A( dans l'exemple entre A1 et A20)

@+

Minick