Worksheet_Change pour remonter de plusieurs cellules et une colonne.
2 réponses
86
Bonjour, à Tous et merci d'avance de prendre le temps de nous répondre.
J'ai un tableau de A3 à A32, sur 50 colonnes et lorsque je suis en A32, j'aurai voulu remonter automatiquement en B3 après validation.
J'ai essayé le code suivant que j'ai mis avec de l'aide mais rien ne fonctionne.
Private Sub Worksheet_Range(ByVal sel As Range)
If sel.Count=1 And sel Row=45 Then
Cells(3, sel Colomn +1) Select
End If
End Sub
Il butte sur la 2° ligne
Par contre si je me mets en double click avec un MsgBox cela marche bien.
Merci à vous et Bonne journée.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
DanielCo
Bonjour, Private Sub Worksheet_change(ByVal sel As Range) If sel.Count = 1 And sel.Row = 45 Then Cells(3, sel.Column + 1).Select End If End Sub Cordialement. Daniel
Bonjour, à Tous et merci d'avance de prendre le temps de nous répondre. J'ai un tableau de A3 à A32, sur 50 colonnes et lorsque je suis en A32, j'aurai voulu remonter automatiquement en B3 après validation. J'ai essayé le code suivant que j'ai mis avec de l'aide mais rien ne fonctionne. Private Sub Worksheet_Range(ByVal sel As Range) If sel.Count=1 And sel RowE Then Cells(3, sel Colomn +1) Select End If End Sub Il butte sur la 2° ligne Par contre si je me mets en double click avec un MsgBox cela marche bien. Merci à vous et Bonne journée.
Bonjour,
Private Sub Worksheet_change(ByVal sel As Range)
If sel.Count = 1 And sel.Row = 45 Then
Cells(3, sel.Column + 1).Select
End If
End Sub
Cordialement.
Daniel
Bonjour, à Tous et merci d'avance de prendre le temps de nous répondre.
J'ai un tableau de A3 à A32, sur 50 colonnes et lorsque je suis en A32,
j'aurai voulu remonter automatiquement en B3 après validation.
J'ai essayé le code suivant que j'ai mis avec de l'aide mais rien ne
fonctionne.
Private Sub Worksheet_Range(ByVal sel As Range)
If sel.Count=1 And sel RowE Then
Cells(3, sel Colomn +1) Select
End If
End Sub
Il butte sur la 2° ligne
Par contre si je me mets en double click avec un MsgBox cela marche bien.
Merci à vous et Bonne journée.
Bonjour, Private Sub Worksheet_change(ByVal sel As Range) If sel.Count = 1 And sel.Row = 45 Then Cells(3, sel.Column + 1).Select End If End Sub Cordialement. Daniel
Bonjour, à Tous et merci d'avance de prendre le temps de nous répondre. J'ai un tableau de A3 à A32, sur 50 colonnes et lorsque je suis en A32, j'aurai voulu remonter automatiquement en B3 après validation. J'ai essayé le code suivant que j'ai mis avec de l'aide mais rien ne fonctionne. Private Sub Worksheet_Range(ByVal sel As Range) If sel.Count=1 And sel RowE Then Cells(3, sel Colomn +1) Select End If End Sub Il butte sur la 2° ligne Par contre si je me mets en double click avec un MsgBox cela marche bien. Merci à vous et Bonne journée.
gmlsteph
Bonjour, si c'est 44 et pas 32 remplacer 33 par 45 C'est à mettre dans le private module de la feuille:
''''' Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Target If .Row = 33 Then Cells(3, .Column + 1).Activate End With End Sub ''''' '__ 'lSteph
Bonjour,
si c'est 44 et pas 32 remplacer 33 par 45
C'est à mettre dans le private module de la feuille:
'''''
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Row = 33 Then Cells(3, .Column + 1).Activate
End With
End Sub
'''''
'__
'lSteph
Bonjour, si c'est 44 et pas 32 remplacer 33 par 45 C'est à mettre dans le private module de la feuille:
''''' Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Target If .Row = 33 Then Cells(3, .Column + 1).Activate End With End Sub ''''' '__ 'lSteph
