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

Eric C

XLDnaute Barbatruc

• 22 Novembre 2019

• #2

Bonjour le forum
bonjour vinceda

Si j'ai bien compris :

VB:

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 22 Novembre 2019

• #3

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

VB:

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

Code:

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

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 22 Novembre 2019

• #4

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.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 22 Novembre 2019

• #5

Bonjour à tous,

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

VB:

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

 

Vote positif 0 Vote négatif

V

vinceda

XLDnaute Junior

• 22 Novembre 2019

• #6

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

 

Vote positif 0 Vote négatif