Microsoft 365 VBA Déplacement de la cellule active dans une ligne sélectionnée

[danielco]

Bonjour,

J'utilise cette macro pour mettre en surbrillance la ligne de la cellule active :

Sub Worksheet_SelectionChange(ByVal Target As Range)
  Set Adr = ActiveCell
  Application.EnableEvents = False
  Rows(ActiveCell.Row).Select
  Adr.Activate
  Application.EnableEvents = True
End Sub

Quand je me sers de la flèche droite pour déplacer la cellule active, lorsque celle-ci arrive au bord de la fenêtre, elle revient au milieu de l'écran et y reste, même en appuyant sur la flèche droite. Ce sont alors les colonnes qui se décalent vers la gauche. Est-il possible d'éviter ce comportement ?

merci d'avance.

Daniel

PS. J'ai indiqué MS365 mais la macro est destinée à un utilisateur ayant une version antérieure.

 

[job75]

Bonjour danielco,

Pour éviter le cadrage intempestif :

Sub Worksheet_SelectionChange(ByVal Target As Range)
  Set Adr = ActiveCell
  Application.ScreenUpdating = False
  Application.EnableEvents = False
  Rows(ActiveCell.Row).Select
  Adr.Activate
  Application.EnableEvents = True
End Sub

A+

 

[wDog66]

Bonjour danielco,

Pas ce problème de mon côté, mais bon je suis en O365 🤭

En revanche gros souci avec ce genre de code, il est impossible de sélectionner plusieurs cellules

A+

 

[job75]

En revanche gros souci avec ce genre de code, il est impossible de sélectionner plusieurs cellules

Ce n'est vraiment pas un gros souci :

Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Selection.CountLarge > 1 Then Exit Sub
  Set Adr = ActiveCell
  Application.ScreenUpdating = False
  Application.EnableEvents = False
  Rows(ActiveCell.Row).Select
  Adr.Activate
  Application.EnableEvents = True
End Sub

 

[danielco]

Bonjour danielco,

Pour éviter le cadrage intempestif :

Sub Worksheet_SelectionChange(ByVal Target As Range)
  Set Adr = ActiveCell
  Application.ScreenUpdating = False
  Application.EnableEvents = False
  Rows(ActiveCell.Row).Select
  Adr.Activate
  Application.EnableEvents = True
End Sub

A+

Merci. Tu me tires une belle épine du pied !
Daniel

 

[danielco]

Bonjour danielco,

Pas ce problème de mon côté, mais bon je suis en O365 🤭

En revanche gros souci avec ce genre de code, il est impossible de sélectionner plusieurs cellules

A+

Oups, je n'y avais pas pensé. Merci.
Daniel

 

[danielco]

Bonjour danielco,

Pas ce problème de mon côté, mais bon je suis en O365 🤭

En revanche gros souci avec ce genre de code, il est impossible de sélectionner plusieurs cellules

A+

Donc :

Sub Worksheet_SelectionChange(ByVal Target As Range)
  Application.ScreenUpdating = False
  Set Adr = Selection
  Application.EnableEvents = False
  Selection.EntireRow.Select
  Adr.Activate
  Application.EnableEvents = True
End Sub

Daniel

 

[job75]

Apparemment mon post #4 n'a pas été vu.

La macro peut d'ailleurs se simplifier :

Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Selection.CountLarge > 1 Then Exit Sub
  Set Adr = ActiveCell
  Application.ScreenUpdating = False
  ActiveCell.EntireRow.Select
  Adr.Activate
End Sub

 

[wDog66]

@job75

Ce n'est vraiment pas un gros souci :

Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Selection.CountLarge > 1 Then Exit Sub
  Set Adr = ActiveCell
  Application.ScreenUpdating = False
  Application.EnableEvents = False
  Rows(ActiveCell.Row).Select
  Adr.Activate
  Application.EnableEvents = True
End Sub

Je sais 😂 dans le contexte du code initial, ça l'était 🤭

 

[danielco]

Apparemment mon post #4 n'a pas été vu.

Euh si. Par contre la macro ne fait rien s'il y a plusieurs cellules sélectionnées, ce qui n'est pas le but recherché.

Daniel

 

[job75]

Par contre la macro ne fait rien s'il y a plusieurs cellules sélectionnées, ce qui n'est pas le but recherché.

Bah une seule cellule sélectionnée doit être suffisant non ?

Si je comprends bien vous utilisez les touches Droite et Gauche qui ne sélectionnent qu'une cellule...

 

[danielco]

Je ne sais pas. Je lui demanderai lundi.
Daniel