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 : Sélectionner tout - Visualiser dans une fenêtre à part
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