XL 2016 Suppression Colonnes

[KTM]

Bonsoir Forum
J'ai un tableau dont les entêtes sont sur la ligne 2
je voudrais supprimer toutes les colonnes dont les entêtes sont =0

 

[job75]

Bonsoir KTM,

Une solution VBA :

Sub SupCol()
Rows(2).Replace 0, "", xlWhole
On Error Resume Next 'si aucune SpecialCell
Rows(2).SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
End Sub

Bonne nuit.

 

[KTM]

Bonsoir KTM,

Une solution VBA :

Sub SupCol()
Rows(2).Replace 0, "", xlWhole
On Error Resume Next 'si aucune SpecialCell
Rows(2).SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
End Sub

Bonne nuit.

Je ne vous remercierai jamais assez, job75