Calcul entre TextBox

Bonsoir à tous

Mon 1er code contient une date

Private Sub TBDateDébut_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Me.TBDateDébut.Value = Date 'Format(Date, "dd-mm-yy")

End Sub

mon 2ème code ajoute 42 jours à cette 1ère date et transfert le total dans mon TextBox suivant

Private Sub CMB1_Click()

TBDateSuivante.Value = TBDateDébut.Value + 42

End Sub

Private Sub TBDateSuivante_Change()

Me.TBDateSuivante.Value = Format(TBDateDébut.Value, "ddd d mmmm yy")

End Sub

, j'ai tout perdu[/code]

j'ai déjà eu a solution, mais avec mon grand chambardement j'ai tout perdu

Merci de m'aider à me remettre à jour

amicalement

Pierrot

Salut Pierrot,

Ce qui compte ... c'est de capter la logique sous-jacente ...

A partir du moment où l'on sait que ... ( comme le nom l'indique ...) ... les TextBoxes sont du Texte ... donc des Strings ...

Dès que l'on veut faire des calculs ... on est obligé de passer par une conversion ... pour s'assurer que l'on opère bien sur des nombres et non pas sur du texte ...

Est-ce-que cette explication te parait assez claire ...?

Dès que l'on parle d'addition, tu parles de stings !!!!!

avant d'avoir un problème de chambardement dans mes programmes, mes TextBox fonctionnaient

une 1ère date (TextBoxDébut)à laquelle j'ajoutais 42 pour obtenir la date suivante (ma petite-fille fait de la pédicure)

merci de l!intérêt que tu portes à mon problème

Amitiés

Pierrot

Re,

Du coup, tu ne me dis pas si tu as besoin de davantage d'informations .. ou pas ... ???

Private Sub TBDateDébut_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  Me.TBDateDébut.Value = DateValue(Now)
End Sub

Private Sub CMB1_Click()
    Me.TBDateSuivante.Value = Format(DateValue(TBDateDébut) + 42, "ddd d mmmm yy")
End Sub

James, des informations, j'en ai suffisamment, ce qu'il me manque, c'est la solution

une date à laquelle j'ajoute 42 jours pour trouver une deuxième date (la pédicure passe tous les 42 jours)

voila toutes les données du problème, je me remets au lit

amitiés

Pierrot

Re,

Est-ce-que tu as testé la solution proposée ... dans le message précédent ... ???

Non,je n'avais pas testé, maintenant c'est fait

regarde le résultat

il n'y a pas 42 jours entre les dates

Bonjour

déjà ne pas mettre de format dans la texbox

voila un exemple

Private Sub UserForm_Initialize()
TextBox1.Value = DateValue(Now)
End Sub
Private Sub TextBox1_Change()
If IsDate(TextBox1.Value) Then
TextBox2.Value = DateSerial(Year(TextBox1), Month(TextBox1), Day(TextBox1) + 42)
End If
End Sub

A+

Maurice

Salut, Maurice, ça ne change rien à la solution de James

amitiés

Pierrot

Salut Pierrot,

Si cela ne t'embête pas de poster ton fichier ...

Car je viens de rapidement tester ... et cela fonctionne correctement ...

Bonsoir,n James et Maurice

apès une petite modification dans le code Initialize, suggérée par Maurice,

le tout fonctionne à merveille

Merci à vous deux

Gros bisous et bonne soirée

Pierrot

Re,

Content que tu aies pu trouver la solution ...

Merci .. pour tes remerciements ...