Créer un compte à rebours dans une cellule

Bjr Mike

Bravo c'est excellent.

""""""""""les formules dans les cellules M2 à M5 ne servent à rien, c'est uniquement la décomposition de la formule finale pour que tu puisses comprendre et moi t'expliquer la formule finale dans la plage C4:J6"""""""".
Avant que je comprenne queque chose :-)). Mais je garde bien sûr, pour tenter de décrypter à mes heures.

Tu auras compris que ce compte à rebours va rejoindre un programme que je me suis fait.

Alors quelques questions avant afin d'éviter de faire des erreurs :

- Pour ce faire, je peux donc recopier tout ce bo travail dans mon programme? copier - coller les code VBA? Par contre je dois bien respecter la destination des codes (feuil1 - ThisWorkbook et Module) bien sûr.
- Pour la plage C4:J6, j’imagine que je peux la réduire à mon goût??
- Par contre, je n'ai pas besoin des cellules M2 à M5 ni de la cellule M11??
- Ni des macros "GO" et "Stop"??

Tu confirmes ou tu infirmes.

Pour l'heure ce sont les seules questions qui me passent par la tête.
Beau travail. Ptet simple pour toi, mais magnifique pour moi :-)

Merci

Mike

Je n'attends pas que tu répondes au msg précédent, je viens te faire part d'un ptit souci.

J'explique.

Lorsque j'ouvre ton programme, c'est ok.
Ensuite j'ouvre le mien, et là un msg s'affiche (voir 1er screen). Je clique sur "débogage", la fenêtre suivante s'affiche (voir 2ème screen).

Comment se fait il que ce bogage intervient alors que j'ouvre mon programme qui n'est pas lié au tien?

Alors que lorsque j'ouvre ton programme et le referme pour ouvrir le mien ensuite, tout va bien dans ce cas.

Tu vas bien me dire ça :-).

https://www.cjoint.com/c/FBqkvdVHvU3

https://www.cjoint.com/c/FBqkvGiIgK3

Bjr Pivert

Comme je disais en supra à Arkana, chuis un ptit difficile.

Sur un post antérieur, j'ai joins une feuille Excel dans laquelle il y a ce que je recherche (le compte à rebours).

Le seul inconvénient pour moi, c'est qu'il faut activer la macro pour le mettre en route. J'aurais voulu qu'il s'active automatiquement à l'ouverture de mon programme Excel.

Démarrer la macro au démarrage, ce n'est pas compliqué, il faut la mettre dans ThisWorkbook comme ceci:

Option Explicit
Private Sub Workbook_Open()
'ta macro
End Sub

mais ce que tu demandes nécessite un timer ( parfois instable pour le classeur) qui ne se mettra en route qu'à l'ouverture du classeur. C'est pour cela que je t'ai proposé cette solution, car à chaque ouverture, il sera mis a jour sans macro!

Voilà

@+

Je viens de placer le code là ou tu m'as dit.

J'ai redémarré le doc, mais le compte à rebours ne change pas.

Tu as regardé les codes dans le doc que j'ai joins Pivert?

Bsr Mike

Ce que je désire est en dessous, je reposte ce doc que j'avais mis un peu plus haut.
Et comme je disais, le seul ptit inconvénient, c'est qu'il faut activer la macro pour qu'il se mette en route.
Pivert me donne un procédé, je vais voir ça.
Mais si on ne parvient pas à me donner une réponse qui me convient, c'est à dire un démarrage automatique du compte à rebours à l'ouverture de mon doc Excel, auquel cas j'abandonne l'idée.

https://www.cjoint.com/c/FBprxw1Y7cF

Bjr Mike

""""""""""Le décompte de ton fichier n'est pas précis"""""""""""

Oui, j'ai vu ça effectivement. Mais sur le fond c'est ce que je veux.

Je vois que tu aurais réussi.

Dis donc, que de formules d'enfer, c'est géant :-).

J'ai vu les données dans la colonne "M" masquée.

Alors je ne démonte rien, j'attends que tu m'en dises davantage.

J'ai bien changé la date en "A3", mais rien ne change dans le décompte. Parce que je souhaiterais un décompte au 1/1/2017.

Et puis pourquoi les boutons de macros "GO" et "STOP"? Si je ne les lie pas aux macros, ils ne fonctionnent pas.
Et à quoi servent ils puisque apparemment le décompte se fait dès que j'ouvre Excel (comme je le désire)?
Tu t'adresses à un ignare dans ce domaine, alors reste dans des explications simples surtout.

Et 2 screen pour te montrer ce qui se passe lors de la fermeture du document.

Merci

https://www.cjoint.com/c/FBpxbt8nEP3

https://www.cjoint.com/c/FBpxb4LxJm3

https://www.cjoint.com/c/FBpxcyTs8j3

""""""""""pour éviter la relance automatique à la fermeture je pense qu'il serait bon d'intégrer un enregistrement automatiquement dans le code """""""""

J'essaie de comprendre Mike, en vain.
Peux tu me dire ça plus clairement? Chuis désolé.

""""""""""si tu veux un affichage direct, la formule en M11 doit être COUPER

et Coller dans la plage C4:J6, cette plage peut effectivement être réduite jusqu'à une seule cellule """""""""
C'est à dire qu'ensuite je peux supprimer la cellule M11 par exemple?
Si elle devient inutile, je supprime, je ne garde que l'essentiel.

Sinon, boulot merveilleux.
Je vais m'employer rapidement à copier coller tout ça dans mes ptits programmes.

J'ai feuilleté un peu. C'est bien dit, bien expliqué pour le code VBA. Sans bien comprendre le code, je saisis tes procédures et tes explications.

Et puis, plutôt que la plage de cellules de "C à J", je lui préfère, pour l'heure, le style de compte à rebours que j'ai extrait des cellules, de "M2 à M5", que j'ai copié dans les cellules "P15 à V15". Ces cellules qu'on devait faire disparaitre :-).

J'ai testé sur une feuille neuve en déplaçant les cellules, tout en modifiant les cellules dans le code VBA bien sûr, et ça fonctionne.
C'est assez long à faire, mais peu importe, c'est bien.

Je garde bien au chaud le compte à rebours en jaune. Il me servira assurément.

Merci pour ta patience et ta compétence.

J'attends que tu lises et je clos le sujet

https://www.cjoint.com/c/FBrt1UiWTP3

Ah oui c'est bien ainsi.

Les tirets dans les cellules c'est bo.

Bien pris pour la suppression de la ligne MsgBox au cas où. (Mais je prendrai soin de la noter quelque part dans l'hypothèse ou je désire la réinsérer dans le code).

Objectif atteint, c'est parfait.

Merci Mike, bonne continuation.

Je clos le sujet.

Bien, je modifie le code comme dit.

Un ptit truc en pluss Mike.
Tu me réponds plus tard si t'as pas le temps maintenant, ça ne presse pas.

Je t'adresse ce lien sur un compte à rebours que j'avais déniché sur le Net, avant que tu me viennes en aide.

Ce principe peut m'intéresser aussi. Je ne parle pas du code. Le tien est à merveille.

J'aimerais savoir comment on procède pour afficher ce compte à rebours sur un bouton, comme celui ci, présenté en pièce jointe.

Afficher le compte à rebours comme ça, me permet de le rendre visible PAR DESSUS une photo. Et sur mon programme que je me suis fait, j'ai justement une photo en première page. Un compte à rebours de cette nature serait l'idéal pour ma page d’accueil.

Merci

https://www.cjoint.com/c/FBrwzNpAPN3

J'ai posté trop vite.
J'ai cherché et trouvé.
Je sélectionne le bouton, ensuite je vais dans la barre de formule (=) puis sélectionne la cellule de données qui m'intéresse.
Je crée 4 boutons et je sélectionne les 4 cellules (Jour, H, mn et secondes).
J'explique pas pour toi Mike, pour autrui si y'avait besoin.

Cette fois je clos le sujet

Re merci

Effectivement, c'est très bien aussi la zone texte pour faire passer l'image en second plan. Le principe pour y accrocher une cellule qui comporte des valeurs est le même que pour les boutons.

Non, pas pour impression. Cependant je vais voir de près ce procédé pour enrichir mes connaissances :-).

Merci Mike, bonne journée.