Concours de pétanque

Fermé

DodoMichelle - 10 juin 2020 à 00:14
via55 Messages postés 14425 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 4 juin 2024 - 10 juin 2020 à 19:43

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

A voir également:

Concours de pétanque
Télécharger logiciel concours pétanque gratuit - Télécharger - Sport
Logiciel concours pétanque gratuit excel - Forum Excel
Tableau pétanque imprimer ✓ - Forum Bureautique
Tableau vierge pour concours de pétanque en 4 parties - Forum Loisirs / Divertissements
Lettre de motivation concours aide soignant forum - Forum Études / Formation High-Tech

8 réponses

Réponse 1 / 8

via55 Messages postés 14425 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 4 juin 2024 2 709
10 juin 2020 à 19:43

Bien

Bonnes parties ☺
A+

Réponse 2 / 8

via55 Messages postés 14425 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 4 juin 2024 2 709
10 juin 2020 à 00:46

Bonjour Dodo

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

Réponse 3 / 8

DodoMichelle
10 juin 2020 à 08:10

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

Réponse 4 / 8

via55 Messages postés 14425 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 4 juin 2024 2 709
Modifié le 10 juin 2020 à 09:37

Bonjour

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

Cdlmnt
Via

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 8

via55 Messages postés 14425 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 4 juin 2024 2 709
Modifié le 10 juin 2020 à 10:16

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

Réponse 6 / 8

DodoMichelle
10 juin 2020 à 12:00

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.

Réponse 7 / 8

via55 Messages postés 14425 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 4 juin 2024 2 709
Modifié le 10 juin 2020 à 12:17

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

Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 082
Modifié le 10 juin 2020 à 13:15

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

Réponse 8 / 8

DodoMichelle
10 juin 2020 à 19:20

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

Discussions similaires

Gestion de tournois de pétanque

gestion concours de pétanque en 4 parties

Logiciel pétanque

problème avec le sîte fou de concours

Tableau de parties de pétanques

Discussions similaires

Newsletters