Compte à rebours VBA

Bonjour Dan,

J'espère que tu me répondras...

Ton VBA est super mais j'éprouve une difficulté à changer le compte à rebours de cellule.

La tienne est sur A1 et j'aimerais qu'elle soit sur X4

J'ai eu beau essayer de modifier A1 en X4 dans le module mais cela ne marche pas !

Peut-être ai-je commis une erreur ?

Pourrais-tu me remettre le code sur la cellule X4 STP ?

Un tout grand merci à toi

Bonjour,

regarde si c'est cela juste changé sur la cellule X4

crdlt,

André

Merci André... Ca fonctionne !

Crois-tu qu'il serait possible d'y ajouter un BEEP sonore assez fort dès qu'il arrive à 0 ??

Merci en tous cas de ton aide !!

Emile

Bonjour

Beep fonctionne en utilisant le son Bip de Windows

Dim ok As Boolean
Declare Function Beep Lib "kernel32" (ByVal Frequence As Long, ByVal Duree As Long) As Long
Sub Demarrechrono()
'Macro Dan pour stephane Guidon
ok = True
Range("x4") = TimeSerial(0, 0, 5)
Call decompte
End Sub

Sub decompte()

'Macro Dan pour stephane Guidon
If ok Then
    If Range("x4") = 0 Then
   'Frequence en Hz, Duree en millisecondes
   Call Beep(500, 80)
        ok = False
        Range("x4") = TimeSerial(0, 0, 5): End
    End If
    Range("x4") = Range("x4") - TimeSerial(0, 0, 1)
    Range("x4").NumberFormat = "mm:ss"
    Application.OnTime Now + TimeValue("00:00:01"), "deCompte"
End If
End Sub

Bonjour

Désolé Emilio, mais quelqu'un d'autre a pris le lead sur le sujet

Cordialement

Bonjour oupss désolé Dan, j'étais dans le mouvement du chrono

crdlt,

André

C'est super à vous deux mais j'aurais aimé un son plus puissant et pendant au moins 5 secondes...

J'explique...

Je suis marqueur pour mon équipe de volley-ball...

Lorsqu'une équipe arrive à 8 ou 16, il faut enclencher un chrono de 1 minute pour un temps-mort d'une minute...

A a fin du temps-mort, et que pour que tout le monde ( joueurs, coach) reprennent le jeu, il faut un signal puissant et continu pendant au moins 5 secondes

C'est possible ça ?

Emile

re

tu modifies la 'duration' par' 5000'

   Call Beep(500, 5000)

ou bien par exemple

'300' pour la 'Fréquence'

   Call Beep(300, 5000)

Tout fonctionne parfaitement !!

Merci à vous deux !!

Emilio

Bonjour mes amis,

Dans la perspective de mon nouveau programme de feuille de match électronique en volley-ball, je voudrais créer 2 boutons qui permettrait au score de grimper de 0 à 50 en cliquant dessus et aussi, en cas d'erreur de redescendre via un bouton -.

D'autre part, il faudrait aussi que le bouton ait une couleur spécifique ( rouge par exemple ) montrant qui avait le service à tel moment du match !

Croyez-vous qu'il serait possible d'imaginer cela ??

Merci de votre collaboration

Emile

Bonjour et bonne semaine à toutes et à tous

à tester

Note :

• bouton vert +1
• bouton jaune = arbitre (reset)
• bouton rouge =-1

avec unmessage box atteint 50 points remet à zéro ou réinitialisation du score

crdlt,

André

Bonjour André,

Cela ne marche pas chez moi mais je ne suis un pro du VBA.

Pourrais-tu remédier à cela ? Je mets mon fichier en pièce jointe

Merci de ton aide André

Bonjour

les images ou shapes des têtes de bonzhommes comporter le même nom, c'est pour cela que les macros ne fonctionner pas

Idem : changer les noms des images à chaque fois sur chaque feuille pour les futures macros, des autres feuilles SET 2 etc..

pour donner un nom à une image ou shape on effectue un clic gauche sur l'image en question en haut à gauche de la feuille de la zone nom on tape le futur nom et avec l'aide des touches du clavier CTRL + Entrée on valide afin de lui affecté un nom à cette image ou shape (ici tête de bonhomme)

ci-joint

crdlt,

André

Bonjour André !

Super, ça marche parfaitement bien dans toutes les feuilles ( sets )

Je te remercie et espère encore pouvoir compter sur toi une prochaine fois !

Cordialement

Emile

André,

Voilà encore une petite tuile relevée hier lors d'un test "grandeur nature"

Aurais-tu une explication et surtout une solution pour laquelle cela ne fonctionne plus parce que cela a fonctionné !!

Il ne veut plus m'afficher mes données de recherche dans mon onglet "Equipes"; il me mets des zéros ?? Mystère !!

Je te mets le fichier en pièce jointe, c'est plus simple !

Merci

Bonjour toutes et tous et bon week end neigeux

Bonjour Emilio

tu as fais la même erreur sur les têtes de bonshommes SET 5 pour les shapes si deux fois identique renomme-les différemment

je vois sur la même feuille Set 5 les mêmes noms des shapes

EDIT : je ne comprend pas la cellule T26 de l'onglet SET 5 (points au changement ) pourquoi la formule =N8 ?

j'ai un peu arrangé la feuille SET 5 qui fonctionne

crdlt,

André

Oui oui André... Cela a été fait mais le problème se situe sur la feuille "composition équipes"...

Il ne veut plus aller chercher les données de la feuille "Equipes" pour y mettre les noms et n° de licences des joueurs en fonction de l'équipe choisie. recherchev...

Cela a fonctionné mais je ne sais pas pour quelle raison cela ne fonction plus...

Je te mets le fichier au bon onglet !!!

Merci de ton aide André

Re,

l'onglet compositions équipes

en B5 à tirer jusqu'en B13

=SIERREUR(RECHERCHEV(A5;Equipes!A2:C28;3;FAUX);"")

en B18

=SIERREUR(RECHERCHEV(A18;Equipes!$A$2:$C$28;3;FAUX);"")

en C18

=SIERREUR(RECHERCHEV(A18;Equipes!$A$2:$C$28;2;FAUX);"")

en C5 à tirer jusqu'en C13

=SIERREUR(RECHERCHEV(A5;Equipes!$A$2:$C$28;2;FAUX);"")

Attention : les 2 colonnes H et I de ne pas les fusionnées (conseillé)

crdlt,

André

Bonjour André,

Tout d'abord un grand merci d'avoir réglé mon problème de recherche(v); cela fonctionne parfaitement !

2 petites à choses encore qui m'ont été suggérées après un test sur un match

1. Lors d'un remplacement de joueur, signaler à l'arbitre par un beep dans la case N10 le changement

2. Tu m'avais aussi proposé un compte à rebours pour les temps-morts avec un beep fin de décompte. Serait-il possible aussi d'ajouter ce beep au moment où je clique sur le bouton pour démarrer le chrono

Je te mets le fichier en pièce jointe, c'est d'autant plus simple si tu veux bien !!

Merci de ton aide André

Bonjour Emilio, bonjour toutes et tous,

Un aperçu

-les cellules N10 et AB10 avec compte à rebours des deux côtés pour les arbitres droite et gauche de la feuille Set1

avec beep chacun

- pour le temps mort de 30 secondes ou 60 secondes avec une image seulement (pas actif encore)

avec une liste déroulante de 00:00:30 à 00:01:00 (validation des données dans cellule AE2 nom tpsmort de la feuille SET 1)

ci joint un aperçu sur la SET 1

cordialement,

André