Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Comment aller à un cellule de mon choix après avec fait "enter"

Comment aller à un cellule de mon choix après avec fait "enter"

5 réponses
Avatar
Yves B.
Exemple ; je suis en A1 et je veux, après avoir fait "enter", aller 3 lignes
plus bas et 4 colonnes à gauche soit en E4. Idem si je suis en A2 cela donne
E5 (uniquement pour quelques cellules, pas toutes, pour les autres je veux
garder, après "enter" la cellule en dessous)

Je suppose avec une macro mais je suis novice en la matière

MERCI pour votre aide
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacky
Bonjour aussi,

A condition de saisir quelque chose dans la cellule...
Ici dans la plage A1:A5
Clique droit sur l'onglet de la feuille en question==>visualiser le code et
coller ceci dans la fenêtre de droite.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a1:a5]) Is Nothing And Target.Count = 1 Then
Target.Offset(3, 4).Select
End If
End Sub
'----------------
--
Salutations
JJ


"Yves B." <Yves a écrit dans le message de
news:
Exemple ; je suis en A1 et je veux, après avoir fait "enter", aller 3
lignes
plus bas et 4 colonnes à gauche soit en E4. Idem si je suis en A2 cela
donne
E5 (uniquement pour quelques cellules, pas toutes, pour les autres je veux
garder, après "enter" la cellule en dessous)

Je suppose avec une macro mais je suis novice en la matière

MERCI pour votre aide


Avatar
Yves B.
MERCI Jacky,

Cela fonctionne mais est-ce possible avec une macro (en faisant Ctrl+d par
exemple)

Ou sinon comment valider la fonctionne en ne faisant que "enter" car avec
ton excellente info cela fonctionne mais il faut que je rentre une valeur
dans la cellule en question ou efface une valeur, si c'est vide et seulement
"Enter" cela ne fonctionne pas

Merci

"Jacky" wrote:

Bonjour aussi,

A condition de saisir quelque chose dans la cellule...
Ici dans la plage A1:A5
Clique droit sur l'onglet de la feuille en question==>visualiser le code et
coller ceci dans la fenêtre de droite.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a1:a5]) Is Nothing And Target.Count = 1 Then
Target.Offset(3, 4).Select
End If
End Sub
'----------------
--
Salutations
JJ


"Yves B." <Yves a écrit dans le message de
news:
> Exemple ; je suis en A1 et je veux, après avoir fait "enter", aller 3
> lignes
> plus bas et 4 colonnes à gauche soit en E4. Idem si je suis en A2 cela
> donne
> E5 (uniquement pour quelques cellules, pas toutes, pour les autres je veux
> garder, après "enter" la cellule en dessous)
>
> Je suppose avec une macro mais je suis novice en la matière
>
> MERCI pour votre aide





Avatar
Philippe.R
Bonsoir,
Je "mimisse" ; dans un module ordinaire :

Sub va()
ActiveCell.Offset(3, 4).Select
End Sub

et dans le module de feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.OnKey "~", "va"
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Yves B." a écrit dans le message de
news:
MERCI Jacky,

Cela fonctionne mais est-ce possible avec une macro (en faisant Ctrl+d par
exemple)

Ou sinon comment valider la fonctionne en ne faisant que "enter" car avec
ton excellente info cela fonctionne mais il faut que je rentre une valeur
dans la cellule en question ou efface une valeur, si c'est vide et
seulement
"Enter" cela ne fonctionne pas

Merci

"Jacky" wrote:

Bonjour aussi,

A condition de saisir quelque chose dans la cellule...
Ici dans la plage A1:A5
Clique droit sur l'onglet de la feuille en question==>visualiser le code
et
coller ceci dans la fenêtre de droite.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a1:a5]) Is Nothing And Target.Count = 1 Then
Target.Offset(3, 4).Select
End If
End Sub
'----------------
--
Salutations
JJ


"Yves B." <Yves a écrit dans le message de
news:
> Exemple ; je suis en A1 et je veux, après avoir fait "enter", aller 3
> lignes
> plus bas et 4 colonnes à gauche soit en E4. Idem si je suis en A2 cela
> donne
> E5 (uniquement pour quelques cellules, pas toutes, pour les autres je
> veux
> garder, après "enter" la cellule en dessous)
>
> Je suppose avec une macro mais je suis novice en la matière
>
> MERCI pour votre aide







Avatar
Yves B.
MERCI, MERCI beaucoup,

L'info de Philippe est SUPER simple, juste 1 ligne (en dehors de Sub et End
Sub)

Yves B.


"Philippe.R" wrote:

Bonsoir,
Je "mimisse" ; dans un module ordinaire :

Sub va()
ActiveCell.Offset(3, 4).Select
End Sub

et dans le module de feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.OnKey "~", "va"
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Yves B." a écrit dans le message de
news:
> MERCI Jacky,
>
> Cela fonctionne mais est-ce possible avec une macro (en faisant Ctrl+d par
> exemple)
>
> Ou sinon comment valider la fonctionne en ne faisant que "enter" car avec
> ton excellente info cela fonctionne mais il faut que je rentre une valeur
> dans la cellule en question ou efface une valeur, si c'est vide et
> seulement
> "Enter" cela ne fonctionne pas
>
> Merci
>
> "Jacky" wrote:
>
>> Bonjour aussi,
>>
>> A condition de saisir quelque chose dans la cellule...
>> Ici dans la plage A1:A5
>> Clique droit sur l'onglet de la feuille en question==>visualiser le code
>> et
>> coller ceci dans la fenêtre de droite.
>> '---------------
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> If Not Intersect(Target, [a1:a5]) Is Nothing And Target.Count = 1 Then
>> Target.Offset(3, 4).Select
>> End If
>> End Sub
>> '----------------
>> --
>> Salutations
>> JJ
>>
>>
>> "Yves B." <Yves a écrit dans le message de
>> news:
>> > Exemple ; je suis en A1 et je veux, après avoir fait "enter", aller 3
>> > lignes
>> > plus bas et 4 colonnes à gauche soit en E4. Idem si je suis en A2 cela
>> > donne
>> > E5 (uniquement pour quelques cellules, pas toutes, pour les autres je
>> > veux
>> > garder, après "enter" la cellule en dessous)
>> >
>> > Je suppose avec une macro mais je suis novice en la matière
>> >
>> > MERCI pour votre aide
>>
>>
>>




Avatar
Jacky
Merci Philippe, de t'être immiscé ;o)
Et du code bien plus adapté que le mien.

--
Salutations
JJ


"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
%
Bonsoir,
Je "mimisse" ; dans un module ordinaire :

Sub va()
ActiveCell.Offset(3, 4).Select
End Sub

et dans le module de feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.OnKey "~", "va"
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Yves B." a écrit dans le message de
news:
MERCI Jacky,

Cela fonctionne mais est-ce possible avec une macro (en faisant Ctrl+d
par
exemple)

Ou sinon comment valider la fonctionne en ne faisant que "enter" car avec
ton excellente info cela fonctionne mais il faut que je rentre une valeur
dans la cellule en question ou efface une valeur, si c'est vide et
seulement
"Enter" cela ne fonctionne pas

Merci

"Jacky" wrote:

Bonjour aussi,

A condition de saisir quelque chose dans la cellule...
Ici dans la plage A1:A5
Clique droit sur l'onglet de la feuille en question==>visualiser le code
et
coller ceci dans la fenêtre de droite.
'---------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a1:a5]) Is Nothing And Target.Count = 1 Then
Target.Offset(3, 4).Select
End If
End Sub
'----------------
--
Salutations
JJ


"Yves B." <Yves a écrit dans le message de
news:
> Exemple ; je suis en A1 et je veux, après avoir fait "enter", aller 3
> lignes
> plus bas et 4 colonnes à gauche soit en E4. Idem si je suis en A2 cela
> donne
> E5 (uniquement pour quelques cellules, pas toutes, pour les autres je
> veux
> garder, après "enter" la cellule en dessous)
>
> Je suppose avec une macro mais je suis novice en la matière
>
> MERCI pour votre aide