Faire clignoter une cellule sous condition

Bonjour à tous,

Je viens vous solliciter pour faire clignoter des cellules sous conditions.

J'ai éplucher plusieurs sujets sans parvenir à l'appliquer à mon cas.

Dans le fichier joint, sur la feuille ("TDB J-1") , je souhaiterai que si les valeurs en colonne M - les valeurs en colonnes L sont différentes de la valeur en colonne N alors la cellule en colonne N clignote. (pour chaque ligne)

Merci d'avance pour votre aide.

Isabelle

Bonjour,

Regarde dans les "Sujets Similaires" en bas de page, tu as le choix

Re,

Comme évoqué dans mon sujet, j'ai tenté d'adapter plusieurs solutions dans les sujets déjà évoqué, sans y parvenir à mon grand regret

Je continue malgré tout d'essayer mais mon besoin étant urgent, j'ai sollicité votre aide

Isabelle

Re,

commence déjà par ôter ces macros d'un module et de les placer dans le ThisWorkbook

ensuite

Private Sub Workbook_Open()
 'Lance le clignotement à l'ouverture si la cellule B11 ="Mauvais"
 With Sheets("TDB J-1")
 For I = 4 To 28
 If Sheets("TDB J-1").Cells(I, 9) - Sheets("TDB J-1").Cells(I, 8) <> Sheets("TDB J-1").Cells(I, 10) Then
 Clign
 ElseIf Sheets("TDB J-1").Cells(I, 13) - Sheets("TDB J-1").Cells(I, 12) <> Sheets("TDB J-1").Cells(I, 14) Then
 Clign
 End If
 Next I
 End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 'Interrompt le clignotement éventuel avant fermeture
 StopClign
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 Dim F As Worksheet
 If Target.Count > 1 Then Exit Sub
 If Not Application.Intersect(Target, Range("J4:J28")) Is Nothing Then
 For I = 4 To 28
 If Sheets("TDB J-1").Cells(I, 9) - Sheets("TDB J-1").Cells(I, 8) <> Sheets("TDB J-1").Cells(I, 10) Then Clign
 Else: StopClign
 End If
 Next I

 'Lance ou stoppe le clignotement
 End If

 If Not Application.Intersect(Target, Range("N4:N24")) Is Nothing Then
 For I = 4 To 28
 If Sheets("TDB J-1").Cells(I, 11) - Sheets("TDB J-1").Cells(I, 12) <> Sheets("TDB J-1").Cells(I, 14) Then Clign
 Else: StopClign
 End If
 Next I

 'Lance ou stoppe le clignotement
 End If
End Sub

 'Ensuite j'ai créé un module dans lequel j'ai écrit la procédure de clignotement et l'arrêt du clignotement