Masquer des lignes vides

Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Entraide Applications Microsoft Office Excel Masquer des lignes vides

2 réponses

Philou36

15/10/2009 à 05:47

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

2 réponses

Philippe.R

15/10/2009 à 06:14

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" a écrit dans le message de
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

15/10/2009 à 11:44

On 15 oct, 06:14, "Philippe.R" <AS_rauphil_chez_wanadoo.fr> wrote:

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" a écrit dans le message denews:%239cKzoUTKHA

> 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

Masquer des lignes vides

2 réponses

Veuillez sélectionner un problème