Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

danielco

XLDnaute Accro
Bonjour,

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

VB: 
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.
 
Solution
job75
wDog66 à dit:
En revanche gros souci avec ce genre de code, il est impossible de sélectionner plusieurs cellules
Cliquez pour agrandir...
Ce n'est vraiment pas un gros souci :
VB: 
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
Trier par date Trier par votes
Bonjour danielco,

Pour éviter le cadrage intempestif :
VB: 
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+
 
Vote positif 0 Vote négatif
wDog66 à dit:
En revanche gros souci avec ce genre de code, il est impossible de sélectionner plusieurs cellules
Cliquez pour agrandir...
Ce n'est vraiment pas un gros souci :
VB: 
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
 
Vote positif 0 Vote négatif
Solution
wDog66 à dit:
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+
Cliquez pour agrandir...
Donc :

VB: 
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
 
Vote positif 0 Vote négatif
Apparemment mon post #4 n'a pas été vu.

La macro peut d'ailleurs se simplifier :
VB: 
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
 
Vote positif 0 Vote négatif
@job75
Je sais 😂 dans le contexte du code initial, ça l'était 🤭
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
188
AlCapone
J
  • Question Question
XL 2019 (Résolu) VBA - Mise en surbrillance de ligne (fonction dans ruban)
Réponses
3
Affichages
544
Julien_B
J
  • Résolu(e)
XL 2021 En restant sur Feuille 1 active, comment activer dans ma feuille2 la 1ère cellule vide de la colonne A
2
Réponses
29
Affichages
1 K
TooFatBoy
L
  • Question Question
XL 2019 Comment étendre, en VBA, la sélection dans une colonne depuis cellule active ?
Réponses
7
Affichages
992
Leguyl
L
T
  • Question Question
XL 2010 VBA - Bouton mettre en rouge plusieurs cellules sur la ligne de la cellule sélectionnée
Réponses
11
Affichages
624
job75
G
  • Question Question
XL 2016 Copie de ligne suivant cellule active et colonne
Réponses
13
Affichages
930
Goose
G
  • Résolu(e)
Microsoft 365 Récupérer la valeur de la cellule sélectionnée dans une autre feuille
2
Réponses
28
Affichages
3 K
Usine à gaz
  • Question Question
XL 2019 [VBA] Modifier la position de l'image contenue dans la cellule active
2
Réponses
16
Affichages
3 K
Fredox
S
  • Question Question
Microsoft 365 Sélectionner la même cellule que la cellule active dans une autre feuille
Réponses
2
Affichages
1 K
ShrekL
S
S
  • Résolu(e)
Microsoft 365 VBA pour copier/coller une plage de cellule dans un autre onglet en fonction de la date
Réponses
8
Affichages
1 K
Sylvain. B
S
M
  • Résolu(e)
XL 2019 insérer dans une cellule une formule avec pour variable une plage de donnée (VBA)
Réponses
5
Affichages
730
mikado08
M
C
  • Résolu(e)
XL 2016 Mettre ligne de la cellule active en couleurs ou en bordure spéciale
2
Réponses
16
Affichages
2 K
Cotriana
C
S
  • Résolu(e)
Microsoft 365 Effacer le contenu de cellule sur la même ligne d'une autre feuille
Réponses
6
Affichages
838
Robert
K
  • Question Question
Microsoft 365 Remplir une cellule avec la date du jour uniquement si celle-ci est vide et si la première cellule de la ligne contient quelque chose
Réponses
5
Affichages
900
ThierryP
T
D
  • Question Question
XL 2019 Surligner une ligne non active (protégée)
Réponses
1
Affichages
499
fanch55
D
  • Question Question
XL 2019 Surligner une ligne non active (protégée)
Réponses
1
Affichages
693
Hasco
C
  • Résolu(e)
Microsoft 365 SI remplissage cellule (MFC) ALORS transposer la réponse dans une colonne
Réponses
3
Affichages
1 K
Chaine
C
  • Résolu(e)
Microsoft 365 Afficher dans la feuille active la cellule de la Feuille "Appels" qui est à droite de sa cellule active
Réponses
6
Affichages
653
Usine à gaz
S
  • Résolu(e)
Autres VBA pour copier une cellule à gauche de la cellule sélectionnée
Réponses
1
Affichages
2 K
sg394
S
  • Question Question
Microsoft 365 problème navigation et selection dans Combobox-Liste de choix
Réponses
4
Affichages
2 K
chostra
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…