Macro d'une cellule à étaler sur colonne

Question

Nouveau
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("P4:P700")) 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.

Mytå · Answer

Salut le forum

Comme ceci

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("P4:P700")) Is Nothing Then
  If UCase(Target) = "X" Then Target.Offset(, 2) = Date
 End If
End Sub

Mytå

Macro d'une cellule à étaler sur colonne

1 réponse

Votre réponse

Discussions similaires

Newsletters