|
2018... |
|
Aspirant ![](http://excel.veriti.net/uploads/ranks/rank3dbf8e94a6f72.gif)
|
Bonjour à ceux qui passent encore par ici et bonne année à tous. mes vœux vous accompagnent
Date de publication : 09/01/2018 08:27
|
____________________
le respect n'est pas un dû mais un mérite
|
|
Re : nouveau souci macro |
|
Invité ![](http://excel.veriti.net/uploads/ranks/rank3e632f95e81ca.gif)
|
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 :
OptionButton1.Value = True
en modifiant le "OptionButton1" en "OptionButton..." par le nom de celui des 30mn A te lire Eric
Date de publication : 05/01/2018 09:58
|
|
|
nouveau souci macro |
|
Invité ![](http://excel.veriti.net/uploads/ranks/rank3e632f95e81ca.gif)
|
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)![2123_5a4bb738030c8.jpg 746X466 px](http://excel.veriti.net/uploads/newbb/2123_5a4bb738030c8.jpg)
Date de publication : 02/01/2018 17:46
|
|
|
Re : problème macro |
|
Invité ![](http://excel.veriti.net/uploads/ranks/rank3e632f95e81ca.gif)
|
Bonjour, Tu peux mettre les macros dans chaque module de feuille :
Private Const adr$ = "C10"
Private ok As Boolean
Private Sub btnStart_Click()
ok = True
Me.Range(adr) = TimeSerial(0, 0, 30)
Me.Range(adr).NumberFormat = "[mm]:ss"
Call Decompte
End Sub
Private Sub btnStop_Click()
ok = False
End Sub
Private Sub Decompte()
If ok Then
DoEvents
Me.Range(adr) = Me.Range(adr) - TimeSerial(0, 0, 1)
If Me.Range(adr) = 0 Then
ok = False
Exit Sub
End If
Application.OnTime Now + TimeValue("00:00:01"), Me.CodeName & ".DeCompte"
End If
End Sub
Exemple fichier joint
Joindre un fichier:
Lien visibles uniquement pour les utilisateurs enregistrés
Date de publication : 30/12/2017 15:01
|
____________________
Cordialement Patrice
|
|
problème macro |
|
Invité ![](http://excel.veriti.net/uploads/ranks/rank3e632f95e81ca.gif)
|
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
Date de publication : 28/12/2017 17:27
|
|
|
Re : mon message chrono plus explicite |
|
Modérateur ![](http://excel.veriti.net/uploads/ranks/rank3dbf8edf15093.gif)
|
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.
Date de publication : 28/12/2017 08:46
|
|
|
mon message chrono plus explicite |
|
Invité ![](http://excel.veriti.net/uploads/ranks/rank3e632f95e81ca.gif)
|
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
.
Date de publication : 27/12/2017 18:47
|
|
|
besoin d'un compte a rebours |
|
Invité ![](http://excel.veriti.net/uploads/ranks/rank3e632f95e81ca.gif)
|
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
Date de publication : 27/12/2017 12:17
|
|
|
Re : Aide sur formule |
|
Invité ![](http://excel.veriti.net/uploads/ranks/rank3e632f95e81ca.gif)
|
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
Date de publication : 24/12/2017 19:47
|
____________________
Cordialement Patrice
|
|
Aide sur formule |
|
Invité ![](http://excel.veriti.net/uploads/ranks/rank3e632f95e81ca.gif)
|
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
Date de publication : 18/12/2017 19:05
|
|
|
Re : Pensée pour Ti |
|
Aspirant ![](http://excel.veriti.net/uploads/ranks/rank3dbf8e94a6f72.gif)
|
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
Date de publication : 15/12/2017 16:24
|
____________________
le respect n'est pas un dû mais un mérite
|
|
Re : Decryptage fichier excel |
|
Invité ![](http://excel.veriti.net/uploads/ranks/rank3e632f95e81ca.gif)
|
Bonjour,
Essaies avec Acyd sous Excel2003
Date de publication : 11/12/2017 00:07
|
____________________
Cordialement Patrice
|
|
Decryptage fichier excel |
|
Invité ![](http://excel.veriti.net/uploads/ranks/rank3e632f95e81ca.gif)
|
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
Date de publication : 24/11/2017 21:43
|
|
|
Re : un outil de fond de caisse |
|
Aspirant ![](http://excel.veriti.net/uploads/ranks/rank3dbf8e94a6f72.gif)
|
je ne me rappelle plus comment proposer un fichier au téléchargement , si Vincent passe dans le coin...
Date de publication : 02/10/2017 10:10
|
|
|