Discussion :

[tigre115]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
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

[Menhir]

Il manque beaucoup d'éléments pour comprendre ton problème mais, à priori, il devrait suffire de remplacer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  If (Target.Value <> "") And (Target.Offset(0, 1) <> "") Then

Par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  If (Target.Value = "") And (Target.Offset(0, 1) <> "attention date ,depassée") Then