Décaler activecell de 2 cellules à droite

[carlos]

Bonsoir le forum

j'aimerais que quand une cellule est modifiée dans la colonne D alors la cellule active se décalle en F
par exemple si je saisie une valeur en D12 alors la cellule active devient f12 .
pourquoi le code ci dessus ne marche pas ??

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range('d4:d57')) Is Nothing Then
If ActiveCell.Column = 4 Then ActiveCell = ActiveCell.Offset(0, 2)

End If
End Sub

Merci

 

[Charly2]

Bonsoir carlos

Si tu n'as pas de sélections multiples, tu peux écrire :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range('D457')) Is Nothing Then
    If ActiveCell.Column = 4 Then
      ActiveCell.Offset(0, 2).Activate
    End If
  End If
End Sub

A+

 

[carlos]

Bonsoir Charly2 , Bonsoir le forum

C'est impeccable , merci beaucoup et bonne soirée

Carlos