Intervertir 2 sélections

Bonjour,

Je fais face à un petit problème qui ne devrait pourtant pas en être un!

Je cherche à intervertir 2 plages de sélections. Je fais donc la manipulation classique qui est de stocker la 1ère dans une variable puis de mettre la 2nde à la place de la 1ère, et enfin coller la variable à la place de la 2nde.

Voici mon code, mais il ne fait que mettre la 1ère à la place de la 2nde:

Code:

---

1 2 3 4

Set C = B.Range(B.Range("C3"), B.Range("C3").End(xlDown)) B.Range(B.Range("D3"), B.Range("D3").End(xlDown)).Copy B.Range("C3") C.Copy B.Range("D3")

---

D'où vient mon problème? Merci!

bonjour
set C= est un pointeur tu ne copy pas les donné en l'utilisant. C renvoie vers la plage et ne contient aucune donnée, si tu modifie la plage tu modifie C
Pour t'en convaincre (enfin moi je trouve ca convainquant)

Code:

---

1 2 3 4

Dim c As Range Set c = Range("A5") Range("a5") = 44 MsgBox c

---

Je passerais par un tableau peut être ou plus simplement par une troisième colonne dans un autre onglet par exemple

Bonjour,

Je te propose de lancer l'enregistreur de macros et de faire ce qui suit (c'est un copié/collé, j'ai eu la flegme de tout réécrire :mouarf:) :

Citation:

---

Cliquez tout d'abord sur le numéro de la (ou les) ligne (ou la lettre de la colonne). Cette action met en surbrillance toute la ligne (colonne) bordée d'un trait noir épais.

Positionnez le curseur sur ce trait pour voir apparaître la flèche de déplacement. Vous pouvez ainsi faire glisser la ligne (colonne) et la relâcher à un nouvel endroit.

---

Ca revient à ce que tu souhaites si je ne me trompe pas. Il ne te restera plus alors qu'à adapter :ccool:

A+

Salut krovax, la forme depuis hier ?!
Si si, j'en étais bien convaincu, et j'avais bien pensé à copier ailleurs comme tu me le suggère, mais je cherchais quelque chose de plus "propre"

DeaD78: Merci, mais ce n'est pas ce que je cherche à faire, avec ta solution, je perd les données qui y a dans ma colonne d'origine

Hmm, lorsque tu déplaces une colonne, les valeurs viennent avec normalement...

Oui, mais en gros, voici ce que je peux avoir au départ:

1 2
1 2
1 2
1 2
1 2

Et voici ce qu'il me faudrait à l'arrivée:

2 1
2 1
2 1
2 1
2 1

Une inversion de colonne en quelque sorte ;)

Bon, dans ce cas, je passerais moi aussi par une 3ème colonne. Je pense que le jeu n'en vaut pas la chandelle pour passer par un tableau.

Disons qu'on passe par la colonne E :

Code:

---

1 2 3

columns("c:c").cut destination:=columns("e:e") columns("d:d").cut destination:=columns("c:c") columns("e:e").cut destination:=columns("d:d")

---

Je l'ai fait à main levée mais ça devrait être ça. Sinon en ce qui concerne le fait d'être "propre", désactive l'affichage et ça sera tout aussi propre qu'une autre solution :zoubi:

Rah je suis déçu moi qui me suis retenu de poster en attendant ta solution :mrgreen:

Plus propre pourrais être de passer par un tableau et tout mais honnêtement ca serait faire plusieurs lignes de code bien lourde pour pas grand chose

oui, j'ai opté pour cette solution finalement et ça marche nickel de toute façon :ccool:

Merci!