[Résolu] Effacer colonne avec macro

[AreYouBush]

Bonsoir,

J'en profite, vous avez l'air d'être calé ici

J'effectue des requêtes via le programme de mon boulot sous forme de fichier Excel.

Le problème c'est que dans ce fichier il y a des colonnes avec des infos qui ne me servent à rien et je perd énormément de temps à les supprimer pour rendre ma requête plus digeste.

Je voulais savoir, si il existe un moyen avec une macro et une combinaison de touche (alt k) par exemple, de supprimer totalement la colonne A, B, C, ?

Merci.

 

[Softmama]

Re : Effacer colonne avec macro

Oui, tu entres ceci dans un module Standard (ALT+F11 / Insertion / Module )

Sub EffaceMoiToutCa()
ActiveSheet.Range("A:C").Delete
End Sub

Puis tu fais alt+F8 et tu sélectionnes la macro / Options... / et tu affectes un raccourci clavier (ALT+K) par exemple.

 

[JCGL]

Re : Effacer colonne avec macro

Bonjour à tous,

Peux-tu essayer :

Columns("A:C").Delete Shift:=xlToLeft

A+ à tous

 

[AreYouBush]

Re : Effacer colonne avec macro

merci je test et je vous dis ca

 

[Fred0o]

Re : Effacer colonne avec macro

Bonsoir à tous,

En complément du code de Softmama JCGL, tu peux également tester ceci :

Columns("A:C").Clear

Ceci aura pour avantage de vider les colonnes sans les supprimer.

A+

 

[AreYouBush]

Re : Effacer colonne avec macro

Merci beaucoup.

Les 2 méthodes fonctionnent à merveille.

Vous pouvez pas vous imaginer à quel point vous allez améliorer mon quotidien.

Bisous

 

[AreYouBush]

Re : Effacer colonne avec macro

Je prend aussi Fred0o (on sait jamais),

Mais la suppression de la colonne est bien l'objectif recherché.

Merci encore. Vraiment très efficace ce forum.

 

[AreYouBush]

Re : Effacer colonne avec macro

JCGL j'ai bien compris le fonctionnement de la macro de softmama "ActiveSheet.Range("A:C").Delete", par contre la tienne qui marche tout aussi bien j'ai du mal à décrypter le "Shift:=xlToLeft"