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:
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.
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
Merci
Partager