XL 2010 CELLULE CLIGNOTANTE

[HamoudaBA]

bonsoir,
J'aimerai savoir comment faire clignoter le fond une cellule à partir d'une liste déroulante.
Dans mon exemple ci joint je souhaite faire clignoter la cellule c7 en rouge si elle contient le choix "absent sans justif".
Est il possible qu'elle clignote sans limitation de durée.

Je vous remercie d'avance.

 

[Softmama]

Bonjour HamoudaBA

Ces lignes répondent à ton besoin :

Private Declare Function GetTickCount Lib "Kernel32" () As Long

Sub Minuterie(Milliseconde As Long)
Dim Arret As Long
Arret = GetTickCount() + Milliseconde
Do While GetTickCount() < Arret
    DoEvents
Loop
End Sub

Sub Clignote(Cel1 As Range)
On Error GoTo Fin
    'clignote si Absent sans justif
    Do While Cel1.Value = "Asbsent sans justif."
        Cel1.Interior.ColorIndex = 3
        Minuterie 300
        Cel1.Interior.ColorIndex = 0
        Minuterie 300
    Loop
Fin:
Cel1.Interior.ColorIndex = 0
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
  Clignote Range("C7")
End Sub

Vois le fichier joint

 

[HamoudaBA]

Je vous remercie de votre réponse qui me va parfaitement, simplement je trouve un problème en changeant le type de caractère, si j'utilise des caractères Arabe ou des symboles dans la valeur de la cellule en liste déroulante. Pouvez vous m'expliquer, même si j'abuse de votre gentillesse, ce que je dois changer dans le code vba

 

[riton00]

Bonjour,

Autre méthode

 

[Softmama]

Bonjour,

J'ai adapté le code, pour comparer la valeur de C7 avec celle de N9, au lieu de lui demander en dur le contenu. Ca semble fonctionner avec mon test en arabe, à vérifier sur d'autres textes.

 

[HamoudaBA]

Bonjour, Je vous remercie votre solution est parfaite, et ..(la traduction est parfaite). Merci