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 !!!

fanch55 · 5 Novembre 2022

Usine à gaz à dit:
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 ?

A mettre dans le Thisworkbook:
Modifier "Feuil1" par le nom de la feuille où le return doit être neutralisé

VB:

Private Sub Workbook_Open()
    Workbook_SheetActivate ActiveSheet
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Application.MoveAfterReturn = Not Sh.Name = "Feuil1"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.MoveAfterReturn = True
End Sub

Usine à gaz · 5 Novembre 2022

fanch55 à dit:
A mettre dans le Thisworkbook:
Modifier "Feuil1" par le nom de la feuille où le return doit être neutralisé

VB:

Private Sub Workbook_Open() Workbook_SheetActivate ActiveSheet End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) Application.MoveAfterReturn = Not Sh.Name = "Feuil1" End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.MoveAfterReturn = True End Sub

Merci à toi

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

fanch55

fanch55

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires