veriti site des amis d'excel

Bonjour à ceux qui passent encore par ici
et bonne année à tous.
mes vœux vous accompagnent

Bonjour à Toutes et Tous
Bonjour mimi

Si j'ai bien compris, tu veux que lorsque l'USF s'ouvre le bouton option 30mn soit coché. Dans "Private Sub UserForm_Initialize()" tu écris :


en modifiant le "OptionButton1" en "OptionButton..." par le nom de celui des 30mn

A te lire

Eric

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)

Bonjour,

Tu peux mettre les macros dans chaque module de feuille :



Exemple fichier joint

Joindre un fichier:

---

Lien visibles uniquement pour les utilisateurs enregistrés

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

Bonjour mimi,

Malheureusement veriti semble bien désert. J'ai prévenu DAN par messagerie. Peut être viendra t'il compléter la macro.
Sinon n'hésite pas à poster sur le forum ami "exceldownloads".

Bonnes fêtes de fin d'année à toi. ET MERCI d'avoir posté ici.

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

Bonjour Celtar,

Tu peux fusionner les 2 formules en une seule (mais c'est pas simplifié) :
=SI(SOMMEPROD(NB.SI(H6:H26;{"moto";"Garage";"voiture";"velo"}))<8;7;SI(SOMMEPROD(NB.SI(H6:H26;{"moto";"Garage";"voiture";"velo"}))<10;SOMMEPROD(NB.SI(H6:H26;{"moto";"Garage";"voiture";"velo"}))+1;SI(SOMMEPROD(NB.SI(H6:H26;{"moto";"Garage";"voiture";"velo"}))<13;SOMMEPROD(NB.SI(H6:H26;{"moto";"Garage";"voiture";"velo"}))+2;SOMMEPROD(NB.SI(H6:H26;{"moto";"Garage";"voiture";"velo"}))+3)))

On peut la simplifier mais c'est moins compréhensible :
=SI(SOMMEPROD(NB.SI(H6:H26;{"moto";"Garage";"voiture";"velo"}))<8;7;SOMMEPROD(NB.SI(H6:H26;{"moto";"Garage";"voiture";"velo"}))+SOMME(SI(SOMMEPROD(NB.SI(H6:H26;{"moto";"Garage";"voiture";"velo"}))<{10;13};{0;1};{1;2})))

A ta place je garderais les 2 cellules, c'est le plus simple.

Cordialement
Patrice

Bonsoir

Peut-on fusionner ces 2 formules pour les inclure dans 1 seule cellule

=SOMMEPROD(NB.SI(H6:H26;{"moto";"Garage";"voiture";"velo"}))

=SI(H28<8;7;SI(H28<10;H28+1;SI(H28<13;H28+2;H28+3)))

Merci pour votre aide.

Simplifier formule

je passe de temps en temps, c'est vrai que Ti nous manque, le site est bien mornes sans lui, je ne vois plus grand monde (internetement parlant), je suis tombé sur JCGL sur developpez.net de temps en temps je jette un œil à mydearfriend et à XLD, je n'ai plus de news de Vincent, un peu une perte de l'ame du site

Bonjour,

Essaies avec Acyd sous Excel2003

Bonjour à tous

J'ai verrouillé un fichier excel 1997-2003 il y a quelque temps, via l'interface excel 2016, mais j'ai malheureusement oublié le mot de passe.

Auriez-vous des pistes pour m'aider à le récupérer ?
Il est par contre un peu trop lourd pour le mettre en pièce jointe, mais il n'est pas spécialement confidentiel...

Merci à vous

je ne me rappelle plus comment proposer un fichier au téléchargement , si Vincent passe dans le coin...