bonsoir tous les membres ,
description de probléme
j'ai crée un code VBA dont leur but est de faire clignoter les cellules DXXX de la feuille de suivi
je suis maintenant dans le cas que chaque changement de la date d'intervention "feuille d'enregistrement" les cellules clignotent or je vais que ce clignotement déclenche si et seulement si les cellules EXXXXXX "feuille de suivi" contient "attention date ,depassée"
(exemple si E5 contient attention date dépassée" alors D5 clignote en rouge si non pas de clignotement ) et de méme pour tous autres cellules. merci pour votre aide
le code existe sous la feuille d'enregistrement
code
Private Sub Worksheet_Change(ByVal Target As Range)
If Me.Cells(3, Target.Column).Value = "date d'intervention" Then
If (Target.Value <> "") And (Target.Offset(0, 1) <> "") Then
Col = CByte(Replace(Target.Offset(-2, -2), "Element ", ""))
Clignote Feuil1.Range("D" & Col + 4)
End If
End If
End Sub
description de probléme
j'ai crée un code VBA dont leur but est de faire clignoter les cellules DXXX de la feuille de suivi
je suis maintenant dans le cas que chaque changement de la date d'intervention "feuille d'enregistrement" les cellules clignotent or je vais que ce clignotement déclenche si et seulement si les cellules EXXXXXX "feuille de suivi" contient "attention date ,depassée"
(exemple si E5 contient attention date dépassée" alors D5 clignote en rouge si non pas de clignotement ) et de méme pour tous autres cellules. merci pour votre aide
le code existe sous la feuille d'enregistrement
code
Private Sub Worksheet_Change(ByVal Target As Range)
If Me.Cells(3, Target.Column).Value = "date d'intervention" Then
If (Target.Value <> "") And (Target.Offset(0, 1) <> "") Then
Col = CByte(Replace(Target.Offset(-2, -2), "Element ", ""))
Clignote Feuil1.Range("D" & Col + 4)
End If
End If
End Sub