Discussion :

[discus23]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[Krovax]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[DeaD78]

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 ) :

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

A+

[discus23]

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

[DeaD78]

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

[discus23]

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

[DeaD78]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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