Discussion :

[Cirrus22]

Bonjour à Tous,

Après avoir effectué un tri des lignes de mon tableau, je souhaite MASQUER toutes les colonnes dont les cellules sont vides (peut-être avec la fonction SOUS.TOTAL(103;zone sélection)=0 ?) en lançant une macro. Quelle est la bonne solution ?

Merci de vos réponses,

Cirrus22

[Antoniom]

Hello,

Une macro pour effacer les colonnes vides.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
 
    Dim c
 
    Application.ScreenUpdating = False
 
    For c = 256 To 1 Step -1
        If Cells(65536, c).End(xlUp).Row = 1 Then Cells(1, c).EntireColumn.Delete
    Next c
 
End Sub

Bonne fêtes... à tous !

Anto.

[LeForestier]

Bonjour,
ATTENTION, tu dis MASQUER or Delete SUPPRIME,

Code :

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

       If Cells(65536, c).End(xlUp).Row = 1 Then Cells(1, c).EntireColumn.Hide = True 'ou VRAI, ca dépend de la configuration d'excel.

A+
EDIT:
Pour les réafficher..

Code :

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

    Columns(1, 256).Hide = False

[Cirrus22]

Merci à Vous, je teste vos solutions,

Bonne fêtes également à Tous