Concours de pétanque

Question

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

via55 · Answer

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

DodoMichelle · Answer

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

via55 · Answer

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

via55 · Answer

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

DodoMichelle · Answer

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.

via55 · Answer

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

DodoMichelle · Answer

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

via55 · Answer

Bien

Bonnes parties ☺
A+

Concours de pétanque

8 réponses

Discussions similaires

Newsletters