Existe-t-il un moyen simple d'échanger le contenu de deux cellules dans Microsoft Excel ?
Par facile, j'entends un raccourci clavier ou un élément de menu, sans impliquer de copier dans des cellules temporaires ou d'écrire des scripts ou quoi que ce soit de ce genre. En d'autres termes, je cherche un moyen de sélectionner deux cellules et de cliquer sur un élément de menu ou d'appuyer sur une combinaison de touches qui permutera leur contenu. Il doit bien y avoir un moyen de faire cela ?
J'ai lu cet article mais j'avais besoin d'une macro pour échanger les gammes complètes. De plus, j'avais besoin d'échanger les couleurs. J'ai légèrement modifié la macro postée à l'origine, cela pourrait être utile à quelqu'un.
Sub Swap()
If Selection.Areas.Count <> 2 Then
MsgBox "Select 2 cell ranges (only) to swap."
Exit Sub
End If
If Selection.Areas(1).Count <> Selection.Areas(2).Count Then
MsgBox "The two areas must be of equal size"
Exit Sub
End If
'With this for loop we run through each cell 1 by 1
For i = 1 To Selection.Areas(1).Count
'Swapping values
temp = Selection.Areas(1)(i)
Selection.Areas(1)(i) = Selection.Areas(2)(i)
Selection.Areas(2)(i) = temp
'Swapping color
tempColor = Selection.Areas(1)(i).DisplayFormat.Interior.Color
Selection.Areas(1)(i).Interior.Color = Selection.Areas(2)(i).DisplayFormat.Interior.Color
Selection.Areas(2)(i).Interior.Color = tempColor
Next i
End SubSystemesEZ est une communauté de sysadmins où vous pouvez résoudre vos problèmes et vos doutes. Vous pouvez consulter les questions des autres sysadmins, poser vos propres questions ou résoudre celles des autres.
