masquer lignes quand certaines cellules sont vides

[666hands]

Bjr à tous,
je suis en train d'effectuer un carnet de légende (excel 07), lequel comporte un peut plus de 80 pages, c pourquoi je souhaiterai masquer automatiquement les lignes pour lesquelles les cellules sont vides, afin d'en limiter le nombre de pages
Problème, aucune idée de la manière de proceder !
Par avance merci pour toutes aide eventuelles.

 

[BOISGONTIER]

Re : masquer lignes quand certaines cellules sont vides

Bonjour,

Vides en colonne A

On Error Resume Next
Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

JB
Formation Excel VBA JB

 

[666hands]

Re : masquer lignes quand certaines cellules sont vides

merci pour ta réponse , mais je n est pas compris ! mon niveau n est vraiment pas bon...

 

[vbacrumble]

Re : masquer lignes quand certaines cellules sont vides

Bonjour


La réponse de Boisgontier est un code VBA
à insérer dans un module standard
(Outils/Macros/Visual Basic Editor-> Insertion/Module
Y coller le code suivant

Sub MasquerA()
On Error Resume Next
Range("A:A").SpecialCells(xlCellTypeBlanks).Entire Row.Hidden = True
End sub

Puis retourner dans Excel

Et exécuter la macro en faisant outils/macros

A+

 

[666hands]

Re : masquer lignes quand certaines cellules sont vides

désolé,
j ai appliqué la macro mais j ai un message erreur au moment de l'exécution : erreur d'exécution "28", espace pile insuffisant?
Je ne sais pas de quoi cela vient et aucune idée de la manière d'y remédier

 

[vbacrumble]

Re : masquer lignes quand certaines cellules sont vides

Re



Essayes cette autre macro

Sub MasquerA()
Dim DC As Long: Dim DL As Long
Dim i As Long: Dim p As Range
DC = ActiveSheet.UsedRange.Columns.Count
DL = ActiveSheet.UsedRange.Rows.Count
For i = 1 To DL
Set p = Cells(i, 1).Resize(, DC)
If Application.WorksheetFunction.CountBlank(p) > 0 Then
p.EntireRow.Hidden = True
End If
Next
End Sub

A+

 

[666hands]

Re : masquer lignes quand certaines cellules sont vides ou égales à 0

tjrs pas, ca ma fait disparaitre tout le tableau, je ne comprends pas, merci de ton aide

 

[vbacrumble]

Re : masquer lignes quand certaines cellules sont vides

Re



Peux-tu poster un échantillon de ton fichier ,stp?

(avec des cellules vides)

Je te joins un fichier exemple ou tu verras que le code précédent
masque les lignes si au moins une cellule est vide.


A+

 

[666hands]

Re : masquer lignes quand certaines cellules sont vides

en effet ca marche, j ai une connerie dans la manip sur mon fichier, autre info sans trop abuser, est il possible de masquer des cellules vides ou égal a 0. Mon fichier est trop volumineux pour te l envoyer. Par avance merci

 

[vbacrumble]

Re : masquer lignes quand certaines cellules sont vides

Re

Avec cette modification, prise en compte des cellules vides et des cellules = à 0

Sub MasquerA()
Dim DC As Long: Dim DL As Long
Dim i As Long: Dim p As Range
DC = ActiveSheet.UsedRange.Columns.Count
DL = ActiveSheet.UsedRange.Rows.Count
Dim wf As WorksheetFunction
Set wf = Application.WorksheetFunction
For i = 1 To DL
Set p = Cells(i, 1).Resize(, DC)
If (wf.CountBlank(p) + wf.CountIf(p, 0)) > 0 Then
p.EntireRow.Hidden = True
End If
Next
End sub

A+

 

[Rémi FLANDRIN]

Re : masquer lignes quand certaines cellules sont vides

Bonjour,

J'ai un soucis similaire, mais un peu différent.

J'ai un tableau avec environ 300 lignes dont toutes les cases contiennent des formules (le tableau joint est une version vierge de mon tableau, il n'y a pas de formules dedans).

Dans le tableau en pièce jointe (classeur1.xlsm) je souhaiterai pouvoir masquer des lignes quand la valeur de certaines cellules sont =0.

Dans le fichier image joint (Tableau.jpg) j'ai encadré en rouge les 4 cellules qui doivent être =0 pour nécessiter que la ligne soit masqué. Il faut en plus de cela masquer les 2 lignes du dessus.

Cordialement,

Rémi