Échanger le contenu des cellules dans Excel ?

De : http://www.extendoffice.com/documents/excel/860-excel-swap-contents-of-two-cells.html

Parfois, il faut échanger deux cellules adjacentes. On peut le faire manuellement facilement. Regardez la capture d'écran suivante, je veux échanger les cellules A4 et B4, veuillez faire comme suit :

1. Sélectionnez la cellule que vous voulez échanger. Dans cet exemple, sélectionnez la cellule A4.

2. Appuyez sur la touche Shift et placez le curseur sur le bord droit.

3. puis faites glisser le curseur jusqu'au bord droit de la cellule B4.

4. Lorsque “工” s'affiche, relâchez la souris.

5. Et les deux contenus de la cellule ont été échangés.

Avec cette méthode, nous pouvons également échanger deux lignes ou colonnes adjacentes.

Pour le cas spécifique de plages rectangulaires adjacentes de même taille, vous pouvez utiliser la méthode décrite dans cette réponse à une question similaire .

1. sélectionnez la plage de droite ou de bas de page
2. Appuyez sur Ctrl+X
3. Sélectionnez la plage adjacente (c'est-à-dire directement au-dessus ou à gauche)
4. Appuyez sur Ctrl+ + (le + est généralement au-dessus de la touche =, ce qui se traduit par Ctrl+Shift+=)

Notez que vous pouvez utiliser la même procédure pour permuter des lignes ou des colonnes adjacentes entières.

Par facile, j'entends un raccourci clavier ou un élément de menu, sans impliquer la copie dans des cellules temporaires ou l'écriture de scripts VBA ou quoi que ce soit de ce genre. 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 permette d'échanger leur contenu.

Pourquoi imposer cette restriction ? La création d'une macro rend cela trivial. Pour autant que je sache, il n'y a pas d'autre solution. Vous pouvez assigner la macro à un bouton ou à une touche de raccourci.

Sub Swap()     
    If Selection.Count <> 2 Then     
         MsgBox "Select 2 cells (only) to swap."     
         Exit Sub     
    End If     
    Set trange = Selection     
    If trange.Areas.Count = 2 Then     
         temp = trange.Areas(2)     
         trange.Areas(2) = trange.Areas(1)     
         trange.Areas(1) = temp     
    Else     
         temp = trange(1)     
         trange(1) = trange(2)     
         trange(2) = temp     
    End If     
End Sub

Non. Il est impossible d'échanger le contenu de deux cellules dans Excel, sans écrire sa propre macro pour le faire.

EDIT : Il semble qu'il y ait maintenant un moyen facile d'échanger le contenu des cellules dans les versions plus récentes d'Excel, donc cette réponse est probablement dépassée.

Sélectionnez le premier ensemble de cellules à échanger et appuyez sur ctrl+x :

Sélectionnez les cellules AVEC celles que vous voulez échanger et appuyez sur ctrl++.

• Sélectionnez la cellule du bas que vous voulez échanger
• Appuyez sur Ctrl+X et allez à la cellule que vous voulez échanger avec
• Appuyez sur Ctrl+Shift+=

L'échange sera exécuté

J'ai lu ce post mais j'ai en fait eu besoin d'une macro pour échanger des gammes complètes. De plus, j'avais besoin de changer les couleurs. J'ai légèrement modifié la macro affichée à l'origine, cela pourrait être utile pour 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 Sub

Vous pouvez coller jusqu'à 25 éléments dans le presse-papiers, ils sont donc faciles à échanger en utilisant ctr+tab ou cmd+tab mac