Condition si un compteur s'arrête ...
gnedea
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
gnedea Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
gnedea Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
Bonsoir
je suis nouveau en VBA
S'il vous plait,je voudrais une macro qui traduit la condition suivante:
Si le chrono de la cellule A2 est arrêté alors la valeur de la cellule B6 est égale à 0.
C'est a dire sous la forme d'un code par exemple:
If chrono de la cellule ("A2") arrêté then
Sheets("feuil1").Range("B6").value="0"
pourriez-vous m'aider s"il vous plait ?
je suis nouveau en VBA
S'il vous plait,je voudrais une macro qui traduit la condition suivante:
Si le chrono de la cellule A2 est arrêté alors la valeur de la cellule B6 est égale à 0.
C'est a dire sous la forme d'un code par exemple:
If chrono de la cellule ("A2") arrêté then
Sheets("feuil1").Range("B6").value="0"
pourriez-vous m'aider s"il vous plait ?
3 réponses
-
Bonjour,
C'est quoi ce "chrono" ?
D'où provient t'il ?
-
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 -
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
