Concours de pétanque

Bonsoir Via,

J'aimerais que la cellule B28 du fichier joint clignote lorsqu'il y a un nom (gagnant du concours), si c'est possible !
Peux tu,stp, me donner la solution?
cordialement
Dodo

https://mon-partage.fr/f/N1f2vL9A/

Configuration: Windows / Chrome 81.0.4044.138

8 réponses

  1. Bonsoir Via,Mike,

    Nickel, merci , j'ai simplement caché la cellule B28 des poules avec le bouton macro sur les onglets poules et tout fonctionne correctement.
    Bonne soirée et bon courage.
    Cdlmnt.
    Dodo
    0
    1. C'est bien seule la cellule B28 qui clignote
      Par contre cela se fait sur toutes les feuilles,apparemment pas moyen de ne le faire que sur une seule feuille
      Dans Module1 ce sont les chiffres 4 et 6 pour les couleurs dans la macro
      Sub Clignote(c, nb)
          couleuractuelle = Range(c).Interior.ColorIndex
          If couleuractuelle = 6 Then couleuractuelle = 4
          For n = 1 To nb
             ActiveSheet.Range(c).Interior.ColorIndex = 6
             fin = Timer + 0.2
             Do While Timer < fin:  DoEvents: Loop
             ActiveSheet.Range(c).Interior.ColorIndex = couleuractuelle
             fin = Timer + 0.4
             Do While Timer < fin: DoEvents: Loop
          Next
      End Sub

      Dans las macros de ThisWorkbook et de la feuille Phases Finales c'est le chiffre 10 qui fixe le nombre de clignotements
       If Sheets("Phases Finales").Range("L6") <> 0 Then Clignote "B28", 10


      0
      1. Salut le fil,

        dans les propriétés de la feuille Phases Finales ajouter ce code voir

        Private Sub Worksheet_Deactivate()
        If Sheets("Phases Finales").Range("L6") <> 0 Then End
        End Sub
        0
    2. Re,

      Le fonctionnement impeccable, sauf que j'ai mal posé le pb!Je voulais seulement la cellule B28 de l'onglet phases finales que j'ai oublié de te préciser!!!!!
      Peux tu modifier?
      Je ne suis pas doué du tout car je ne trouve pas tes modifs dans le développeur (module 1, Worksheet phases finales,etc...
      Cordialement.
      Dodo.
      0
      1. Re,
        https://mon-partage.fr/f/qHrqMLNc/
        Activation du clignotement à l’ouverture du classeur, à l'activation de la feuille ou au changement de cellule
        Le clignotement se fait 10 fois
        Voir macro dans Module 1 pour changer les couleurs éventuellement
        Voir macro dans le Worsheet de la feuille Phases Finales et dans This Worbook pour changer le nombre de clignotements

        Cdlmnt
        Vi
        0
        1. Bonjour

          Oui ça va.
          ça marche, je regarde ça dans la matinée

          Cdlmnt
          Via

          0
          1. Bonjour Via,

            Merci, ça va très bien,j'espère que toi également?
            Pour le mdp,je ne comprends pas,je n'en ai pas mis!j'ouvre le fichier normalement.Pour ce genre de fichier, j'utilise marius comme mdp.
            Bonne journée et à bientôt.
            Cordialement.
            Dodo
            0
            1. Bonjour Dodo

              Ca va ?
              Je veux bien t'aider mails il me faut le mdp pour accéder au VBA

              0