Macro d'une cellule à étaler sur colonne

[Guest]

Bonjour,

J'ai réussi a faire une macro pour que quand en cellule P4 je met une croix, une date figée apparait en R4:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("P4700")) Is Nothing Then Exit Sub
If [P4] = "X" Then [R4] = Date
End Sub

J'aimerai que cette fonction marche de P4 à P700
Comment faire?

Merci d'avance.

 

[drul]

1°) utilise la balise code pour qu'on n'ait pas de smiley partout

2°) tu remplaces ça:

If [P4] = "X" Then [R4] = Date

par

If Target.Value = "X" Then Cells(Target.Row, 18) = Date

Voilù