Application.Evaluate

j'ai dans un userform un texbox qui contien(3.2+3.2)

comment peut t'on avoir le resultat ( 6.4) de cette addition dans un deuxieme texbox en vba

dans une reponse precedente H2so4 m'avais donné avec (Application.Evaluate) sur TextBox1_Exit mais je cherche l'equivalant en vba

merci de vos reponses

amicalement

bonjour,

dans une reponse precedente H2so4 m'avais donné avec (Application.Evaluate) sur TextBox1_Exit mais je cherche l'equivalant en vba

application.evaluate est une instruction VBA. Tu veux réécrire le code de cette méthode en vba?

oui

dans un textbox1 qui contient (3.2+3.2) dans un textbox2 le resultat

pouvoir l'inclure dans une boucle for

exemple : If ("T" & i) > "" Then Me.Controls("TV" & i) = Evaluate("QV" & i)

re-bonjour,

j'ai pas compris la question

exemple : If ("T" & i) > "" Then Me.Controls("TV" & i) = Evaluate("QV" & i)
si le textbox "T" >"" alors dans le textbox "TV" le resultat du textbox "QV"
"QV" contient les nombre (3.2+3.2 ou autre) et je souhaite afficher le resultat dans le textbx "TV"

re-bonjour,

If ("T" & i) > "" Then Me.Controls("TV" & i) = application.Evaluate(me.controls("QV" & i))

re

merci de ta patience

mais j'obtient un message d'erreur suivant

erreur d'execution

impossible de definir la propriete value.le type ne correspond pas

If me.controls("T" & i) > "" Then Me.Controls("TV" & i) = application.Evaluate(me.controls("QV" & i))

c'est idem je te prepare un fichier pour que tu voie par toi meme ce seras plus simple me semble t'il

re en piece jointe le fichier

-ti clique sur "cliquez pour votre choix"

userform ouvert tu clique sur "cliquez sur modifier"

puis tu selectionne une date sur le combobox et tu y verra le message d'erreur

merci

bonjour,

tu dois tester que QVi contient bien quelque chose un nombre ou un calcul sur des nombres, Si c'est vide erreur

dsl mais meme quand les textbox QV & i on une infos cela bug

re-bonjour,

essaie ceci alors pour ceux qui ne sont pas vides

If me.controls("T" & i) > "" Then Me.Controls("TV" & i) = application.Evaluate("=" & me.controls("QV" & i))

non dsl de te dire cela mais cela ne fonctionne pas

bonjour ,un grand merci a toi h2so4 tout fonctionne correctement comme je le voulais et milles excuses pour le temps que je t'ai fait perdre

encore merci

amicalement