Lancer macro depuis une colonne

[mic67]

Bonjour,
J'ai écrit une petite macro pour que depuis une cellule après avoir valider un chiffre avec la touche Entrée, la cellule sélectionnée doit ce trouver sur la ligne en dessous et 4 cellules en retrait. Voici mon code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
Call selection
Application.EnableEvents = True
End Sub

La macro selection:

Sub selection()
ActiveCell.Offset(1, -4).Select
End Sub

Cela marche mais sur toutes les cellules de la feuille.
Je recherche pour faire démarrer la macro juste avec les cellules de la colonne D de toute la feuille.
Merci de votre aide.

 

[Gorfael]

Re : Lancer macro depuis une colonne

Salut mic67 et le forum

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
if target.cells.count=1 and target.address(0,0) like "D*" then target.Offset(1, -4).activate
End Sub

A+

 

[mic67]

Re : Lancer macro depuis une colonne

Merci Gorfael tout ce que je désirai.
Super le forum.