Bonjour,
A priori La cellule L4 n'est pas renseignée à l'écriture
*J' ai modifié quelque peu la procédure de "Département"
-changement du numérotage des textbox (utilisé comme libellé)
-le remplacement du label pour la date par un textbox (un label ne reçoit pas le focus)
-La façon de vérifier que les combobox soient saisie
Regarde si cela te convient
Bonsoir Jacky , merci pour ton implication . concernant la cellule L4 , est bien renseignée via la macro évidentielle de la feuille OT. l'information de la cellule L4 est renseigner selon les info de d'autres cellules.
merci pour ton retour
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("B4")) Is Nothing Then
'Stop
If Target <> "" Then
Range("h4") = Date
'Target.Offset(, 12) = Texte
Range("L4").Value = "A Traiter"
Else
Target.Offset(, 1).Resize(, 2) = ""
End If
GoTo fin
End If
If Not Application.Intersect(Target, Range("A9")) Is Nothing Then
'Stop
If Range("L4") <> "A Traiter" Then MsgBox ("La cellule L4 doit contenir 'A Traiter'"): GoTo fin
If Target <> "" Then Range("L4") = "En cours"
GoTo fin
End If
If Not Application.Intersect(Target, Range("H9")) Is Nothing Then
If Target = "Non" Then GoTo fin
If Range("A9") <> "" And Target = "Oui" Then Range("L4") = "Attente Pièce" Else MsgBox ("La cellule A9 doit être alimentée"): Range("I9") = "": GoTo fin
End If
If Not Application.Intersect(Target, Range("I9")) Is Nothing Then
If Target = "Conforme" Then Range("L4") = "Résolu"
End If
If Not Application.Intersect(Target, Range("I9")) Is Nothing Then
If Target = "Conforme" Then Range("K4") = Date
End If
fin:
End Sub