Discussion :

[sofmat74]

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.
macro_plan.xlsm

[ARTURO83]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[a_diard]

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

[Invité]

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

Vous devriez avoir les réponses

[sofmat74]

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.

[sofmat74]

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 :



Avez-vous une solution ? Merci beaucoup !

[a_diard]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 For i = 191 To 3 Step -1

a la place de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 For i = 191 To 1 Step -1