Macro pour masquer les colonnes avec cellules vides

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

Hello,

Une macro pour effacer les colonnes vides.

Code:

---

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.

Bonjour,
ATTENTION, tu dis MASQUER or Delete SUPPRIME,

Code:

---

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:

---

Columns(1, 256).Hide = False

---

Merci à Vous, je teste vos solutions,

Bonne fêtes également à Tous