XL 2016 Suppression Colonnes

KTM · 19 Mars 2020

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 · 19 Mars 2020

Bonsoir KTM,

Une solution VBA :

VB:

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 · 19 Mars 2020

job75 à dit:
Bonsoir KTM,

Une solution VBA :

VB:

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

XL 2016 Suppression Colonnes

KTM

XLDnaute Impliqué

job75

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

Discussions similaires