format hh:nn:ss et boucle (VBA)

N

NezQuiCoule

XLDnaute Occasionnel

• 4 Mai 2015

• #2

Re : format hh:nn:ss et boucle (VBA)

Bonjour AzoR,

Je n'avais jamais vu la notation hh:nn:ss auparavant, cela fonctionne t-il vraiment ? 😕

Alors, je suggère pour obtenir tes 16 secondes d'essayer d'abord avec

Code:

a = TimeValue("00:00:16")

Sinon, essayer :

Code:

For i = 1 To Int(CDate(ComboBox1.Value) / 24 / 60 / 60 * 16)

 

Vote positif 0 Vote négatif

A

AzoR

XLDnaute Occasionnel

• 4 Mai 2015

• #3

Re : format hh:nn:ss et boucle (VBA)

En sachant que dans ma ComboBox2 j'ai un temps de pause qui se répète entre chaque mesure, j'aurai donc quelque chose du genre :

for i = 1 To ((ComboBox1.Value/"16secondes")-(ComboBox2.Value/(ComboBox1.Value/"16secondes")))

Cliquez pour agrandir...

Avec "16secondes" qui sera remplacé par quelque chose comme "00:00:16" mais cela ne fonctionne pas 🙁

 

Vote positif 0 Vote négatif

A

AzoR

XLDnaute Occasionnel

• 4 Mai 2015

• #4

Re : format hh:nn:ss et boucle (VBA)

Incompatibilité de type pour :

a = TimeValue("00:00:16")
For i = 1 To (ComboBox1.Value / a)

Cliquez pour agrandir...

même en définissant a comme Variant ou Date

 

Dernière édition: 4 Mai 2015

Vote positif 0 Vote négatif

A

AzoR

XLDnaute Occasionnel

• 4 Mai 2015

• #5

Re : format hh:nn:ss et boucle (VBA)

et avec :

For i = 1 To Int(CDate(ComboBox1.Value) / 24 / 60 / 60 * 16)

Cliquez pour agrandir...

Lorsque je lance la mesure il m'affiche directement "C'est fini!" avec un temps total de 00:00:00 🙁

 

Vote positif 0 Vote négatif

N

NezQuiCoule

XLDnaute Occasionnel

• 4 Mai 2015

• #6

Re : format hh:nn:ss et boucle (VBA)

En fait, 00:00:16 c'est un format.. Excel peut parfois le considérer comme une durée mais c'est plutôt réservé à l'affichage si je dis pas de bétises.

Le mieux, c'est de travailler avec des jours en décimal. Tu es sûr de ne pas avoir d'erreur..

Reprenons :
Tu as dans ComboBox1 la durée totale de l'acquisition
Tu as dans ComboBox2 la durée de la pause entre chaque acquisition

Tu souhaites obtenir le nombre total d'acquisitions réalisables durant cette période.

Code:

a = 1 / 24 / 60 / 60 * 16  'Durée d'une acquisition
b = CDbl(CDate(ComboBox1.Value)) 'Durée de l'acquisition
p = CDbl(CDate(ComboBox2.Value)) 'Durée de la pause


For i = 1 To b / (a+p)

 

Vote positif 0 Vote négatif

N

NezQuiCoule

XLDnaute Occasionnel

• 4 Mai 2015

• #7

Re : format hh:nn:ss et boucle (VBA)

AzoR à dit:

Lorsque je lance la mesure il m'affiche directement "C'est fini!" avec un temps total de 00:00:00 🙁

Cliquez pour agrandir...

Pardon erreur de ma part :

Code:

For i = 1 To Int(CDate(ComboBox1.Value) / (1 / 24 / 60 / 60 * 16))

Cela devrait être bien mieux

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 4 Mai 2015

• #8

Re : format hh:nn:ss et boucle (VBA)

Bonjour.

Essayez :

VB:

For i = 1 To TimeValue(ComboBox1.Text) / TimeValue("00:00:16")

 

Vote positif 0 Vote négatif

A

AzoR

XLDnaute Occasionnel

• 4 Mai 2015

• #9

Re : format hh:nn:ss et boucle (VBA)

Cela marche niquel NezQuiCoule !

Du coup avec mon programme le seul soucis qu'il reste pour ce fonction est qu'il fait une dernière pause après la dernière acquisition, ce que je ne souhaite pas, une idée pour qu'il ne fasse pas cette dernière pause ?

Merci aussi Dranreb mais je dois prendre en compte le temps de pause que je rentre également.

Cordialement, AzoR

 

Vote positif 0 Vote négatif

N

NezQuiCoule

XLDnaute Occasionnel

• 4 Mai 2015

• #10

Re : format hh:nn:ss et boucle (VBA)

Il faut donc vérifier après une acquisition que ce ne soit pas la dernière. En reprenant notre code :

Code:

a = 1 / 24 / 60 / 60 * 16  'Durée d'une acquisition
b = CDbl(CDate(ComboBox1.Value)) 'Durée de l'acquisition
p = CDbl(CDate(ComboBox2.Value)) 'Durée de la pause


For i = 1 To b / (a+p)

On sait que i va aller de 1 à la valeur max sans la dépasser, sans se soucier de l'arrondir
Prenons un exemple, si b / (a+p) vaut 5,732 alors i va de 1 à 5
On doit donc vérifier si i = 5, qui correspond à l'entier (integer) de b / (a+b)

On place donc ceci avant l'instruction de pause :

Code:

If i = Int(b / (a+p)) Then Exit For

 

Vote positif 0 Vote négatif

A

AzoR

XLDnaute Occasionnel

• 4 Mai 2015

• #11

Re : format hh:nn:ss et boucle (VBA)

Avec ceci, il n'a fait que 36 secondes au lieu de 1 minute que je lui ai demandé. Il aurait du avoir le temps de faire une acquisition de plus

Cordialement, AzoR

 

Vote positif 0 Vote négatif

N

NezQuiCoule

XLDnaute Occasionnel

• 4 Mai 2015

• #12

Re : format hh:nn:ss et boucle (VBA)

Qu'as-tu saisi en paramètres ?

 

Vote positif 0 Vote négatif

A

AzoR

XLDnaute Occasionnel

• 4 Mai 2015

• #13

Re : format hh:nn:ss et boucle (VBA)



Voici les caractères que j'ai rentré.

 

Pièces jointes

• screen.JPG

  13.7 KB · Affichages: 24
• screen.JPG

  13.7 KB · Affichages: 22

Vote positif 0 Vote négatif

N

NezQuiCoule

XLDnaute Occasionnel

• 4 Mai 2015

• #14

Re : format hh:nn:ss et boucle (VBA)

Effectivement, s'il y a n acquisitions, il y aura n-1 pauses.

Pour remédier à cette contrainte je propose d'ajouter le temps d'une pause dans le temps total, cette dernière ne sera pas faite dans tous les cas, mais permettra un calcul d'itérations correct.

Code:

 For i = 1 To (b + p) / (a+p)

Et donc remplacer aussi avant la pause

Code:

If i = Int((b + p) / (a+p)) Then Exit For

Ce coup-ci ça devrait coller avec tes attentes 😉

 

Vote positif 0 Vote négatif

A

AzoR

XLDnaute Occasionnel

• 4 Mai 2015

• #15

Re : format hh:nn:ss et boucle (VBA)

C'est bon cela marche super !
J'ai saisi 1 minute il m'a fait 56 secondes et 1,30minute il m'a fait 1,16minute donc c'est super!

Petite question "BONUS" (lol😛) : Comment faire pour afficher chaque tableau dans une userform différente à chaque fois ?

Sachant que j'ai déjà créée le bouton " afficher les valeurs ", et quand l'on clique je souhaiterai qu'il ouvre les trois fenêtres.

Il ouvrira donc 3 userforms jusqu'ici rien de compliqué mais comment faire pour insérer un tableau dans un userform ? Tu sais ? 🙂

Cordialement, AzoR.

 

Pièces jointes

• screen.JPG

  12.5 KB · Affichages: 26
• screen.JPG

  12.5 KB · Affichages: 23
• screen2.JPG

  50.5 KB · Affichages: 25
• screen2.JPG

  50.5 KB · Affichages: 26

Vote positif 0 Vote négatif