anisbens45
XLDnaute Nouveau
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) :
Quelqu'un a une idee pour programmer ce que je veux faire (ie supprimer cette vingtaine de colonnes) ?
Merci d'avance,
Cordialement.
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) :
HTML:
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.