Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
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" a écrit dans le message de news:
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
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" <djuone@free.fr> a écrit dans le message de news:
793D879A-E5B8-4B8B-9C19-B2AB816CAE8A@microsoft.com...
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 ?
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" a écrit dans le message de news:
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
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" a écrit dans le message de news:
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
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" <djuone@free.fr> a écrit dans le message de news:
793D879A-E5B8-4B8B-9C19-B2AB816CAE8A@microsoft.com...
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 ?
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" a écrit dans le message de news:
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 ?