A deux doigts de reussir....HELP!

[Stef]

J ai avance dans mon probleme de format date!

Je n ai pas fait comme j ai vu dans le forum j ai bdouillé un peu et j ai trouvé ca pour usf texbox :

Private sub CALCULER_Click()

Userform1.Textbox1=format (userform1.textbox1, 'dd/mm/yyyy')
Userform1.Textbox1=format (userform1.textbox2, 'dd/mm/yyyy')

Userform1.label9=val(textbox2)-val(textbox1)
userform1.label9= format(userform1.label9, '#####')
end sub

ce que je cherche a faire c est savoir combien il y a de jour entre deux dates.

Le probleme c est que je n arrive pas a trouve le format equivalent de 'standard' sous excel pour le vba!


SVP si vous avez une idee ou un debut d idee tenez moi au courant j essairai, j ai bloque sur le format et j ai reussi a le trouver pour la date mais la je bloc!

 

[Franz63]

Bonjour,

lorsque vous ne formatez pas, comment cela sort-il?

sinon, vous êtes vous inspiré des formats excel?
à la place de '#####' essayez '0'

j'ignore si cela fonctionne mais c'est ainsi qu'excel défini le format standard sans virgule

J'espère que ça va marcher

:whistle:

Bonne fin de journée

François

 

[stef]

Re,

j ai essayer le '0', le resultat me met 'FAUX', j ai essayer de faire une macro avec l assistant et je suis aller dans format de cellule, satndard. Dans le module ou s est ecrite la macro le satandard s est traduit pas 'general' mais ca ne marche pas non plus. Et lorsque je ne met pas de format la valeur prise en conte sur par exemple 22/6/2 - 20/6/5 sera uniquement le jour donc le resultat est ici 2! donc faux!

 

[Celine]

Bonjour,

Le format 'standard' pour vba c'est 'general'

espérant avoir servi à qualque chose!

 

[Franz63]

on teste autre chose



Private sub CALCULER_Click()

dim Result as integer

Userform1.Textbox1=format (userform1.textbox1, 'dd/mm/yyyy')
Userform1.Textbox1=format (userform1.textbox2, 'dd/mm/yyyy')

Result=val(textbox2)-val(textbox1)
userform1.label9.caption=Result

end sub


essayez sous cette forme

François

 

[stef]

Merci pour votre aide.

Vos code n ont pas marche, mais c est pas grave j ai trouve une petite parade, je renvoie les deux dates sur excel je fais le calcul sous excel et ensuite le label9 je lui dit de chercher la dans la cellule ou j ai fais le calcul sur excel et ca marche!!!

merci, a bientot.

 

[stef]

J ai un autre souci sur le meme USF, j ai une formule de calccule qui ne fonctionne pas sous vba, je vous la met ici:

userform1.label11.caption=(val(textbox3.value)*val(texbox5.value)/val(texbox4.value)*(1-((1+val(textbox4.value)/100)^-(label9.caption/365))))

et elle ne marche pas, soit le resultat est 0 soit il y a un bug...... Peut etre je n ai pas la bonne formulation! Un peu d aide serai la bien venue.

 

[Franz63]

Bonjour,

Essayez de créer des variables qui reprennent les données de vos textbox et effectuez votre calcul avec ces variables

dim var1 as single
dim var 2 as single

var1 = me.textbox3.value
var2= me.texbox5.value
etc..

par ailleurs, inscrivez le résultat plutot dans une textbox qu'un label

c'est peut-être pour cela que votre calcul entre date ne fonctionnait pas hier

si cela ne fonctionne toujours pas
envoyez moi votre fichier, je regarderais

francois.laurens@libertysurf.fr

bonne fin de journée

François

 

[Robert]

Bonjour le fil, bonjour le forum,

Je me permets d'entrer car je pense que Franz à raison d'utiliser des variables. Je te propose le code ci-dessous :

Private Sub CALCULER_Click()
Dim t1 As Date 'déclare la variable t1
Dim t2 As Date 'déclare la variable t2
Dim dif As Integer 'déclare la variable dif

UserForm1.TextBox1 = DateValue(UserForm1.TextBox1) 'convertit la TextBox1 en date
UserForm1.TextBox2 = DateValue(UserForm1.TextBox2) 'convertit la TextBox2 en date

t1 = UserForm1.TextBox1.Value 'définit la variable t1
t2 = UserForm1.TextBox2.Value 'définit la variable t2

dif = t2 - t1 'définit la variable dif
UserForm1.Label9 = dif 'donne au Label9 la valeur de la variable dif
End Sub

 

[stef]

Ok merci pour vos reponses, je vais essayer tout ca et je vous tiens au courant.