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

[Usine à gaz]

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

 

[Eric C]

Bonjour le forum
Bonjour Lionel

Quelque chose dans ce style :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = Range("H2").Address Then
 Range("E2").Activate
End If
End Sub

Bon appetit
@+ Eric c

 

[Usine à gaz]

Bonjour Eric C
Bonjour bon appétit à toi aussi

J'ai testé, ça fonctionne pour le double clic mais je ne fais pas de double clic.
Soi, Je fais un clic et :
- je modifie le contenu,
- je valide par "entrée',

Je remets le fichier lol, ça semble coton à faire...

 

[Eric C]

Re le fil

Il faut savoir, je n'invente rien !!! :

Ce que je voudrais faire :
cellule H2: Si Clic ou double clic ... à l'appui sur touche "entrée"

@+ Eric c

 

[Usine à gaz]

Re le fil

Il faut savoir, je n'invente rien !!! :

@+ Eric c

LOL : j'm'a trompé
c'est : cellule H2: Si Clic et modifie contenu ou clic ... à l'appui sur touche "entrée"

 

[sylvanu]

Bonjour Lionel, Eric,
Pourquoi pas simplement :

Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [H2]) Is Nothing Then
    [E2].Select
End If
End Sub

et si on veut le faire sur toute la colonne H :

Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [H:H]) Is Nothing Then
    Cells(Target.Row, "E").Select
End If
End Sub

 

[Eric C]

Re le forum
Re Lionel, bonsoir sylvanu

Sinon pour rester dans mon jus :

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

Bonne soirée
@+ Eric c

 

[Eric C]

Re le fil

Et notre ami Lionel qui passe et repasse sur le forum depuis ce matin sans dire si oui ou non les soluces mises à sa disposition lui conviennent ?? A croire qu'il pose trop de questions et fini par les oublier ???
Ah... Il porte bien le fardeau de son pseudo "Usine à gaz"
@+ Eric c

 

[Usine à gaz]

Bonjour le Fil, le Forum, Bonjour Eric c
Effectivement, hier, je suis passé sur le fil et j'ai bien vu ta proposition.
Mais trop fatigué, je n'avais pas testé. Dsl.
Le matin je me connecte automatiquement au lancement de mon ordi mais pas eu le temps de venir sur le forum.
Je regarde ta nouvelle proposition et je reviens

 

[Usine à gaz]

Re-Eric c,
Target fonctionne bien sans souci.

Le souci est quand je clique sur "entrée" sans modifier la cellule "Private Sub Worksheet_SelectionChange(ByVal R As Range)" s'active er le curseur passe à la cellule "I2" et je voudrais qu'il passe directement à la cellule "H2" sans passer par la cellule "I2". comme le fait le code "Private Sub Worksheet_Change(ByVal Target As Range)"

Cela ne semble pas possible et pourtant, ça m'arrangerait bien
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.

 

[fanch55]

Bonsoir,

Le souci est quand je clique sans modifier la cellule "Private Sub Worksheet_SelectionChange(ByVal R As Range)" s'active er le curseur passe à la cellule "I2" et je voudrais qu'il passe directement à la cellule "E2" sans passer par la cellule "I2".

quelle est la cellule cliquée ?

 

[Usine à gaz]

J'ai aussi tenté : Application.MoveAfterReturnDirection = xlToLeft mais ça ne fonctionne pas.

 

[Usine à gaz]

Bonsoir,

quelle est la cellule cliquée ?

Bjr fanch55
C'est toujours H2

 

[Jacky67]

Re-Eric c,
Target fonctionne bien sans souci.

Le souci est quand je clique sur "entrée" sans modifier la cellule "Private Sub Worksheet_SelectionChange(ByVal R As Range)" s'active er le curseur passe à la cellule "I2" et je voudrais qu'il passe directement à la cellule "H2" sans passer par la cellule "I2". comme le fait le code "Private Sub Worksheet_Change(ByVal Target As Range)"

Cela ne semble pas possible et pourtant, ça m'arrangerait bien
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.

Bonjour à tous
Essaye comme ceci

Option Explicit
Dim tmp$
 Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = Range("H2").Address And tmp <> Target Then Range("E2").Activate
  End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = Range("H2").Address Then tmp = Target.Value
End Sub

 

[Usine à gaz]

Bonjour à tous
Essaye comme ceci

Option Explicit
Dim tmp$
 Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = Range("H2").Address And tmp <> Target Then Range("E2").Activate
  End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = Range("H2").Address Then tmp = Target.Value
End Sub