Microsoft 365 Allez directement en cellule "E2" sans passer par la cellule "I2"

Usine à gaz · 4 Novembre 2022

Bonjour à toutes et à tous

J'en ai une "petite bonne" que je ne parviens pas à coder malgré mes recherches et tests.

Quand on valide "entrée" une cellule, Excel passe à la cellule suivante : Pour mon besoin, je voudrais l'éviter...

Ce que je voudrais faire :
cellule H2: Si Clic et modifie contenu ou clic ... à l'appui sur touche "entrée"
Allez directement en cellule "E2" (Cells(ActiveCell.Row, 5).Select)
sans passer par la cellule "I2"

Vous sauriez le faire ?
En cas, je joins un petit fichier test.

Un grand merci à tous pour votre aide...
Amicalement

fanch55 · 5 Novembre 2022

Si tu ne veux plus t'emm... avec les déplacements automatiques ,
code à mettre dans ThisWorkBook :

VB:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.MoveAfterReturn = True
End Sub

Private Sub Workbook_Open()
    Application.MoveAfterReturn = False
End Sub

Surtout ne pas oublier le beforeclose !!!

Usine à gaz · 5 Novembre 2022

Bsr et Merci Jacky67

Cas 1 : Je modifie le contenu de H2 :
Je modifie le contenu : Target fonctionne bien et renvoie le curseur en E2 sans passer par I2

Cas 2 : Je suis sur H2 et je clique sur "entrée" sans modifier le contenu, la mon curseur se déplace sur I2 et j'ai besoin qu'il n'y aille pas et je retrouve direct mon curseur sur E2 (comme pour Target)

fanch55 · 5 Novembre 2022

Usine à gaz à dit:
Cas 2 : Je suis sur H2 et je clique sur "entrée" sans modifier le contenu, la mon curseur se déplace sur I2 et j'ai besoin qu'il n'y aille pas et je retrouve direct sur E (comme pour Target)

Bizarre,
sur mon excel , l'action sur entrée fait passer la sélection sur la cellule en-dessous et non pas celle suivante et c'est un processus que j'ai toujours connu ainsi ....

Usine à gaz · 5 Novembre 2022

fanch55 à dit:
Je ne comprend pas ou mal: si je clique sur H2, je reste sur H2 tel que c'est écrit ...

OUI, je clique sur H2 pour y aller pour soi :
- Modifier
Mais si je clique à nouveau sans modifier, mon souci est là

Usine à gaz · 5 Novembre 2022

fanch55 à dit:
Bizarre,
sur mon excel , l'action sur entrée fait passer la sélection sur la cellule en-dessous et non pas celle suivante et c'est un processus que j'ai toujours connu ainsi ....

Oui, c'est un réglage dans les options d'Excel.
Dans les options Excel, j'ai tenté : Application.MoveAfterReturnDirection = xlToLeft mais ça ne fonctionne pas.

fanch55 · 5 Novembre 2022

Usine à gaz à dit:
OUI, je clique sur H2 pour y aller pour soi :
- Modifier
Mais si je clique à nouveau sans modifier, mon souci est là

C'est surement une interférence avec le BeforeDoubleClick car si tu cliques "calmement" sur H2, tu y restes ...

Usine à gaz à dit:
Oui, c'est un réglage dans les options d'Excel.

C'est vrai, rarement utilisé ... ( pour ma part )

Usine à gaz · 5 Novembre 2022

fanch55 à dit:
C'est surement une interférence avec le BeforeDoubleClick car si tu cliques "calmement" sur H2, tu y restes ...

C'est vrai, rarement utilisé ... ( pour ma part )

Pourtant, je clique normalement ... je vais revoir

fanch55 · 5 Novembre 2022

Usine à gaz à dit:
Pourtant, je clique normalement ... je vais revoir

Si tu mets en commentaire la sub BeforeDoubleClick, tu ne devrais plus te déplacer en cliquant sur H2

Jacky67 · 5 Novembre 2022

Usine à gaz à dit:
Bsr et Merci Jacky67
Cas 1 : Je modifie le contenu de H2 :
Je modifie le contenu : Target fonctionne bien et renvoie le curseur en E2 sans passer par I2

Cas 2 : Je suis sur H2 et je clique sur "entrée" sans modifier le contenu, la mon curseur se déplace sur I2 et j'ai besoin qu'il n'y aille pas et je retrouve direct mon curseur sur E2 (comme pour Target)

Re..
Dans tous les cas E2

VB:

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = Range("H2").Address Then Range("E2").Activate
  End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = Range("i2").Address Then Range("E2").Activate
End Sub

Mais si un utilisateur à l'option "Sens" dans les paramètres "bas", l'usine à gaz ne fonctionnera pas
La cellule i2 ne sera plus sélectionnable

fanch55 · 5 Novembre 2022

Si tu ne veux plus t'emm... avec les déplacements automatiques ,
code à mettre dans ThisWorkBook :

VB:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.MoveAfterReturn = True
End Sub

Private Sub Workbook_Open()
    Application.MoveAfterReturn = False
End Sub

Surtout ne pas oublier le beforeclose !!!

Usine à gaz · 5 Novembre 2022

Jacky67 à dit:
Re..
Dans tous les cas E2

VB:

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("H2").Address Then Range("E2").Activate End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = Range("i2").Address Then Range("E2").Activate End Sub

Mais si un utilisateur à l'option "Sens" dans les paramètres "bas", l'usine à gaz ne fonctionnera pas
La cellule i2 ne sera plus sélectionnable

Effectivement et cela ne semble pas possible !
L'idéal :
1 - serait de pouvoir bloquer l'exécution de "Private Sub Worksheet_SelectionChange(ByVal R As Range)" quand je suis sur la cellule "H2" et que je clique sur "entrée,
2 - ou qu'un code permette de de constater que la cellule n'a pas été modifiée.

Usine à gaz · 5 Novembre 2022

fanch55 à dit:
Si tu ne veux plus t'emm... avec les déplacements automatiques ,
code à mettre dans ThisWorkBook :

VB:

Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.MoveAfterReturn = True End Sub Private Sub Workbook_Open() Application.MoveAfterReturn = False End Sub

Surtout ne pas oublier le beforeclose !!!

Merci à toi : je vais voir ce que ça donne

Usine à gaz · 5 Novembre 2022

fanch55 à dit:
Si tu ne veux plus t'emm... avec les déplacements automatiques ,
code à mettre dans ThisWorkBook :

VB:

Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.MoveAfterReturn = True End Sub Private Sub Workbook_Open() Application.MoveAfterReturn = False End Sub

Surtout ne pas oublier le beforeclose !!!

Super, c'est exactement ce qu'il me fallait et je n'y avais pas pensé.
Je pense que je peux mettre le code dans les feuilles concernée au lieu de le mettre dans le ThisWorkBook
Je vais tester,
Merci à toi

Eric C · 5 Novembre 2022

Re le forum
Le fil
Bonsoir Jacky, fanch55

J'ai testé la solution de Jacky (Post 23) et pour moi c'est Ok. - La solution de fanch55 doit être tout aussi efficace.
Bonne soirée
@+ Eric c .

Usine à gaz · 5 Novembre 2022

fanch55 à dit:
Si tu ne veux plus t'emm... avec les déplacements automatiques ,
code à mettre dans ThisWorkBook :

VB:

Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.MoveAfterReturn = True End Sub Private Sub Workbook_Open() Application.MoveAfterReturn = False End Sub

Surtout ne pas oublier le beforeclose !!!

Re-Bjr fanch55

C'est bien la solution, merci à toi pour y avoir pensé (code à mettre dans la feuille concernée, pour moi)
A vous tous pour m'avoir aidé et j'en ai encore appris des trucs : Un grand merci

Usine à gaz · 5 Novembre 2022

fanch55 à dit:
Si tu ne veux plus t'emm... avec les déplacements automatiques ,
code à mettre dans ThisWorkBook :

VB:

Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.MoveAfterReturn = True End Sub Private Sub Workbook_Open() Application.MoveAfterReturn = False End Sub

Surtout ne pas oublier le beforeclose !!!

Petite question :
Est-il possible de mettre dans le ThisWorkBook "Application.MoveAfterReturn" = False" mais pour qu'il n'ait d'effet que sur une feuille ?

Microsoft 365 Allez directement en cellule "E2" sans passer par la cellule "I2"

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

fanch55

Usine à gaz

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Eric C

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires