veriti site des amis d'excel

bonjour et bonne annee a tous

comme vous le savez je ne suis pas tres doue en vba donc j'essai de me débrouiller tant que mal a résoudre ce problème.
le voici :
je voudrai " ENREGISTRER UNE MACRO " sur un userform ( image jointe en document )
je commence a enregistrer ma macro :
la fenetre userform se lance et je coche 30 m et j'arrete enregistrement.
j'applique la macro a un bouton et je lance la macro en cliquant sur le bouton
elle se lance et s'arrete sur la selection 30 mn qui n'est pas coche.

est ce que on peut faire en sorte que la coche du bouton 30 minutes soit pris en compte dans l'enregistrement macro en sachant que ces boutons sont des boutons option.
merci de votre collaboration

Joindre un fichier:

---

  userform-ConvertImage.jpg (39.88 KB)

Tout d'abord bonjour car suis nouveau sur le forum
commencons par le debut :
j'ai un fichier exel avec 9 feuilles qui contiennent tous un chrono ( le meme sur chaque feuille )
la macro du chrono est dans module 1.
voici la syntaxe ;

Dim ok As Boolean
Sub Demarrechrono()

ok = True
Range("c10") = TimeSerial(0, 0, 10)
Call decompte
End Sub

Sub decompte()

If ok Then
If Range("c10") = 0 Then
ok = False
Range("c10") = TimeSerial(0, 0, 0): End
End If
Range("c10") = Range("c10") - TimeSerial(0, 0, 1)
Range("c10").NumberFormat = "mm:ss"
Application.OnTime Now + TimeValue("00:00:01"), "deCompte"
End If
End Sub

mon probleme est que quand je lancce le chrono sur la feuille 1 tout marche bien.le decompte fini, je passe sur la feuille 2 et je lance le chrno.
et la le probleme est que quand je lance chrono feuille 2 le chrono feuille 1 se lance aussi

ma queston est :
comment dissocier cette macro afin de l'appliquer a chaque feuille séparément ?
j'espere avoir ete assez clair dans mon explication
en attente 'dune reponse de votre part .
cordialement

voici le code de ma macro pour chrono :
Dim ok As Boolean
Sub Demarrechrono()
'Macro Dan pour stephane Guidon
ok = True
Range("A1") = TimeSerial(0, 1, 0)
Call decompte
End Sub

Sub decompte()
'Macro Dan pour stephane Guidon
If ok Then
If Range("a1") = 0 Then
ok = False
Range("A1") = TimeSerial(0, 0, 0): End
End If
Range("A1") = Range("A1") - TimeSerial(0, 0, 1)
Range("A1").NumberFormat = "mm:ss"
Application.OnTime Now + TimeValue("00:00:01"), "deCompte"
End If
End Sub

mon chrono se trouve sur feuille 2 etla macro dans un module.

quand je suis sur feuille 1 , grace a une macros , je lance le chrono de la feuille 2.
la feuille 2 s'ouvre mais le chrono defile a une tres grande vitesse ( ce qui n'est plus un chrono)
merci de votre collboration

.

bonjour
en fait c est in chrono comme ca que je voudrai mais avec possibilité de temps plus vaste ( 20 , 21 , 22 , 23,jusqu'a 28 minute)


www.chronometre-en-ligne.com/compte-a-rebours.html

Bonjour
cela fait des jours que je recherche un compte a rebours mais je ne trouve pas
si vous pouvez m aider cela serai sympa car en plus uis nul en vba

dans mon fichier exel , j voudrai mettre un compte a rebours qui fait appraraitre minute et seconde et qui parte de 20 a 25 minute ( modifiable )
cette feuille se trouverai en fin du classeur ( feuille 8 par exemple )

ce chrono serait declenche par une macro

pouvez vous m'aider merci par avancce

je ne peux mettre mon fichier en ies jointe ar il ne l'acccepte pas
cordialement