Bonjour

Je travaille sous excel 2003
j'ai crée un userform dont l'essentiel des données représentent des durées mesurées (temps)
J'ai entre deux intervalles un count down avec une jauge qui se déclenche durant 360s (Label67)
et durant un autre intervalle un autre count down qui se déclenche également mais avec une durée de 420s(label68)
Voila ce que j'ai écris qui fonctionne très bien pour le premier mais qui ne marche pas pour le second décompte
(420 s'affiche  mais ne décompte pas et la jauge n'est pas dynamique   !)
Faut il que je regroupe tout cela sur une seule et même formule ?
J'ai appellé les deux programmes "demarrer" et "demarreri" et duree et dureee

Je vous remercie pour vos conseils !

Cdlt
Joyeux Noel





Module 1

Option Explicit
Public Const Duree = 360


Sub Demarrer()
    Application.OnTime Now + TimeValue("0:0:01"), "MiseAJour"
     
End Sub


Sub MiseAJour()
 If Turnaroundu2.ProgressBar1.Value = Duree Then
 
  Else
  Turnaroundu2.ProgressBar1.Value = Turnaroundu2.ProgressBar1.Value + 1
          Turnaroundu2.Label67 = Turnaroundu2.Label67 - 1
 
End If
    Call Demarrer
 
End Sub


module 2

Option Explicit
Public Const Dureee = 420

Sub Demarreri()
    Application.OnTime Now + TimeValue("0:0:01"), "MiseAJour"
     
End Sub

Sub MiseAJouri()
 If Turnaroundu2.ProgressBar2.Value = Dureee Then
 
  Else
  Turnaroundu2.ProgressBar2.Value = Turnaroundu2.ProgressBar2.Value + 1
          Turnaroundu2.Label68 = Turnaroundu2.Label68 - 1
  End If
    Call Demarreri
  End Sub

Bonjour le Forum

Je travaille avec Excel 2003 et je souhaiterai pouvoir affichez dans un userform une feuille graphique nommée Graph1 en provenance d'un classeur.
Cette dernière page graphique étant alimentée elle même  par des données provenant d'un autre userform !
Je vous remercie de vos conseils
J'ai essayé par des contrôles x du type Ms chart ou par le biais de picture (Imagebitmap) mais sans succès !
Salutations

Bonjour le Forum

J'avance à petits pas mais vos conseils me seraient précieux !
Je pense qu'un calcul du type intervalle est possible ,mais pour l'instant je ne trouve toujours rien sur le sujet !


Merci d'avance !


Je travaille sous excel 1997-2003 userform VBA

Citation :

Bonjour le Forum

Je souhaite représenter dans un userform le résultat de deux textbox qui contiennent deux variables (temps).
Le but étant de pouvoir ensuite afficher en fonction de la donnée renvoyée une forme (label) correspondante.
text box X- textbox y = résultat textbox Z
La donnée contenue dans textbox z (Comme pour une progress bar ) renvoie une forme d'une certaine dimension .
En fait je souhaiterais réaliser la même chose qu'un  graphique du type barre empilée en réalisant seulement  3 calculs.(Différence de temps entre deux étapes)
Merci beaucoup pour votre aide !
Je ne trouve pas malgré de nombreuses recherches  de solutions à ce problème.
Déja le simple calcul qui consiste à une différence entre deux text box visible directement sur l'userform me serait trés utile.

Merci à tous et à toutes !
Cdlt

Nb J'ai essayé tous les exemples de progress bar et je n'arrive pas à intégrer mes données

Bonjour Myta et le forum !

Merci pour vos conseils  ,j'essaye maintenant la gestion des progress bar associée au Timer

Bonjour Myta et le forum !

En fait j'ai tester plûtot avec des labels  qui se déclenchent et donnent l'heure quand on cliques dessus !
L'heure remplace l'intitulé c'est parfait !
Cela fonctionne à merveille !
Merci

Bonjour Myta

Mon formulaire contient environ une quinzaine de textbox (Etapes de processus que je dois mesurer en cliquant dessus (L'heure s'arrete au click  au lieu d'obliger l'utilisateur à rentrer et saisir ces données)

Celles ci sont ensuite récupérées dans une feuille ou d'autres calculs sont encore réalisés (oK j'ai réussi cette étape   !!)


Si quelqu'un clique une nouvelle fois sur la même textbox ,logiquement l'heure se met à nouveau à jour par un nouveau click
Pour quittez le formulaire
J'ai crée un bouton "annulez saisie" et "validez saisie"
Les textbox se suivent au niveau de la saisie (Tab )et respectent une certaine chronologie.
J'ai rajouté egalement un chronometre à la main de l'utilisateur (Bouton start /stop/reset pour mesurer certains points

Je te joins déja un extrait du code VBA utilisé et si tu le souhaites le fichier excel complet
Merci beaucoup !
Cordialement

Bonsoir Myta

Le fichier est le suivant rattaché à une macro sur une feuille


Option Explicit
'---------------------------------------------------------------------------------------
' Auteur    : Didier FOURGEOT (myDearFriend!)
'             www.mdf-xlpages.com
' Date      : 18/06/2006
' Sujet     : Horloge Digitale
'---------------------------------------------------------------------------------------
Dim Temps As Date

Public Sub MAJHorloge()
    'Programmation de l'évènement toutes les secondes
    Temps = Now + TimeValue("00:00:01")
    Application.OnTime Temps, "MAJHorloge"
    'MAJ de l'horloge
    ThisWorkbook.Sheets(1).Shapes("Horloge").TextFrame.Characters.Text = Format(Now, "hh:mm:ss")
End Sub

Public Sub StopHorloge()
    On Error Resume Next
    'Stoppe la gestion de l'évènement OnTime
    Application.OnTime Temps, "MAJHorloge", , False
End Sub

Public Sub GoStop()
Static Go As Boolean
    If Not Go Then
        MAJHorloge
        Go = True
    Else
        StopHorloge
        Go = False
    End If
End Sub

Ce que je souhaites c'est pouvoir rattacher la même macro (fonction) sur plusieurs controles X du type textbox
mERCI
Cdlt

Bonjour
J'essaye d'intégrer la superbe horloge digitale crée par Didier Fourgeot dans plusieurs "textbox " dans un userform afin de noter des étapes de processus !
Exemple:Il est 08h30
  lorsqu'une étape de processus "x" commence à 8h30  Je cliques sur le textbox et ce dernier m'affiches 8h30 dans le textbox1
lorsqu'une étape de processus "Y" commence à 8h32  Je cliques sur le textbox et ce dernier m'affiches 8h32 dans le textbox2
Etc...

Merci pour vos réponses et votre indulgence!
Cdlt

Nb / J'utilise excel 2003