Spinbutton

PascalXLD

XLDnaute Barbatruc

• 13 Septembre 2005

• #16

Bonjour

Si je peux me permettre voici le fichier d'Hervé légèrement modifié pour les secondes

Bonne journée [file name=Classeur6_20050913135023.zip size=7798]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur6_20050913135023.zip[/file]

 

Pièces jointes

• Classeur6_20050913135023.zip

  7.6 KB · Affichages: 16

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 13 Septembre 2005

• #17

Re

Voici une deuxième mouture avec les mêmes modifications mais appliquées aux heures minutes on gagne un peu de longueur de code

Bon courage [file name=Classeur6_20050913135844.zip size=7773]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur6_20050913135844.zip[/file]

 

Pièces jointes

• Classeur6_20050913135844.zip

  7.6 KB · Affichages: 20

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 13 Septembre 2005

• #18

Bonjour tout le monde

Pascal, j'attendais quelqu'un de ta stature pour voler à notre secours, merci à toi.

Pourrais tu prendres 5 mn pour m'expliquer, pascal, pourquoi ce type de code : TextBox2 = Format(TimeSerial(0, 10, 36), 'mm:ss') placé dans l'initialize du userform ce transforme en 12:36 à l'affichage du textbox2.

ou que ce type de code :
TextBox2 = Format(TimeValue('11:14:23'), 'mm:ss')
me retourne 12:23 😱

Enfin à travers le code que tu nous à donnée comment incrémenter les minutes lors du passage des 60 secondes ?

d'avance je te remercie pour le temps que tu consacreras à ma demande.

salut

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 13 Septembre 2005

• #19

re

Oui en effet je n'avais pas vu que arrivé à 12:59 cela passé à 12:00.
Le pire c'est que en format hh:mm:ss j'ai bien 00:13:00 mais en passant au format mm:ss il met 12:00 (à rien y comprendre)

Bon je vais me pencher la dessus

 

Vote positif 0 Vote négatif

T

tail

Guest

• 13 Septembre 2005

• #20

merci àtous pour ce que vous faites cela m'aide beaucoup
je vais essayé de l'adapter sur mon fichier


merci

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 13 Septembre 2005

• #21

Re

Bon j'ai compris d'où venait le problème mais alors pour le résoudre bonjour

En fait quand tu fais un format 'mm:ss' pour lui le mm correspond au mois et non aux minutes

Alors là je suis baba :sick:

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 13 Septembre 2005

• #22

Re

Voici la dernière mouture

Donc à première vue c'est un vrai binz car aussitot que VBA Voit un format qui commence par 'mm' il considère que c'est un mois alors que si c'est 'hh:mm' vu qu'il voit hh avant il comprend que ce sont des minutes

Sachant que sous VBA les dates commencent au 30/12/1899 le mois est donc le 12 voilà pourquoi Hervé il y avait toujours cet affichage du 12:36 ou 12:23 et pourquoi mes minutes ne changeaient pas

Voici donc une version modifiée où j'ai changé mon fusil d'épaule

Et là j'espère que c'est bon
[file name=Classeur5_20050913155539.zip size=10860]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur5_20050913155539.zip[/file]

Message édité par: Pascal76, à: 13/09/2005 15:57

 

Pièces jointes

• Classeur5_20050913155539.zip

  10.6 KB · Affichages: 12

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 13 Septembre 2005

• #23

re tail, pascal, le forum

Pascal, meme conclusion que toi, doit-on en conclure que le format mm: ss n'existe pas en VBA ????

alors que hh:mm passe sans problème :S

Tail en attendant d'avoir des eclaircissements, je te conseillerai de continuer à afficher les heures, afin d'eviter d'avoir des surprises :


une autre syntaxe par dateadd :

Private Sub SpinButton1_SpinDown()
TextBox1 = Format(DateAdd('n', -1, TextBox1), 'h:mm')
End Sub
'____________________________________________________
Private Sub SpinButton1_SpinUp()
TextBox1 = Format(DateAdd('n', 1, TextBox1), 'h:mm')
End Sub
'____________________________________________________
Private Sub SpinButton2_SpinDown()
TextBox2 = Format(DateAdd('s', -1, TextBox2), 'h:mm:ss')
End Sub
'____________________________________________________
Private Sub SpinButton2_SpinUp()
TextBox2 = Format(DateAdd('s', 1, TextBox2), 'h:mm:ss')
End Sub
'____________________________________________________
Private Sub UserForm_Initialize()
TextBox1 = Format(TimeValue('23:14:23'), 'h:mm')
TextBox2 = Format(TimeValue('23:14:23'), 'h:mm:ss')
End Sub

Cliquez pour agrandir...

salut

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 13 Septembre 2005

• #24

Re

Hervé au cas où tu ne l'ai pas vu j'ai posté juste quelques minutes avant toi avec une modif et une explication

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 13 Septembre 2005

• #25

re tout le monde

ne tenez pas compte de mon message précédent, je pensais pas que la lumière viendrait aussi vite 🙂

Ah, tu me fais plaisir pascal, ca me 'turlupinait' ce bidule.

Mais devoir passer par un split pour simplement incrémenter des secondes dans un format mm: ss prouve bien une carence de vba en ce domaine.

Merci à toi pascal

Tail je crois que tu as enfin ta réponse (ouf !!!)

salut

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 13 Septembre 2005

• #26

Re

En fait on etait pas obligé de passer par le split mais sur le coup ça simplifiait le truc donc j'espère juste que Tail ne travaille pas sous excel 97 ou MAC car je crois bien que cela ne passe pas

 

Vote positif 0 Vote négatif

T

tail

Guest

• 13 Septembre 2005

• #27

non je suis sur pc excel 2003
merci en tout cas ,j'adapte le code sur mon fichier (j'en mets partout)
et super sympa de m'avoir aidé
merci

 

Vote positif 0 Vote négatif