M
matthieu
Guest
Bonjour,
je suis sur ce fichier excel et essaie de faire clignoter le résultat des cellules qui ne sont pas vides et ce pour toute une colonne.
Je parviens à faire clignoter une cellule avec la macro suivante :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim n As Byte
Dim Start As Variant
Dim i As Integer
If [A1] <> "" Then
Const Texte As String = ""
For i = 1 To 4
Cells(1, 1).Font.ColorIndex = 6
Cells(1, 1).Interior.ColorIndex = 3
For n = 1 To 10
Start = Timer
Comment faire pour faire clignoter les cellules de A1 à A10 par exemple?
Si quelqu'un a un éclair de génie...
Merci d'avance
Do While Timer < Start + 1 / 100
Loop
If n Mod 5 = 0 Then
Cells(1, 1).Interior.ColorIndex = xlNone
Cells(1, 1).Font.ColorIndex = 1
End If
Next n
Next i
End If
Exit Sub
End Sub
je suis sur ce fichier excel et essaie de faire clignoter le résultat des cellules qui ne sont pas vides et ce pour toute une colonne.
Je parviens à faire clignoter une cellule avec la macro suivante :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim n As Byte
Dim Start As Variant
Dim i As Integer
If [A1] <> "" Then
Const Texte As String = ""
For i = 1 To 4
Cells(1, 1).Font.ColorIndex = 6
Cells(1, 1).Interior.ColorIndex = 3
For n = 1 To 10
Start = Timer
Comment faire pour faire clignoter les cellules de A1 à A10 par exemple?
Si quelqu'un a un éclair de génie...
Merci d'avance
Do While Timer < Start + 1 / 100
Loop
If n Mod 5 = 0 Then
Cells(1, 1).Interior.ColorIndex = xlNone
Cells(1, 1).Font.ColorIndex = 1
End If
Next n
Next i
End If
Exit Sub
End Sub