Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Retour an colonne A après saisie

4 réponses
Avatar
becasse
Je saisis horizontalement de A à F et à la fin je voudrais qu'en appuyant sur
entrée revenir en colonne A pour resaisir à nouveau
je ne peux le faire que si je tabule mais cela ne marche pas si j'utilise
les flèches ( droite)
avez vous la solution? merci

4 réponses

Avatar
Daniel.C
Bonjour.
Si j'ai bien compris, sélectionne une plage de plusieurs lignes, par exemple
A1:F50. Appuie sur "entrée" à chaque changement de cellule.
--
Cordialement.
Daniel
"becasse" a écrit dans le message de
news:
Je saisis horizontalement de A à F et à la fin je voudrais qu'en appuyant
sur
entrée revenir en colonne A pour resaisir à nouveau
je ne peux le faire que si je tabule mais cela ne marche pas si j'utilise
les flèches ( droite)
avez vous la solution? merci



Avatar
JPMonnier
Bonjour aussi,
copie cette proc dans VBA dans la feuille concernée

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$1" Then
[a1].Select
End If
End Sub
--
Cordialement

"becasse" a écrit dans le message de
news:
Je saisis horizontalement de A à F et à la fin je voudrais qu'en appuyant
sur
entrée revenir en colonne A pour resaisir à nouveau
je ne peux le faire que si je tabule mais cela ne marche pas si j'utilise
les flèches ( droite)
avez vous la solution? merci



Avatar
garnote
Bonjour,

Essaie ceci :

Fais un clic droit sur l'onglet de ta feuille,
fais un clic gauche sur "Visualiser le code"
et colle cette macro dans la feuille vierge qui
devrait apparaître :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 6 Then Exit Sub
If Target.Column = 6 And Target.Count = 1 Then Target.Offset(1, -5).Select
End Sub


Serge


"becasse" a écrit dans le message de news:

Je saisis horizontalement de A à F et à la fin je voudrais qu'en appuyant sur
entrée revenir en colonne A pour resaisir à nouveau
je ne peux le faire que si je tabule mais cela ne marche pas si j'utilise
les flèches ( droite)
avez vous la solution? merci



Avatar
garnote
Dans cette version, quand tu entres une valeur dans la cellule F ligne
et que tu valides par "Entrée", la cellule A ligne+1 est sélectionnée.
Par contre, si tu effaces une donnée de la cellue F ligne et que tu valides
par "Entrée", il n'y a pas de changement de ligne.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then
Exit Sub
Else
If Target.Column = 6 And Target <> "" Then Target.Offset(1, -5).Select
End If
End Sub

Est-ce que ça te convient ?

Serge


"garnote" a écrit dans le message de news:
Bonjour,

Essaie ceci :

Fais un clic droit sur l'onglet de ta feuille,
fais un clic gauche sur "Visualiser le code"
et colle cette macro dans la feuille vierge qui
devrait apparaître :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 6 Then Exit Sub
If Target.Column = 6 And Target.Count = 1 Then Target.Offset(1, -5).Select
End Sub


Serge


"becasse" a écrit dans le message de news:

Je saisis horizontalement de A à F et à la fin je voudrais qu'en appuyant sur
entrée revenir en colonne A pour resaisir à nouveau
je ne peux le faire que si je tabule mais cela ne marche pas si j'utilise
les flèches ( droite)
avez vous la solution? merci