Drag ' N ' Drop de cellules

Bonjour,

J'ai un petit problème. En fait je souhaite inverser mes 2 cellules lors d'un drag'n'drop (déplacement de cellule) (excel m'écrase celle qui reçoit celle qui est déplacée). J'ai donc ce code pour échanger les 2 cellules:

Code:

---

1 2 3 4 5 6

Sub Permuter() With Selection If .Areas.Count <> 2 Or .Cells.Count <> 2 Then Exit Sub X = .Areas(1): .Areas(1) = .Areas(2): .Areas(2) = X End With End Sub

---

Mais il faut sélectionner 2 cellules avant d'appliquer le code. Hors, je souhaite les échanger lorsque l'utilisateur "lache" la première cellule sur la deuxième.

Merci

Créer une deuxième variable

Citation:

---

Envoyé par le_dilem

Créer une deuxième variable

---

Je ne comprend pas comment faire avec une deuxième variable

J'arrive pas à reproduire ton exemple
peux tu nous mettre ton fichier en pièce jointe ?

hop en pièce jointe

Salut

Désolé je pense que c'est impossible à faire.
tu peux pas mettre une action dans une Macro

bonjour a tout les deux


une petite succession tres simple et ca marche

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim adresse1, adresse2 As Variant adresse1 = Selection.Address   If TextBox1.Value = "" Then TextBox1 = Selection.Address: TextBox1bis = Range(Selection.Address).Value: Exit Sub ElseIf TextBox1 <> "" Then TextBox2 = Selection.Address: TextBox2bis = Range(Selection.Address).Value End If Range(TextBox1).Value = TextBox2bis Range(TextBox2).Value = TextBox1bis TextBox1 = "" TextBox2 = "" TextBox1bis = "" TextBox2bis = ""       End Sub

---

tu clique sur une celule et tu clique sur une autre celule les deux celules inversent leur contenu

ps impossible n'est pas francais!!!!!


au plaisir

re
jirais meme plus loin tu peu renplacer les textbox par des variables

Bonjour,

Je dois bien avouer ne pas avoir tout compris.

Que sont ces TextBox ?. Sont-ce des TextBox que je dois créer dans une UserForm ? Cela veut-il dire que je dois absolument passer par une UserForm pour échanger mes cellules ?

D'après ce que tu dis, ton code semble pratique pour échanger 2 valeurs mais lors de l'évènement "clic", je souhaite le faire lors de l'évènement "déplacement de cellule" et uniquement lors de cet évènement. C'est pourquoi je cherche si il existe en vba un "truc" pour le faire puisque l'évènement du "laché d'une cellule sur une autre" ne semble pas exister.

Merci

bonjour

tu a raisons le drop n'existe pas pour les cellules a moins de passer par les apis ce qui est quand meme assez complexe
la solution que je t'ai proposé est declenchée par le click


et absolument pas tu n'est pa s obligé de les mettres dans un usf
tu te contente de les metres dans la feuil concernée et voir meme de les rendre invisibles pour qu'il ne te genent pas dans ta feuille


reprenons:
met ca dans le module thisworbook'pour les rendrent invisibles au demarage du classeur ca n'empechera pas de fonctionner

Code:

---

1 2 3 4 5 6 7

Private Sub Workbook_Open() sheets(lenomde ta feuille concernée entre guillemet).textbox1.visible=false sheets(lenomde ta feuille concernée entre guillemet).textbox2.visible=false sheets(lenomde ta feuille concernée entre guillemet).textbox1bis.visible=false sheets(lenomde ta feuille concernée entre guillemet).textbox2bis.visible=false   End Sub

---

et ca dans le module selection change de la feuille concernée

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim adresse1, adresse2 As Variant adresse1 = Selection.Address   If TextBox1.Value = "" Then TextBox1 = Selection.Address: TextBox1bis = Range(Selection.Address).Value: Exit Sub ElseIf TextBox1 <> "" Then TextBox2 = Selection.Address: TextBox2bis = Range(Selection.Address).Value End If Range(TextBox1).Value = TextBox2bis Range(TextBox2).Value = TextBox1bis TextBox1 = "" TextBox2 = "" TextBox1bis = "" TextBox2bis = ""

---

voila au plaisir

Bonjour,
ceci semble fonctionner , un double-clic dans la deuxieme cellule inverse les valeurs des 2 cellules
v() contient les valeurs, c() contient les adresses des cellules

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim v(2) As Variant, c(2) As String   Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Range(c(2)) = Range(c(1)) Range(c(1)) = v(2) End Sub   Private Sub Worksheet_SelectionChange(ByVal Target As Range) v(2) = v(1) c(2) = c(1) v(1) = Target c(1) = ActiveCell.Address End Sub

---