masquer des lignes

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)

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

bonjour Minick

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

Michel

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

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