Supprimer Colonnes Avec Macro

[Cazinos]

Bonsoir le forum,

Ma macro ne supprime que le premier bloc de colonne de "C à M"
Comment faire pour les autres colonnes ?

Je joint un fichier avec l'exemple pour plus de clarté :
Il ne doit rester que les colonnes en vert

Merci



Sub SupprimerColonnes()

Columns("C:M").Select
Selection.Delete Shift:=xlToLeft

Columns("Q:S").Select
Selection.Delete Shift:=xlToLeft

Columns("W:AB").Select
Selection.Delete Shift:=xlToLeft

Columns("AF:AG").Select
Selection.Delete Shift:=xlToLeft

Columns("BD:BD").Select
Selection.Delete Shift:=xlToLeft

Range("A1").Select

End Sub

 

[Cazinos]

Re : Supprimer Colonnes Avec Macro

pardon, voici le fichier

 

[jeanpierre]

Re : Supprimer Colonnes Avec Macro

Bonjour Cazinos,

Inverses tes suppressions, commences par : BD, ensuite AF:AG, etc

A te lire.

Jean-Pierre

 

[Cazinos]

Re : Supprimer Colonnes Avec Macro

Merci ca fonctionne