Sélection de cellule

[mic67]

Bonjour,
Je cherche ou écrire ce code de VBA pour avec la touche Entrée
déplacer la cellule sélectionnée dans une ligne inférieur et 2 colonnes
plus loin. Ceci doit être valable pour toute la colonne A et C.
ActiveCell.Offset(1 ,4).Select

Je met Private Sub et apres ou dans Workbook, Worksheet ?
Merci pour la réponse

 

[JBARBE]

Re : Sélection de cellule

Bonjour,
Je cherche ou écrire ce code de VBA pour avec la touche Entrée
déplacer la cellule sélectionnée dans une ligne inférieur et 2 colonnes
plus loin. Ceci doit être valable pour toute la colonne A et C.
ActiveCell.Offset(1 ,4).Select

Je met Private Sub et apres ou dans Workbook, Worksheet ?
Merci pour la réponse

Bonjour à tous,
Pour une ligne inférieur et 2 colonnes plus loin c'est :

Sub Essai ()
ActiveCell.Offset(-1 ,2).Select
End Sub

bonne journée !

 

[mic67]

Re : Sélection de cellule

Merci Jbarbe mais je cherche la mise en fonction avec la
touche u clavier Entrée comme pour allez à la cellule d'à coté.
aplus

 

[JBARBE]

Re : Sélection de cellule

En appuyant sur la touche " Suppr " si pas de saisie ou en ayant fait une saisie validée par la touche Entrée
Macro à mettre dans la feuille concernée

colonne A et C
Pour une ligne inférieur et 2 colonnes plus loin c'est :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A:A", "C:C"), Target) Is Nothing And Target.Count = 1 Then
If Target.Column = 1 Then Cells(Target.Row + 1, 3).Select
If Target.Column = 3 Then Cells(Target.Row + 1, 5).Select
End If
End Sub

 

[mic67]

Re : Sélection de cellule

Merci pour votre réponse . Cordialement Michel