XL 2016 Supprimer Colonnes

KTM

XLDnaute Occasionnel
Bonsoir chers tous
Je voudrais par macro supprimer les colonnes allant de la Colonne F à la dernière colonne utilisée de ma feuille
Merci
 

Staple1600

XLDnaute Barbatruc
Re

C'est ce que je viens de faire
Et après quelques modifs, je suis arrivé à cette macro
VB:
Sub Suppression_ColF()
Dim dc$
dc = Split(Cells(1, Columns.Count).End(xlToLeft).Address(4), "$")(1)
Range("F:" & dc).Delete Shift:=xlToLeft
End Sub
NB: Fonctionne si la ligne 1 est une ligne d'entête (et donc non vide)
 

job75

XLDnaute Barbatruc
Bonjour KTM, JM,

Tu m'étonnes JM :
VB:
Columns(6).Resize(, Columns.Count - 5).Delete
Bonne journée.
 

Staple1600

XLDnaute Barbatruc
Re

=>KTM
Pour autant tu pouvais également me saluer, non ?
Voir même tester le code que je proposais puisque celui-ci apparaissant dans le message#3... :rolleyes:
Et enfin évidemment choisir le code de job75 qui est beaucoup plus simple (qui lui apparaît dans le message#4)
 

KTM

XLDnaute Occasionnel
Re

=>KTM
Pour autant tu pouvais également me saluer, non ?
Voir même tester le code que je proposais puisque celui-ci apparaissant dans le message#3... :rolleyes:
Et enfin évidemment choisir le code de job75 qui est beaucoup plus simple (qui lui apparaît dans le message#4)
Autant pour moi Staple1600
je n'ai rien négligé crois-moi.Merci
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas