Masquer / afficher de slignes
j
bobjour,
j'ai la macro suivant pour masquer les lignes jusqu'à la 56
Sub Masquer()
Dim I As Long
I = 1
Do While I < 58
If Cells(I, 1).Value = "" Then
Cells(I, 1).EntireRow.Hidden = True
End If
I = I + 1
Loop
End Sub
je n'arrive pas à refaire pour masquer entre la 20 et la 30! et même chose pour démasquer
Merci à vous
Salut,
Pour masquer les lignes 20 à 30 avec la même condition, tu peux utiliser le code suivant :
Sub Masquer()
Dim I As Long
I = 20
Do While I < 31
If Cells(I, 1).Value = "" Then
Cells(I, 1).EntireRow.Hidden = True
End If
I = I + 1
Loop
End SubPour rouvrir les lignes il faudrait utiliser un code
EntireRow.Hidden = Falsemais tu dois indiquer à quelles conditions tu veux les rouvrir (ou tu désires rouvrir toutes les lignes sans conditions?).
Cordialement.
j
juste ré ouvrir ce que j'ai caché !
Merci les gars pour votre précieuse aide!
Re,
Sub Ouvrir_lignes()
Rows("20:30").Hidden = False
End SubA adapter à tes besoins.
Bonne soirée.