[VBA-E]Intervertir 2 selections

Hello,

on me demande d'intervertir 2 selections de meme taille.

par exemple, on selectionne un range de A1->B2 et A3->B4 puis on tape le raccourci clavier de la macro et les valeurs de ces 2 zones sont échangées (A1=A3 et A3=A1 etc...)

mais je ne vois pas comment faire ca (est ce faisable?). Pour l'instant mon idée est de le faire en demandant les 2 zones à l'utilisateur avec des inputbox puis apres ca devrait plus etre trop dur mais bon c'est pas top et on gagne pas enormement de temps :?

une ptite idée? :)

Citation:

---

Hello, y'avait longtemps

---

Désolé je fais pas le pont :cry:

Citation:

---

mais je crois, qu'à force, tu sais lire et écrire dans une cellule

---

:salo: (jcrois que tu commence à avoir l'habitude)

Je pense (si j'ai bien compris ce que tu me dis) que ta solution permet d'inverser les valeurs d'une selection. enfin jme trompe peut etre

Code:

---

1 2 3 4 5

a = InputBox("Range1? exemple: A1:B2") RangeTemp = Range("" & a & "") b = InputBox("Range2? exemple: A1:B2") Range("" & a & "") = Range("" & b & "") Range("" & b & "") = RangeTemp

---

moi c'est ca que je voudrais faire mais là deja ca marche pas super, mon range 1 va dans le 2 et le 2 pas dans le 1 :(

tiens essai de comprendre ce code ... ( bon il copie que les données... si le format est aussi nécessaire.. faudra l'adapter ...)

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

Sub test() Dim r As Range Dim r1 As Range Dim r2 As Range Dim c As Variant Dim i As Integer Set r = Selection Debug.Print "--- Sélection en cours : " & r.Address If r.Areas.Count <> 2 Then MsgBox "Sélectionner 2 Zones dans feuille ( utiliser touche ctrl)" Exit Sub End If Set r1 = r.Areas(1) Set r2 = r.Areas(2) If r1.Count <> r2.Count Then MsgBox "Les 2 zones doivent être de même taille" Exit Sub End If Debug.Print " Zone 1 : " & r1.Address Debug.Print " Zone 2 : " & r2.Address For i = 1 To r1.Count c = r1(i) r1(i) = r2(i) r2(i) = c Next End Sub

---

Citation:

---

Envoyé par bbil

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

Sub test() Dim r As Range Dim r1 As Range Dim r2 As Range Dim c As Variant Dim i As Integer Set r = Selection Debug.Print "--- Sélection en cours : " & r.Address If r.Areas.Count <> 2 Then MsgBox "Sélectionner 2 Zones dans feuille ( utiliser touche ctrl)" Exit Sub End If Set r1 = r.Areas(1) Set r2 = r.Areas(2) If r1.Count <> r2.Count Then MsgBox "Les 2 zones doivent être de même taille" Exit Sub End If Debug.Print " Zone 1 : " & r1.Address Debug.Print " Zone 2 : " & r2.Address For i = 1 To r1.Count c = r1(i) r1(i) = r2(i) r2(i) = c Next End Sub

---

---

:hola: :hola:

alors là.... un grand merci !! :D
T'a bien compris ce que je cherchais à faire et mon gros souci c'etait surtout de voir les selections faites avant le lancement de la macro.

Entre les .address les .areas.count ... j'men serais pas sorti seul ( :oops: )

aller regardons ce code qui parait quand meme ridicule à coté de celui de bbil

Citation:

---

Envoyé par ouskel

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Tableau(3),i,NoLigne,NoCol For i = 1 to 3 Tableau(i) = Cells(NoLigne,i).value Next   For i = 3 to 1 step-1 NoCol = 4 -i Cells(NoLigne,NoCol).value = Tableau(i) Next

---

---

:mouarf3: (faut bien que jme foute de toi aussi des fois !!)


En tout cas merci à vous 2 pour vos réponses et votre rapidité ;) (en meme temps ya pas grand monde aujourdhui :mouarf: )

Oh mais non mon dodo c'etait pas si mal ton code !!

( :mouarf2: )



:calin:

c'est juste que je comprenais pas bien le

Code:

---

For i = 1 to 3

---

je savais pas qu'on pouvait calculer le nombre de cellule d'une zone et je pensais que ton code ca allait que pour une ligne... ( :oops: )

:mouarf: