Re : Cellule clignotante
Merci jean Pierre pour ta réponse. j'ai appliqué (enfin, je pense ce que tu m'as dit de faire. Voir ci-dessous si pas d'erreur. Cela étant le "mot de passe" est à vide. j'ai essayé avec un mot de passe, c'est pareil)
Donc, je n'ai plus de l'erreur mais je n'ai plus AUSSI la fonction clignotant de la macro.
Peux tu encore m'aider.
Merci
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect (" ")
Dim n As Byte
Dim Start As Variant
Dim i As Integer
If [K24] = "GBP" Then
Const Texte As String = ""
For i = 1 To 4
Cells(25, 11).Font.ColorIndex = 6
Cells(25, 11).Interior.ColorIndex = 3
For n = 1 To 10
Start = Timer
Do While Timer < Start + 1 / 100
Loop
If n Mod 5 = 0 Then
Cells(25, 11).Interior.ColorIndex = xlNone
Cells(25, 11).Font.ColorIndex = 1
End If
Next n
Next i
End If
Exit Sub
ActiveSheet.Protect (" ")
End Sub