Macro d'une cellule à étaler sur colonne

[besafe86]

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.

 

[Softmama]

Re : Macro d'une cellule à étaler sur colonne

Bonjour,

remplace

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

par

If Target = "X" Then Target.offset(,1) = Date

 

[besafe86]

Re : Macro d'une cellule à étaler sur colonne

Merci pour ta réponse rapide mais ça ne fontionne pas!!! sniff

 

[Gorfael]

Re : Macro d'une cellule à étaler sur colonne

Salut besafe86 et le forum
Bienvenue
Pas grand chose à modifier dans ta macro

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range, Plage As Range
Set Plage = Intersect(Target, Range("P4:P700"))
If Plage Is Nothing Then Exit Sub
For Each Cel In Plage
    If Cells(Cel.Row, "P") = "X" Then Cells(Cel.Row, "R") = Date
Next Cel
End Sub

Les différences :

Une boucle pour accepter les copier/coller de X dans ta plage de P

La définition de ta plage en remplaçant le ";" (inconnu en anglais-formule ou VBA) par ":"

Comme ça me semble simple, pas de commentaires, mais n'hésite pas si tu as des questions.
A+

 

[Softmama]

Re : Macro d'une cellule à étaler sur colonne

re, Bonjour Gorfael,

Merci pour ta réponse rapide mais ça ne fontionne pas!!! sniff

oui désolé, pour mon post #2, je voulais dire

If Target = "X" Then Target.offset(,2) = Date

 

[besafe86]

Re : Macro d'une cellule à étaler sur colonne

Merci beaucoup à tous; c'est super ça fonctionne!!!!

a bientot