XL 2010 Déplacement à Droite puis à la ligne avec "Entrée"

[vinceda]

Bonjour à tous,

encore une petite question pour les pro d'excel.
pour l'exploitation d'un fichier, je scanne tous les jours des éléments à l'aide d'une douchette.
je récupère 2 n° qui sont liés entre eux puis avec une formule, je vais chercher d'autres informations.
ma question est la suivante:
je souhaite que le déplacement lors de la validation par entrée (ou scan) soit sur le scenario suivant:
A1->B1
A2->B2
A3->B3
A4->B4
...
est-ce possible?

Merci d'avance pour votre aide...

 

[Eric C]

Bonjour le forum
bonjour vinceda

Si j'ai bien compris :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 Then
Cells(Target.Row + 1, 1).Select
End If
End Sub

- Avec déplacer sélection après validation : sens = droite
Bonne journée à toutes & à tous
@+ Eric c

 

[patricktoulon]

Bonjour
code a mettre dans le module de la feuille concernée

Private Sub Worksheet_Activate()
Application.OnKey "~", "changekey"
End Sub


Private Sub Worksheet_Deactivate()
Application.OnKey "~"
End Sub

et code a mettre dans un module standard

Sub changekey()
If ActiveCell.Column = 1 Then Application.SendKeys vbTab Else Application.SendKeys "{ENTER}"
End Sub

ainsi si tu est dans la colonne "A" ca va a droite et si tu est dans une colonne après la "A" ca descend

 

[Victor21]

Bonjour vinceda, bonjour à tous.

Si, dans les options, vous avez conservé la valeur standard

il vous suffit de présélectionner avec la souris A1:B4. Chaque validation se fera dans l'ordre voulu. Sans formule ni code.

 

[mapomme]

Bonjour à tous,

Puisqu'on parlait de "validation par entrée (ou scan)", j'avais pensé à cela:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Count = 1 And Target.Column = 1 Then Target.Offset(, 1).Select
End Sub

 

[vinceda]

bonjour A tous,

merci pour vos retours .
j'ai testé la solution d'Eric C... pour l'instant ça marche.
J'ai une question subsidiaire: si je change dans les options/ validation/bas par droite, ceci va t'il être le cas pour tous mes classeurs excel ou seulement pour la feuille sélectionner?

si cela est le cas, cette solution ne pourra être mise en place au regard du nombre de fichier que je manipule chaque jour
Ma pomme: j'ai testé, mais ça ne marche que pour la première ligne ......

En tout cas, merci pour vos aides