Discussion :

[babybell]

Bonsoir amis développeurs

Est-il possible, qu'après avoir validé une entrée avec la touche Enter, je me repositionne automatiquement sur une cellule désirée ? Je m'explique : après m'être déplacé de A2 vers B2 puis vers C2 et enfin D2, j'aimerai qu'après avoir validé ma saisie par Enter je me retrouve en B2 etc...

merci de votre aide

[Pierre Fauconnier]

Bonsoir

Comme tu as mis etc..., j'ai supposé que tu voulais passé en B3, puis de D3 en B4, etc.

Dans cette optique, tu pourrais utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 4 Then Target(2, -1).Select
End Sub

A adapter selon le déplacement souhaité. Pour info, ce code se place dans le module de la feuille concernée par la gestion du déplacement.

Si tu dois gérer les déplacements après validation pour plusieurs colonnes, tu auras intérêt à t'orienter vers un bloc Select Case...

Ok?

[babybell]

Merci de ta réponse. Le résultat est OK. Peux-tu m'expliquer la démarche pour le sélect case, je ne connais-pas. Merci d'avance

[Pierre Fauconnier]

Select Case permet de tester une valeur et de travailler en fonction de celle-ci. Cela remplace une suite de If... End If sur la même valeur.

Si, par exemple, tu dois tester la colonne et exécuter des procédures différentes selon le numéro de la colonne, tu pourrais avoir ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
If Target.Column = 1 Then
    ....
End If
If Target.Columne = 2 Then
    ...
End If
If Target.Columne = 3 Then
    ...
End If
...

Tu peux remplacer cette structure un peu lourde par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Select Case Target.Column
    Case 1
        ....
    Case 2
        ....
    Case 3
        ....
End Select

Dans les cases, tu peux aussi avoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Case 1 To 5

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Case Is < 4

Etc...

L'aide et les tutos devraient te renseigner davantage.

[babybell]

OK compris. Merci, cela va me servir car c'était justement ce que je faisais dans différentes applications. Encore merci