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

XL 2016 Suppression Colonnes

KTM

XLDnaute Impliqué

job75

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency