Discussion :

[facteur]

Bonjour,
J'ai trouvé, dans ce forum, un code VBA qui permet de faire clignoter une ou plusieurs cellules sous une condition.
J'ai modifie ce code afin de l'adapter à ma condition qui est celle de cellules en doublon dans une plage de cellule.
Or , je n'arrive pas a faire fonctionner mon code. Je crois qu il manque un petit bout de code qui lancerait le clignotement des cellules en doublon dans la Plage.
Mercie d'avance de votre aide

Voici le code modifié

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub StartFlash()
 
    NextTime = Now + TimeValue("00:00:10")
 
    Dim Plage As Range
    Dim Cel As Range
 
    With Worksheets("Semaine")
       Set Plage = .Range("B48:B62,F8:F64,G8:G61,N8:Y61")
    End With
 
   For Each Cel In Plage
        If Application.CountIf(Plage, Cel.Value) > 1 Then
    Application.OnTime NextTime, "StartFlash", , True
      End If
  Next Cel
 
End Sub
 
Sub StopFlash()
    Application.OnTime NextTime, "StartFlash", , , False
    End Sub

[patricktoulon]

re
et pour cause a aucun moment dans startflash tu change une propriété quelle qu'elle soit de tes cellule
bien sur qu'il t'en manque du code
ce qui me laisse a penser que tu te contente de faire un copier coller sans en comprendre le fonctionnement
je te suggere de commencer par les bases avant de te lancer dans ce gene d'exercice qui pourrait bien te jouer de vilains tours (bloquage total par exemple)surtout quand c'est pas metrisé

apres honnetement je ne vois pas l'utilité de faire tourner des boucle intermitante mais bon les gouts et les couleurs
sinon voila un exemple qui fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim NextTime As Date
Sub StartFlash()
    Dim Plage As Range, Cel As Range
    NextTime = Now + TimeValue("00:00:01")
    Set Plage = Sheets(1).Range("A1:A10")
    For Each Cel In Plage
        DoEvents
        If Cel.Value <> "" Then
            If Application.CountIf(Plage, Cel.Value) > 1 Then
                With Cel: .Interior.Color = IIf(.Interior.Color = vbRed, xlNone, vbRed): End With
            End If
        End If
    Next Cel
    Application.OnTime NextTime, "StartFlash", schedule:=True
End Sub
Sub StopFlash()
    Application.OnTime NextTime, "StartFlash", schedule:=False
End Sub

mais c'est pas te rendre service

[facteur]

Bonjour Patrick,
Je reconnais que je ne maitrise pas cette fonction Application.OnTime
En fin de compte, ce que je voulais faire, ce n'est pas de colorier les cellules en doublon mais uniquement les faire clignoter.
En français cela donnerait:
si dans la plage de cellules, il y a des cellules en doublon alors elle clignote sinon rien
Effectivement, pour la boucle, cela ne sert à rien dans ce cas précis

[patricktoulon]

re
Bonjour
heu....... clignoter???

pour faire clignoter une cellule il faut changer par intermitance une de ces propriété le interior.color etant ma fois le visuel le plus significatif

pourquoi ca veut dire quoi pour toi une cellule qui clignote

pour ton information toutes les lignes de code dans mon exemple sont utiles meme la boucle sur les cellules sans ca walouh!! walouh!!

[facteur]

Patrick,
Je comprend de mieux en mieux cette notion de cellule qui clignote.
Dans mon cas de figure, la plage de cellule qui contient des doublons sont des cellules de couleur dont le blanc
La grande question serait alors : comment faire clignoter une cellule sans changer le fond de couleur ?
Je me dis alors que dans mon cas, il ne faudrait pas une cellule qui clignote mais une cellule dont le contenu s'efface et s'affiche par intermittence

[patricktoulon]

essaie cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim NextTime As Date
Sub StartFlash()
    Dim Plage As Range, Cel As Range
    NextTime = Now + TimeValue("00:00:01")
    Set Plage = Sheets(1).Range("A1:A10")
    For Each Cel In Plage
        DoEvents
        If Cel.Value <> "" Then
            If Application.CountIf(Plage, Cel.Value) > 1 Then
                With Cel: .Font.Size = IIf(.Font.Size <> 1, 1, 11): End With
            End If
        End If
    Next Cel
    Application.OnTime NextTime, "StartFlash", schedule:=True
End Sub
Sub StopFlash()
    Application.OnTime NextTime, "StartFlash", schedule:=False
End Sub

pas compliqué non ?
tout simplement dans le with tu change une propriété des celles en doublons pour donner un effet clignotant