[VBA] Calcul pour insérer dans une textebox

**Yanmeunier** · 15/03/2006, 09h53

Bonjour,
J'ai un petit problème. Je suis en train de faire un programme pour effectuer des palnning mais le problème c'est que quand je veux afficher le résultat d'un calcul que je fais dans VBA il me met tout le temps une erreur alors j'ai tout essayé mais je netrouve pas la solution.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Forms![Z888 planning atelier complet]![Fin]. = Forms![Z888 planning atelier complet]![DebCycle].Text + Forms![Z888 planning atelier complet]![Texte14].Text

Merci

**podz** · 15/03/2006, 10h13

Salut
Avec Value ça ne marcherai pas???
Podz

**Yanmeunier** · 15/03/2006, 10h16

Alors faut faire quoi parce que avec .text ca ne marche pas non plus.

**podz** · 15/03/2006, 10h20

Explique moi quel type de calcul tu fais, qu'est ce que tu as dans DebCycle et Texte14 et quel est le message d'erreur que tu as.
Podz

**Yanmeunier** · 15/03/2006, 10h27

Alors dans dans Debcycle j'ai une date au format jj/mm/aaaa hh:mm:ss
et dans Texte 14 j'ai un float. Le message avec .value c'est: utilisation non valide du . ou !
Merci

**Yanmeunier** · 15/03/2006, 10h34

Et avec .text c'est : impossible de faire référence à une propriété ou de la définir pour un controle si celui ci n'est pas activé.

**podz** · 15/03/2006, 10h37

Tu ajoutes un float à une date si j'ai bien compris...
Tu cherches à calculer quoi dans Fin?
Podz

**Yanmeunier** · 15/03/2006, 10h39

Une date. Je sais que c'est possible d'obtenir une date en ajoutant une date et un float car dans une textbox directement j'ai fais un calcul similare et il fonctionne.

**podz** · 15/03/2006, 11h52

Re
J'ai fait un test tout simple sur un formulaire avec 3 zones de texte : une pour la date, l'autre un nombre général et quand on la met à jour avec un float, on affiche dans la 3eme la nouvelle date.
Donc ça marche bien comme tu me la dis, bref rien de nouveau pour toi

Par contre ce calcul si tu le fais pour un evenement commun à ton formulaire pourquoi ne pas ecrire tout simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Fin = Me.DebCycle + Me.Texte14

Sinon je chercherai à mettre DebCycle sous la forme numerique : CDbl(Me.DebCycle), faire ton calcul puis afficher dans Fin la date au bon format avec les fonctions qui te sont données dans la FAQ.
Podz

**Yanmeunier** · 15/03/2006, 15h04

Désolé mais j'avais pas vu dans la textbox de Debcycle j'ai une erreur et ceci me met l'erreur #nom?.
Mais je ne sais plus pourquoi il me met cette erreur. Qu'est-ce qu'elle veut dire?
Merci

**podz** · 15/03/2006, 15h25

Re
Tu as dit que tu m'etais une date dans ce textbox donc as tu bien défini son format? Comment places tu la date dans ce textbox ? Par du code vba?
Podz