Comment déplacer la sélection d'une ligne vers le bas dans Excel 2007 ?

On dirait que vous avez juste besoin de quelque chose comme ça :

Sub moveselection()

Selection.Offset(1, 0).Select

End Sub

Cela déplacera votre sélection une ligne plus bas sans changer la taille de la sélection.

(a) Ce code ne se déplace pas d'une ligne vers le bas comme à la question

(b) Il ne fonctionne que sur la première ligne d'une sélection, vouliez-vous qu'il fonctionne sur une sélection à plusieurs lignes ?

© Plutôt que d'appeler un sous-code pour cela, vous pourriez l'exécuter automatiquement en cliquant avec le bouton droit de votre souris - vous pouvez le faire en ajoutant un clic droit sur l'onglet de votre feuille, View Code, et en collant le code ci-dessous

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    Range("E" & CStr(Selection.Row) & ":" & "GN" & CStr(Selection.Row)).Select
End Sub

Une alternative qui utilise des arguments nommés, et qui est donc beaucoup plus claire, est quelque chose comme cela.

ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate

Une ligne positiveDécalage déplace la sélection vers le bas de la feuille, une ligne négativeDécalage déplace vers le haut le nombre de lignes spécifié, et un décalage de zéro laisse la ligne dans laquelle réside la sélection inchangée.

De même, les décalages positifs déplacent la sélection vers la droite, tandis que les décalages négatifs la déplacent vers la gauche. Le zéro, bien sûr, laisse la colonne inchangée.

Voir Range.Offset Property (Excel)

Deux découvertes connexes peuvent aussi bien intéresser les futurs visiteurs.

1. Faites ce qui suit pour insérer une colonne. Selection.EntireColumn.Insert et attention à l'erreur Range.Insert, qui augmente l'erreur d'exécution 1004, au moins dans certaines circonstances, comme les feuilles de calcul protégées (même si l'insertion de colonne est autorisée lorsqu'elle est protégée).
2. La méthode que je viens de décrire laisse le point d'insertion dans la nouvelle colonne, ce que je n'avais pas remarqué jusqu'à ce que je vienne ici à la recherche d'une méthode pour déplacer la sélection (seulement pour découvrir que je n'en avais pas besoin !).

Ok,

Le curseur doit être dans la ligne et les plages “E” et “GN” doivent être ajustées pour les différentes colonnes mais cela me fait gagner du temps :

Sub SelectRange()

  Dim RowNumber As Integer

  RowNumber = Selection.Row
  Range("E" & CStr(RowNumber) & ":" & "GN" & CStr(RowNumber)).Select

End Sub
```.