Condition si un compteur s'arrête ...
Fermé
gnedea
Messages postés
5
Date d'inscription
samedi 1 septembre 2018
Statut
Membre
Dernière intervention
7 octobre 2018
-
7 sept. 2018 à 20:33
gnedea Messages postés 5 Date d'inscription samedi 1 septembre 2018 Statut Membre Dernière intervention 7 octobre 2018 - 9 sept. 2018 à 11:12
gnedea Messages postés 5 Date d'inscription samedi 1 septembre 2018 Statut Membre Dernière intervention 7 octobre 2018 - 9 sept. 2018 à 11:12
A voir également:
- Condition si un compteur s'arrête ...
- Excel cellule couleur si condition texte - Guide
- Comment ralentir un compteur linky - Guide
- Compteur de contractions - Télécharger - Santé & Bien-être
- Quelle puissance d'aimant pour bloquer un compteur edf forum - Forum Réseau
- Huawei mobile service s'arrête - Forum Xiaomi
3 réponses
jordane45
Messages postés
38145
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 avril 2024
4 650
7 sept. 2018 à 20:38
7 sept. 2018 à 20:38
Bonjour,
C'est quoi ce "chrono" ?
D'où provient t'il ?
C'est quoi ce "chrono" ?
D'où provient t'il ?
gnedea
Messages postés
5
Date d'inscription
samedi 1 septembre 2018
Statut
Membre
Dernière intervention
7 octobre 2018
Modifié le 9 sept. 2018 à 09:25
Modifié le 9 sept. 2018 à 09:25
Bonjour yg_be
Voici le petit bout de code que j'utilise avec excel 2013 sur mon pc windows 8.1dans un module:
Sub MAJ_Heure()
Sheets("Feuil1").Range("A1").Value = Now()
MAJ_Horloge
End Sub
Sub MAJ_Heure()
Application.OnTime Now + TimeValue("00:00:01"), "MAJ_Heure"
End Sub
Dans la Feuil1 :
En A1 il y a la date du jour dans le module
En A2 je met la date de fin (Exemple 30/9/2018)
En A3 je met les jours ( A2-A1)
En A4 je met =SI(A3<0;A3*(-1);SI(A3>0;A3*1)) pour les jours positifs
En B1 je met les jours restants : A2-A1
En B2 je met les heures qui restes : =HEURE((A2)-(A1))
En B3 je met les minutes qui restes : =MINUTE((A2)-(A1))+1
En B4 je met les secondes qui restes : =SECONDE((A2)-(A1)) puis finalement
En C5 je met le compte à rebours :=CONCATENER(ARRONDI.SUP(B1;1); " Jour(s) : ";ARRONDI.SUP(B2;1); " Heure(s) : "; TEXTE(B3; "0#"); " Minute(s) : "; ARRONDI.SUP(B4;1); " Seconde(s).")
Mon problème est que quand je change la date de mon pc en la dimuniant le chrono s'arrete par fois donc je veux une macro du genre si le chrono s'arrete alors la valeur de la cellule C6 egale "attention chrono arreté"
comme sous la forme if ...chronon arreté Then ...C6 = "attention chrono arreté"
Merci d'avance
Voici le petit bout de code que j'utilise avec excel 2013 sur mon pc windows 8.1dans un module:
Sub MAJ_Heure()
Sheets("Feuil1").Range("A1").Value = Now()
MAJ_Horloge
End Sub
Sub MAJ_Heure()
Application.OnTime Now + TimeValue("00:00:01"), "MAJ_Heure"
End Sub
Dans la Feuil1 :
En A1 il y a la date du jour dans le module
En A2 je met la date de fin (Exemple 30/9/2018)
En A3 je met les jours ( A2-A1)
En A4 je met =SI(A3<0;A3*(-1);SI(A3>0;A3*1)) pour les jours positifs
En B1 je met les jours restants : A2-A1
En B2 je met les heures qui restes : =HEURE((A2)-(A1))
En B3 je met les minutes qui restes : =MINUTE((A2)-(A1))+1
En B4 je met les secondes qui restes : =SECONDE((A2)-(A1)) puis finalement
En C5 je met le compte à rebours :=CONCATENER(ARRONDI.SUP(B1;1); " Jour(s) : ";ARRONDI.SUP(B2;1); " Heure(s) : "; TEXTE(B3; "0#"); " Minute(s) : "; ARRONDI.SUP(B4;1); " Seconde(s).")
Mon problème est que quand je change la date de mon pc en la dimuniant le chrono s'arrete par fois donc je veux une macro du genre si le chrono s'arrete alors la valeur de la cellule C6 egale "attention chrono arreté"
comme sous la forme if ...chronon arreté Then ...C6 = "attention chrono arreté"
Merci d'avance
yg_be
Messages postés
22722
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
25 avril 2024
1 476
9 sept. 2018 à 10:54
9 sept. 2018 à 10:54
je trouve bizarre que tu aies deux déclarations de MAJ_Heure(): qu'en penses-tu?
il me semble assez simple de vérifier que Sheets("Feuil1").Range("A1") n'est plus à jour. A toi de déterminer ce qui va déclencher cette vérification.
il me semble assez simple de vérifier que Sheets("Feuil1").Range("A1") n'est plus à jour. A toi de déterminer ce qui va déclencher cette vérification.
gnedea
Messages postés
5
Date d'inscription
samedi 1 septembre 2018
Statut
Membre
Dernière intervention
7 octobre 2018
9 sept. 2018 à 11:12
9 sept. 2018 à 11:12
Salut yg_be
oui oui oui tu as raison excuse moi je me suis trompé dans le 2e code qui est
Sub MAJ_Heure()
Application.OnTime Now + TimeValue("00:00:01"), "MAJ_Heure"
End Sub
Voici la correction
C'est plutôt "Horloge" en lieu et place de "Heure" donc:
Sub MAJ_Horloge()
Application.OnTime Now + TimeValue("00:00:01"), "MAJ_Heure"
End Sub
oui oui oui tu as raison excuse moi je me suis trompé dans le 2e code qui est
Sub MAJ_Heure()
Application.OnTime Now + TimeValue("00:00:01"), "MAJ_Heure"
End Sub
Voici la correction
C'est plutôt "Horloge" en lieu et place de "Heure" donc:
Sub MAJ_Horloge()
Application.OnTime Now + TimeValue("00:00:01"), "MAJ_Heure"
End Sub
Modifié le 8 sept. 2018 à 00:46
J'ai créer un compte à rebours dans une cellule en A2 dans une feuille excel avec windows 8.1 , et je veux avec une condition que si le compte a rebours s'arrête alors
B6 =0 , du genre avec If ... Then
Si vous avez un exemple de ce genre cela me conviendrait.
8 sept. 2018 à 09:47