Selectionner certaines colonnes

[anisbens45]

Bonjour a tous, je suis nouveau sur le forum,

Tout d'abord, je m'excuse d'avance pour les accents manquants, j'ecris avec un clavier qwerty.

Je programme une macro qui a la fin, ne selectionne que l'information "importante". Pour ce faire, je veux qu'elle ne renvoie que certaines colonnes de mon tableau initial.

J'ai essaye plusieurs choses puis j'ai fini sur une methode super bourrin mais qui ne marche toujours pas.

Voici la methode super bourrin (elle a le merite de bien montrer ce que je veux faire) :

Sheets("Sheet3").Select
Columns("C:C").Delete Shift:=xlToLeft

Columns("D:D").Delete Shift:=xlToLeft

Columns("E:E").Delete Shift:=xlToLeft

Columns("F:F").Delete Shift:=xlToLeft

Columns("G:G").Delete Shift:=xlToLeft

Columns("H:H").Delete Shift:=xlToLeft

Columns("J:J").Delete Shift:=xlToLeft

Columns("K:K").Delete Shift:=xlToLeft

Columns("L:L").Delete Shift:=xlToLeft

Columns("M:M").Delete Shift:=xlToLeft

Columns("N:N").Delete Shift:=xlToLeft

Columns("O:O").Delete Shift:=xlToLeft

Columns("P:P").Delete Shift:=xlToLeft

Columns("R:R").Delete Shift:=xlToLeft

Columns("T:T").Delete Shift:=xlToLeft

Columns("U:U").Delete Shift:=xlToLeft

Columns("V:V").Delete Shift:=xlToLeft

Columns("X:X").Delete Shift:=xlToLeft

Columns("Y:Y").Delete Shift:=xlToLeft

Columns("Z:Z").Delete Shift:=xlToLeft

Columns("AA:AA").Delete Shift:=xlToLeft

Columns("AB:AB").Delete Shift:=xlToLeft

Columns("AD:AD").Delete Shift:=xlToLeft

Columns("AE:AE").Delete Shift:=xlToLeft

Columns("AF:AF").Delete Shift:=xlToLeft

Columns("AG:AG").Delete Shift:=xlToLeft

Columns("AH:AH").Delete Shift:=xlToLeft

Columns("AI:AI").Delete Shift:=xlToLeft

Columns("AJ:AJ").Delete Shift:=xlToLeft

Columns("AK:AK").Delete Shift:=xlToLeft

Columns("AL:AL").Delete Shift:=xlToLeft

Columns("AM:AM").Delete Shift:=xlToLeft

Columns("AN:AN").Delete Shift:=xlToLeft

Columns("AV:AV").Delete Shift:=xlToLeft

Columns("AW:AW").Delete Shift:=xlToLeft

Columns("AX:AX").Delete Shift:=xlToLeft

Quelqu'un a une idee pour programmer ce que je veux faire (ie supprimer cette vingtaine de colonnes) ?

Merci d'avance,

Cordialement.

 

[pijaku]

Re : Selectionner certaines colonnes

Bonjour,
Ta macro ne peux pas faire ce que tu souhaites. Prends là étape par étape :
Columns("C:C").Delete Shift:=xlToLeft
Cette ligne supprime la colonne C. Donc la colonne D devient C, la colonne E devient D
Columns("D😀").Delete Shift:=xlToLeft
Ici, tu veux supprimer l'ancienne colonne D. Or maintenant cette colonne est la colonne C. Cette ligne supprime effectivement l'ancienne colonne E, ce qui n'est pas du tout ce que tu désires....
Pour contrer cela, commencer la suppression des colonnes par la dernière en revenant à la première :

Columns("AX:AX").Delete Shift:=xlToLeft
Columns("AW:AW").Delete Shift:=xlToLeft
Columns("AV:AV").Delete Shift:=xlToLeft
Columns("AU:AU").Delete Shift:=xlToLeft
etc...
Columns("E:E").Delete Shift:=xlToLeft
Columns("D😀").Delete Shift:=xlToLeft
Columns("C:C").Delete Shift:=xlToLeft

😀 = deux points et D....

 

[Pierrot93]

Re : Selectionner certaines colonnes

Bonjour,

un exemple à compléter :

Range("C:H,J:P,R:R,T:V").Delete

bon après midi
@+