J'ai inséréle code suivant tel quel (comme vous me l'avez donné, en modifiant juste une petite faute de frappe à intersect) :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [E39]) Is Nothing And LCase([E39]) = "oui" _
Then ThisWorkbook.Names.Add "DateOui1", "=""" & Format(Date, "d/m/yyyy") & """" ', Visible:=False 'si l'on veut masquer le nom défini
If Not Intersect(Target, [E40]) Is Nothing And LCase([E40]) = "oui" _
Then ThisWorkbook.Names.Add "DateOui2", "=""" & Format(Date, "d/m/yyyy") & """" ', Visible:=False 'si l'on veut masquer le nom défini
If Not Intersect(Target, [E41]) Is Nothing And LCase([E41]) = "oui" _
Then ThisWorkbook.Names.Add "DateOui3", "=""" & Format(Date, "d/m/yyyy") & """" ', Visible:=False 'si l'on veut masquer le nom défini
If Not Intersect(Target, [E42]) Is Nothing And LCase([E42]) = "oui" _
Then ThisWorkbook.Names.Add "DateOui4", "=""" & Format(Date, "d/m/yyyy") & """" ', Visible:=False 'si l'on veut masquer le nom défini
End Sub
pouvez vous me confirmer qu'il n'y a rien a modifier dans ce code svp ? entrée d'une date ou autre ?
merci bcp mais si pour le moment je suis bloqué