Excel 2019 VBA macro masquer lignes et colonnes vides

Bonjour, J'essaie de masquer toutes les colonnes et lignes vides de mon tableau sur excel 2019. Concernant les colonnes, j'ai trouvé une macro qui fonctionne mais j'aimerai que cette macro masque également les lignes vides. J'ai testé une deuxième macro pour les lignes vides mais cela ne fonctionne pas. De plus j'aurai aimé n'avoir qu'une seule macro qui masque les lignes et les colonnes vides. Pouvez-vous m'aider ? Merci beaucoup.
Pièce jointe 636011

Bonjour,

Votre problème vient du fait que vos cellules contiennent des formules donc, aucune n'est vide. En vertical cela fonctionne parce qu'il détecte des valeurs purement numériques, alors qu'en horizontal il y a des lignes qui ne comportent que du texte(ou alphanumérique). J'ai donc modifié vos formules pour qu"elles retournent "vide" si la cellule testée est vide, de plus certaines cellules en apparence vides contiennent des espaces, donc non vides, là encore cela empêche le bon fonctionnement de la macro, il a fallu intégrer cette suppression d'espace dans la nouvelle formule qui devient:

Code:

---

=SI('vérification plan'!A1"";"";SUPPRESPACE('vérification plan'!A1))

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Sub Masquer_Lignes_Colonnes() Dim i As Integer Dim Cel As Range Dim Masquer As Boolean Application.ScreenUpdating = False   Columns("A:GI").Columns.Hidden = False Rows("1:90").Rows.Hidden = False   'masquage des lignes horizontales vides For i = 90 To 1 Step -1 Masquer = True For Each Cel In Range(Cells(i, "A"), Cells(i, "GH")) If Cel.Value <> "" Then Masquer = False Exit For End If Next Cel If Masquer Then Rows(i).Hidden = True Next i   'masquage des lignes verticales vides For i = 191 To 1 Step -1 Masquer = True For Each Cel In Cells(1, i).Resize(200).SpecialCells(xlCellTypeVisible) If Val(Cel.Value) > 0 Then Masquer = False Exit For End If Next Cel If Masquer Then Columns(i).Hidden = True Next i End Sub   [ATTACH]636030[/ATTACH]

---

Cdlt

Bonjour, ca ne fonctionne pas car dans la ligne 18 par exemple il y a 191 cellules non vides "Espace par exemple ????"

Bonjour sofmat74 et merci pour le cross posting sur au moins 4 forums :bravo:

Vous devriez avoir les réponses :roll:

Bonjour,

Je suis désolée, c'est la 1ère fois que je pose une question et je ne savais pas comment cela fonctionnait. Je le saurai pour la prochaine fois.

J'ai utilisé votre code mais j'ai une dernière question, dans ma 1ère colonne de l'onglet "vérification plan", j'ai des textes (par ex. en D4 = Groupe 1, en E4 = Ligne 1) et lorsque je cache les colonnes, cela fonctionne très bien avec les chiffres mais cela cache ces cellules qui sont du texte. Les colonnes D et E se masquent alors qu'elles ne sont pas vides.

Voilà le résultat :

Pièce jointe 636040Pièce jointe 636040

Avez-vous une solution ? Merci beaucoup !

Si je comprend bien les colonnes A et B doivent rester affichées en permanence (Titre)

Il suffit de les exclure de la macro qui masque les colonnes ????

Code:

---

For i = 191 To 3 Step -1

---

a la place de :

Code:

---

For i = 191 To 1 Step -1

---

Merci beaucoup, c'est parfait! Bonne journée