Masquer des lignes vides

Le
TechBM
Bonjours à tous !!!

Je possède un planning et j'aimerais avoir une macro qui me masque toute les
lignes vide. Est-ce possible et comment ?

Merci à tous pour votre aide !!!

TechBM
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #5326811
Bonjour.
Essaie :

Sub test()
Dim Ligne As Range
With ActiveSheet
For Each Ligne In .UsedRange.Rows
If Application.CountA(Intersect(.UsedRange, Ligne)) = 0 Then
Ligne.EntireRow.Hidden = True
End If
Next
End With
End Sub

Cordialement.
Daniel
"TechBM"
Bonjours à tous !!!

Je possède un planning et j'aimerais avoir une macro qui me masque toute
les
lignes vide. Est-ce possible et comment ?

Merci à tous pour votre aide !!!

TechBM



Jacky
Le #5326791
Bonjour,

Ceci masque toutes les lignes en fonction de la dernière ligne non vide de
la colonne A si toutes les colonnes sont vides.
'----------
Sub jj()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = [a65536].End(3).Row To 1 Step -1
If Application.CountBlank(Rows(i)) = 256 Then Rows(i).Hidden = True
Next
Application.Calculation = xlCalculationAutomatic
End Sub
'------------
*Eventuellement adapter a la plage di planning: "For i =
[a65536].End(3).Row To 1 Step -1"
--
Salutations
JJ


"TechBM"
Bonjours à tous !!!

Je possède un planning et j'aimerais avoir une macro qui me masque toute
les
lignes vide. Est-ce possible et comment ?

Merci à tous pour votre aide !!!

TechBM



Publicité
Poster une réponse
Anonyme