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

tchi456 · 20 Avril 2022

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

tchi456 · 20 Avril 2022

Bonjour Sylvanu,

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

VB:

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 · 20 Avril 2022

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

VB:

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 · 20 Avril 2022

Bonjour Sylvanu,

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

VB:

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 · 20 Avril 2022

Oups, zappé P1 à J2. Sorry.

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

tchi456

XLDnaute Occasionnel

tchi456

sylvanu

XLDnaute Barbatruc

Pièces jointes

tchi456

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Discussions similaires