Masquer des lignes vides

Le
Philou36
Bonjour les amis,
Je suis en train de monter un projet de simulateur de paie. J'essaie de
faire quelque chose d'assez complet et voila mon probleme :
il a des lignes concernant le traitement, les charges qui ne sont pas
valorisés et je voudrais masqués ces lignes, est ce jouable ?
Un grand merci a vous par avance.
Bonne journée
Philippe
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
Philippe.R
Le #20352751
Bonjour,

Un truc comme ça ?

Sub cachelig()
Dim lacol As Integer, lalig As Long, z As Long
lacol = Selection.SpecialCells(xlLastCell).Column
lalig = Selection.SpecialCells(xlLastCell).Row
Range(Cells(1, 1), Cells(lalig, lacol)).EntireRow.Hidden = False
For z = lalig To 1 Step -1
If Application.WorksheetFunction.CountA(Range(Cells(z, 1), _
Cells(z, lacol))) = 0 Then
Cells(z, 1).EntireRow.Hidden = True
End If
Next z
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"Philou36" news:%
Bonjour les amis,
Je suis en train de monter un projet de simulateur de paie. J'essaie de
faire quelque chose d'assez complet et voila mon probleme :
il a des lignes concernant le traitement, les charges... qui ne sont pas
valorisés et je voudrais masqués ces lignes, est ce jouable ?
Un grand merci a vous par avance.
Bonne journée
Philippe



Calou
Le #20353901
On 15 oct, 06:14, "Philippe.R"
Bonjour,

Un truc comme ça ?

Sub cachelig()
Dim lacol As Integer, lalig As Long, z As Long
lacol = Selection.SpecialCells(xlLastCell).Column
lalig = Selection.SpecialCells(xlLastCell).Row
Range(Cells(1, 1), Cells(lalig, lacol)).EntireRow.Hidden = False
For z = lalig To 1 Step -1
    If Application.WorksheetFunction.CountA(Range(Cells(z, 1), _
        Cells(z, lacol))) = 0 Then
        Cells(z, 1).EntireRow.Hidden = True
    End If
Next z
End Sub

--
Avec plaisirhttp://dj.joss.free.fr/trombine.htmhttp://jacxl.free.fr/mpfe/ trombino.html
Philippe.R
Pour se connecter au forum :http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"Philou36"


> Bonjour les amis,
> Je suis en train de monter un projet de simulateur de paie. J'essaie de
> faire quelque chose d'assez complet et voila mon probleme :
> il a des lignes concernant le traitement, les charges... qui ne sont pa s
> valorisés et je voudrais masqués ces lignes, est ce jouable ?
> Un grand merci a vous par avance.
> Bonne journée
> Philippe- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -



Bonjour Philippe (quel beau prénom !!)
Je testerai tout ca ce soir et je te tiens au courant.
Mille mercis d'avoir pris le temps de te pencher sur mon probleme.
Bonne journée
Philippe
Publicité
Poster une réponse
Anonyme