Somme d'heure AU SECOURS

V

vincent

Guest

• 28 Septembre 2003

• #2

bonsoir

1 au sujet de ton titre voir Charte XLD chapitre 2a
2 Ceci étant même si tes celllules sont au format [h]:mm ton textbox te renvois du texte donc le resultat de ta somme ne peux pas être bon.
3 une solution remplace ActiveCell.Value = Heure.Text par ActiveCell.Value= Val(Left(.Value, InStr(.Value, ":") - 1)) & ":" & Right(.Value, InStr(.Value, ":") - 1)

Bonne soirée

@+Vincent

 

Vote positif 0 Vote négatif

P

Pierrot

Guest

• 28 Septembre 2003

• #3

Bonsoir Vincent.

Merci pour la remise dans l'axe, j'avais besoin de cela ce soir.

Mis à part ça, ta proposition ne fonctionne pas, il ya un pb avec les minutes.

ActiveCell.Value= Val(Left(.Value, InStr(.Value, ":") - 1)) & ":" & Right(.Value, InStr(.Value, ":") - 1)

mais merci quand même.

Bye A+

 

Vote positif 0 Vote négatif

V

vincent

Guest

• 28 Septembre 2003

• #4

Re le fil

peux tu me confirmer le problème que tu as, j'ai refait des tests sous 97 et xp cela fonctionne.

A plus

@+Vincent

 

Vote positif 0 Vote négatif

V

vincent

Guest

• 28 Septembre 2003

• #5

Re

j'ai pas etait assez loin lol !!! Effectivement avec des heures >100 ça bug.Mais voilà la solution (plus simple que la premiere en plus mdr!!).

ActiveCell.Value= Val(Left(.Value, InStr(.Value, ":") - 1)) & ":" & Right(.Value,2)

A plus

@+Vincent

 

Vote positif 0 Vote négatif

P

Pierrot

Guest

• 28 Septembre 2003

• #6

Re salut
J'ai remanier un peu ta fonction et celle ci fonctionne bien

ActiveCell.Value = Val(Left(.Value, InStr(.Value, ":") - 1)) & Right(.Value, InStr(.Value, ":") - 2)

Bye A+

 

Vote positif 0 Vote négatif

V

vincent

Guest

• 28 Septembre 2003

• #7

Re

nos post ceux sont croisés.Sinon ta solution a le même problème que celle de mon premier post elle ne fonctionne que sur des heures superieures à 100.

Bonne soirée

@+Vincent

 

Vote positif 0 Vote négatif

V

vincent

Guest

• 28 Septembre 2003

• #8

Re

Encore moi je me suis un peu précipité sur mon 1 post activecell=heure.text fonctionne chez moi par contre j'utilise ActiveCell.NumberFormat = "[h]:mm" pour mettre le format de la cellule (avant de mettre les données dans la cellule.

A plus

@+Vincent

 

Vote positif 0 Vote négatif