XL 2010 VBA - Déplacement spécifique de la sélection après validation

[tchi456]

Bonjour,

Je souhaiterai paramétrer le déplacement de la sélection de cellule après validation dans les cellules de la colonne P.

Exemple:
Si ma cellule P1 est sélectionnée et que je clique sur enter, la cellule J2 sera ensuite sélectionnée.
Si ma cellule P2 est sélectionnée et que je clique sur enter, la cellule J3 sera ensuite sélectionnée.
Si ma cellule P3 est sélectionnée et que je clique sur enter, la cellule J4 sera ensuite sélectionnée.
Et ainsi de suite...

Le déplacement de la sélection de toutes les autres cellules après validation se fera d'une case par la droite.

Pouvez-vous m'aider?

Meilleures salutations,

Thierry

 

[sylvanu]

Bonjour Tchi,
On peut le faire simplement avec une macro événementielle :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [P:P]) Is Nothing Then
         Cells(Target.Row, "J").Select
    End If
End Sub

Voir PJ.

 

[tchi456]

Bonjour Sylvanu,

Merci pour votre proposition; votre code fonctionne parfaitement bien. J'ai juste ajouté l'incrémentation de la ligne:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [P:P]) Is Nothing Then
         Cells(Target.Row+1, "J").Select
    End If
End Sub

Meilleures salutations et bonne journée.

Thierry

 

[sylvanu]

Oups, zappé P1 à J2. Sorry.