Je dois réorganiser manuellement des lignes dans Excel et le copier-coller est trop difficile à utiliser. Je cherche quelque chose qui me permette d'utiliser le glisser-déposer ou d'ajouter des boutons pour déplacer vers le haut ou vers le bas, vers le haut ou vers le bas.
La touche Shift modifie la ligne/colonne au lieu d'écraser la ligne/colonne cible.
C'est toujours une méthode de copier/coller, mais c'est la façon la plus simple à laquelle je puisse penser.
solution 4-clics: (par exemple, déplacer la ligne 8 au-dessus de la ligne 5)
Remarque : Cela fonctionne également pour déplacer plusieurs lignes.
Ajoutez les macros suivantes à votre classeur de macros personnelles et attribuez leur des touches de raccourci. Le comportement imite celui de Sublime Text, Swap Line Up & Swap Line Down.
Sub move_rows_down()
Dim rOriginalSelection As Range
Set rOriginalSelection = Selection.EntireRow
With rOriginalSelection
.Select
.Cut
.Offset(rOriginalSelection.rows.Count + 1, 0).Select
End With
Selection.Insert
rOriginalSelection.Select
End Sub
Sub move_rows_up()
Dim rOriginalSelection As Range
Set rOriginalSelection = Selection.EntireRow
With rOriginalSelection
.Select
.Cut
.Offset(-1, 0).Select
End With
Selection.Insert
rOriginalSelection.Select
End Sub
En traitant des cas similaires dans le passé, où je ne pouvais pas simplement trier par ligne, j'ai trouvé un moyen de générer une colonne avec un résultat de formule sur lequel je pouvais trier.
J'ai trouvé une réponse plus directe à votre question dans ce site :
Microsoft Word possède une fonctionnalité qui fait défaut à Excel. La méthode de Jon consiste à déplacer les données vers Word, à utiliser la commande Word puis à recoller les données dans Excel. Suivez les étapes suivantes.
- Copiez les lignes et les colonnes correspondantes de votre feuille de calcul. Il est préférable de noter la taille de l'intervalle, par exemple 118 lignes x 5 colonnes
- Collez les données dans un document Microsoft Word, où elles deviennent automatiquement un tableau et conservent tout votre formatage.
Dans Word, utilisez les fonctions peu connues SHIFT-ALT-UP-ARROW et SHIFT-ALT-DOWN-ARROW pour faire glisser très rapidement les lignes (ou des morceaux de lignes sélectionnés) vers le haut et le bas à volonté. Sélectionnez une ou plusieurs rangées. Vous pouvez sélectionner la ligne entière ou seulement une partie de la ligne comme indiqué ici.
Lorsque vous avez séquencé les lignes comme vous le souhaitez, collez-les à nouveau dans Excel, en vous assurant que vous écrasez exactement le morceau de même taille que vous avez copié.
Pour les snobs comme moi qui veulent utiliser uniquement le clavier :
Une légère amélioration par rapport à la réponse de @wilson :
Numéro de la rangée du clic droit (ex. rangée 8), touche “t” Numéro de la rangée du clic droit (ex. rangée 5), touche “e”
Le mélange de l'utilisation de la souris et du clavier accélère vraiment les choses pour moi.
Voici un sous-ensemble qui fonctionne également pour les colonnes ; il combine les fonctionnalités pour les quatre directions :
Sub MoveRowsOrColumns(direction As String)
Dim rOriginalSelection As Range
Select Case direction
Case "up", "down"
Set rOriginalSelection = Selection.EntireRow
Case "left", "right"
Set rOriginalSelection = Selection.EntireColumn
Case Else
Debug.Assert False
End Select
With rOriginalSelection
.Select
.Cut
Select Case direction
Case "up"
.Offset(-1, 0).Select
Case "down"
.Offset(rOriginalSelection.Rows.Count + 1, 0).Select
Case "left"
.Offset(0, -1).Select
Case "right"
.Offset(0, rOriginalSelection.Columns.Count + 1).Select
End Select
End With
Selection.Insert
rOriginalSelection.Select
End Sub
C'est le plus facile que j'ai trouvé. Pas vraiment de glisser-déposer:
Par exemple pour déplacer la ligne 3 avant la ligne 2 :