[excel vba]retourner a la ligne [Résolu]

Bonjour

Colle ce code dans la feuille contenant le tableau, il renvoie à la ligne lorsque tu appuie sur une touche Entrée dans la dernière colonne de ton tableau (la colonne 3) :

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const n°C As Integer = 3   'N° de la dernière colonne du tableau

  If Target.Column = n°C Then
    If GetAsyncKeyState(vbKeyReturn) = -32768 Then
      Application.EnableEvents = False
      Target.Offset(0, 1 - n°C).Select
      Application.EnableEvents = True
    End If
  End If

End Sub

Patrice

Re,

Il est difficile de comprendre les attentes, sur les propositions faites, aucune réponse n'apporte la preuve d'un disfonctionnement ou d'informations complémentaires.
Avec des:
-mais ca n'a pas marché
-mais ca marche pas
-mais tu m a pas bien comprie
-Ah si un code glané qui renvoi sur la cellule A2, il suffisait d'écrire [A2].select et le tour était joué
Egalement persuadé que les fonctions de base d'Excel suffisentà traiter cette demande, à part que l'on souhaite revenir systématiquement sur la première cellule de la ligne inférieure quelque soit la position de la cellule active, ce code volatile à tester, pour la première utilisation associer la macro test à un bouton que l'on active une fois ensuite le code réagit avec la touche Entrée

Sub test()
Application.OnKey "~", "Retour_Chariot"
End Sub
Sub Retour_Chariot()
Cells(ActiveCell.Row, 1).Offset(1, 0).Select
End Sub

Pour ma part je ne suis pas devin et je viens de casser ma boule de cristal.
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Salut

essaye un de ces deux codes à coller dans la Thiswokbook pour l'application à toutes les feuilles du classeur ou dans la propriété de la feuille concernée, qui lorsque tu saisis une valeur en C la touche Entrée te renvoie en A1

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub
[A1].Select
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then
[A1].Select
End If
End Sub

Bonsoir,

Il n'y a besoin d'aucune macro ni d'aucune option particulière pour faire ce que tu demandes, c'est le fonctionnement normal d'Excel lorsqu'on se sert du clavier.

Pour passer d'une cellule à celle de la colonne adjacente il faut appuyer sur Tab (de A1 vers B1, de B1 vers C1), arrivé au bout de tableau il suffit d'appuyer sur Enter pour revenir au début de la ligne suivante (de C1 vers A2, de C2 vers A3, ...)

Par contre, le simple fait d'utiliser la souris pour sélectionner une cellule (clic gauche ou droit) désigne cette cellule comme étant la première cellule du tableau, avec Tab on passe à la cellule suivante et Enter passe à la ligne suivante dans la même colonne que cette cellule désignée à la souris.

D'autre part je ne comprend pas comment tu fais pour cliquer sur la touche Enter, à la rigueur, tu peux te servir de la souris pour appuyer sur la touche, mais pour cliquer ?

Patrice

Bonjour tout le monde,

Autre possibilité :
dans menu 'outils / options...' onglet 'modification' mettre 'déplacer la sélection après validation' à : 'droite'
Ensuite il suffit de sélectionner la plage A1:C12 avant de commencer les saisies.
Ainsi chaque ligne sera saisie avant de passer au début de la suivante.

eric

Re,

peut être n'avons nous pas bien compris tes attentes

colle ce code dans les propriétés de ta feuille (clic droit sur l'onglet/visualiser le code)
Range("C:C") peut être modifié pour se limiter à une plage ex Range("C2:C100")
Le code ci-dessous fonctionne également avec la touche Tabulation (lorsque tu as saisi une valeur en C soit tu clic sur Entrée ou Tabulation)

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub
Target.Offset(1, -2).Select
End Sub

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Re,

Non je ne suis pas le meilleur, le principal est de comprendre ou plutôt deviner les attentes. Dans ce coup j'ai su lire entre les lignes, c'est ton bout de code qui m'a mis la puce à l'oreille.
Si c'est ce que tu cherchais, il faut peut être améliorer le code de sorte que la cellule active ne revienne pas à la ligne chaque fois que tu cliques sur Entrée afin de pouvoir travailler sur ton tableau mais que le retour ligne se fasse lorsque tu atteins une colonne exemple la D

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Bonjour

Puisque tu as créé un post pour ton nouveau problème :
http://www.commentcamarche.net/...

Peux-tu mettre celui-ci en résolu