Cellule clignotante

[matthieu]

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

 

[Abel]

Bonjour Matthieu,

Avec Range plutôt que Cell :

Sub cligno()
For i = 1 To 20
Range("a1:a10").Interior.ColorIndex = 3
Range("a1:a10").Interior.ColorIndex = 6
Next
End Sub


Abel

 

[matthieu]

Merci Abel,

Saurais tu me dire comment coder "s'il les cellules de A1 à A10 sont différentes de vide alors..

JE n'y arrive, je n'ai pas la bonne écriture
If [A1;A10] <> "" Then


Merci

 

[Abel]

Re,

Est-ce toute une plage à la fois que tu veux tester ou toutes les cellules d'une plage ?

Dans le premier cas, tu fais la somme et tu testes le résultat. Si = 0 alors blablabla.

Sinon :

For each c in range("a1:a10")
if c=0 (ou if c="") then
blablabla
end if
next

C'est une possibilité.

Dans ton cas, je suppose que tu veux faire clignoter un ensemble de cellules vides qui ne sont pas forcément contigües.
Regarde alors dans l'aide la méthode Union.

Abel

 

[Abel]

Re,

Pour la méthode Union, regarde ce fil.

Sur le dernier message, j'y ai joins un exemple qui utilise cette méthode.

Abel

 

[Abel]

<http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=112858&t=112858>

Ben quoi ....

Abel