Problème Colonne macro

Bonjour à toute et à tous, étant novice dans ce domaine des macros et du vba, je viens vers vous pour trouver une solution précise sur des colonnes.
En effet dans la macro déjà présente et enregistrer avec l'enregistreur de macros, je vous met le bout du code ci dessus qui concerne mon problème :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82

Columns("R:T").Select Selection.Delete Shift:=xlToLeft Columns("D:D").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Columns("H:H").Select Selection.Delete Shift:=xlToLeft Columns("G:G").Select Selection.Delete Shift:=xlToLeft Columns("H:H").Select Selection.Delete Shift:=xlToLeft Columns("J:J").Select Selection.Delete Shift:=xlToLeft Columns("J:K").Select Selection.Delete Shift:=xlToLeft Columns("K:K").Select Selection.Delete Shift:=xlToLeft Columns("M:M").Select Selection.Delete Shift:=xlToLeft Columns("N:P").Select Selection.Delete Shift:=xlToLeft Columns("O:Q").Select Selection.Delete Shift:=xlToLeft Columns("T:T").Select Selection.Copy Range("ax1").Select ActiveSheet.Paste Columns("R:R").Select Selection.Copy Range("ay1").Select ActiveSheet.Paste Columns("R:U").Select Selection.Delete Shift:=xlToLeft Columns("S:Z").Select Selection.Delete Shift:=xlToLeft Columns("T:U").Select Selection.Delete Shift:=xlToLeft Columns("X:Z").Select Selection.Delete Shift:=xlToLeft Columns("Z:AE").Select Selection.Delete Shift:=xlToLeft Columns("D:D").Select Selection.Cut Columns("A:A").Select Selection.Insert Shift:=xlToRight Columns("S:S").Select Selection.Cut Columns("B:B").Select Selection.Insert Shift:=xlToRight Columns("H:H").Select Selection.Cut Columns("C:C").Select Selection.Insert Shift:=xlToRight Columns("G:H").Select Selection.Cut Columns("D:D").Select Selection.Insert Shift:=xlToRight Columns("I:J").Select Selection.Cut Columns("F:F").Select Selection.Insert Shift:=xlToRight Columns("K:K").Select Selection.Cut Columns("H:H").Select Selection.Insert Shift:=xlToRight Columns("L:L").Select Selection.Cut Columns("K:K").Select Selection.Insert Shift:=xlToRight Columns("Q:R").Select Selection.Cut Columns("M:M").Select Selection.Insert Shift:=xlToRight Columns("S:S").Select Selection.Cut Columns("P:P").Select Selection.Insert Shift:=xlToRight Columns("W:Z").Select Selection.Cut Columns("R:R").Select Selection.Insert Shift:=xlToRight Range("A1").Select

---

Comme vous pouvez le voir, on supprime, déplace, remplace des colonnes. Cette macro a pour objectif après extraction sur SAP et exportation vers Excel, de créer une sorte de tableau avec seulement ce que l'on a besoin. Je viens vers vous pour que vous puissiez me donner une solution plus optimale, en code VBA si possible pour pouvoir, soit supprimer plus simplement les colonnes dont on n'a besoin, soit avoir un code qui me fait avoir que les colonnes que j'ai besoin et ne pas faire tout ce mic-mac.
C'est compliqué à comprendre je vous l'accorde..

Merci de vos réponses et très bonne soirée !

Bonjour xszma,

tu n'as pas besoin de passer par une étape de sélection pour détruire une colonne, tu peux le faire directement.
Pareil pour le Cut/Insert.
En appliquant ça, tu arrives à ceci (déjà plus clair):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60

Application.CutCopyMode = False   Columns("R:T").Delete Shift:=xlToLeft Columns("D:D").Delete Shift:=xlToLeft Columns("H:H").Delete Shift:=xlToLeft Columns("G:G").Delete Shift:=xlToLeft Columns("H:H").Delete Shift:=xlToLeft Columns("J:J").Delete Shift:=xlToLeft Columns("J:K").Delete Shift:=xlToLeft Columns("K:K").Delete Shift:=xlToLeft Columns("M:M").Delete Shift:=xlToLeft Columns("N:P").Delete Shift:=xlToLeft Columns("O:Q").Delete Shift:=xlToLeft   Columns("T:T").Copy Range("ax1").Select ActiveSheet.Paste   Columns("R:R").Copy Range("ay1").Select ActiveSheet.Paste   Columns("R:U").Delete Shift:=xlToLeft Columns("S:Z").Delete Shift:=xlToLeft Columns("T:U").Delete Shift:=xlToLeft Columns("X:Z").Delete Shift:=xlToLeft Columns("Z:AE").Delete Shift:=xlToLeft   Columns("D:D").Cut Columns("A:A").Insert Shift:=xlToRight   Columns("S:S").Cut Columns("B:B").Insert Shift:=xlToRight   Columns("H:H").Cut Columns("C:C").Insert Shift:=xlToRight   Columns("G:H").Cut Columns("D:D").Insert Shift:=xlToRight   Columns("I:J").Cut Columns("F:F").Insert Shift:=xlToRight   Columns("K:K").Cut Columns("H:H").Insert Shift:=xlToRight   Columns("L:L").Cut Columns("K:K").Insert Shift:=xlToRight   Columns("Q:R").Cut Columns("M:M").Insert Shift:=xlToRight   Columns("S:S").Cut Columns("P:P").Insert Shift:=xlToRight   Columns("W:Z").Cut Columns("R:R").Insert Shift:=xlToRight   Range("A1").Select

---

Yves.

Citation:

---

Envoyé par Yves_VBA

Code:

---

1 2 3

Columns("T:T").Copy Range("ax1").Select ActiveSheet.Paste

---

---

Même pour la copie le Select n'est pas obligatoire :

Code:

---

1 2	Columns("T:T").Copy Columns("AX").PasteSpecial

---

Ou, encore plus simple :

Code:

---

Columns("T:T").Copy Columns("AX")

---

Et il n'est pas indispensable d'indiquer une zone pour une référence unique :

Code:

---

Columns("T").Copy Columns("AX")

---

Bonjour,
Et pour compléter la réponse de Menhir :salut:, j'ajouterai que si tu veux couper la colonne source en la copiant, il suffit d'utiliser la méthode Cut
Exemple

Code:

---

Columns("B").Cut Destination:=Columns("G")

---

Bonjour à vous,
Et déjà un merci pour vos réponses!

Quand je fait les manipulations que vous me dites, cela ne me donne pas la même chose que le code qu'il y avait avant. En effet, je veux modifier le code de l'enregistreur mais avoir le même résultat avec le même ordre, c'est important!

Xszma

Citation:

---

Envoyé par xszma

Quand je fait les manipulations que vous me dites, cela ne me donne pas la même chose que le code qu'il y avait avant.

---

Quelles manipulations donnent un effet indésirable ?
Quelle est la différence entre le résultat du code initial et du code après cette manipulation ?

Il n'aime pas quand je coupe et colle par exemple :

Code:

---

1 2	Columns("G:H").Cut Destination:=Columns("D:D")

---

De plus au niveau des colonnes que j'ai à la fin, l'ordre n'est pas le bon avec par exemple un code magasin qui se retrouve en colonne F au lieu de C. Ou bien encore j'ai des colonnes de vide qui on étais supprimé.
Merci.

Je ne vois pas trop comment ça pourrait bien se passer avec un Select et mal se passer avec cette formulation.

Tu n'aurais pas des cellules fusionnées par hasard ?

J'ai réussi Menhir ! C'étais bien cela les cellules étaient fusionnées.
Je profite une dernière fois de ton savoir, sait-tu comment on peut mettre une formule dans un RANGE, j'ai un IF a mettre dans une colonne et je ne sais pas comment me débrouiller.
Merci!

Bonjour,

Citation:

---

sait-tu comment on peut mettre une formule dans un RANGE, j'ai un IF a mettre dans une colonne et je ne sais pas comment me débrouiller

---

La réponse dans ce billet titré Ecrire une formule dans Excel à l'aide d'une procédure VBA

... ou dans l'aide VBA.
Comment dit-on "formule" en anglais : https://docs.microsoft.com/fr-fr/off....range.formula

Bonjour !

Mais j'ai quelque chose de ce style :

Code:

---

1 2	=IF(AND(RC[-7]<>""#"",RC[-7]<>""NON OK""),RC[-7],RC[-2])

---

Un peu difficile à comprendre et pas dans ce que vous m'avais envoyé ...

Bonjour,
La formule que tu affiches est en référence R1C1 et la référence R1C1 c'est la même chose que $A$1

Tu as deux propriétés pour écrire une formule (en dehors des locales) Formula et FormulaR1C1
Le billet que je t'ai référencé donne suffisamment d'explications pour que tu puisses te débrouiller

Petit exemple en excel référence A1 d'une fonction placée en B2

Code:

---

=SI($A2=10;"Oui";"Non")

---

Voici ce que renvoie le VBA dans la fenêtre d'exécution de l'éditeur
avec la propriété Formula

Code:

---

1 2	Debug.Print Range("B2").Formula =IF($A2=10,"Oui","Non")

---

et avec la propriété FormulaR1C1

Code:

---

1 2	Debug.Print Range("B2").FormulaR1C1 =IF(RC1=10,"Oui","Non")

---

Si tu vas dans les options d'excel - Formules, tu as une option pour faire apparaître les formules dans ce type de référencement là, il suffit de cocher l'option Style de référence L1C1