Code VBA Excel 2007
yosra_miagi
Messages postés
110
Statut
Membre
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
salut tout le monde je suis débutante en programmation vba excel j'espère que vous pouvez m'aider .
j"ai deux zone de texte :
1 ère zone de texte: texte box 1.text (contient le taux d'amortissement par exemple 0.2)
2 éme zone de texte: texte box 2.text(elle doit contient la durée d"amortissement qui est calculer comme ça :100/(texte box 1.text*100)
dans cette exemple la formule devienne 100/20=5 le résultat s'affiche en texte box 2
je veux savoir le code à écrire dans texte box 1 ( évènement change) qui permet de calculer et d'afficher le résultat en text box 2
et merciiiiii
j"ai deux zone de texte :
1 ère zone de texte: texte box 1.text (contient le taux d'amortissement par exemple 0.2)
2 éme zone de texte: texte box 2.text(elle doit contient la durée d"amortissement qui est calculer comme ça :100/(texte box 1.text*100)
dans cette exemple la formule devienne 100/20=5 le résultat s'affiche en texte box 2
je veux savoir le code à écrire dans texte box 1 ( évènement change) qui permet de calculer et d'afficher le résultat en text box 2
et merciiiiii
2 réponses
-
Bonjour,
Une version simple sans controle d'entree par keypress,
Calcul si chiffres et un seul point, si vous entrez autre chose affichage dans textbox2
Private Sub TextBox1_Change() 'formule:100/(texte box 1.text*100) 'test >0 et pas vide et numerique(.1234567890) If (TextBox1.Value > 0 And _ TextBox1 <> "" And _ IsNumeric(TextBox1)) Then TextBox2 = 100 / (TextBox1.Value * 100) Else TextBox2 = TextBox1 End If End Sub
Bonne suite-
merci pour votre aide
j'ai essayé cette formule mais ça ne change rien voila ma formule
Private Sub taux_Change()
'formule:100/(texte box 1.text*100)
'test >0 et pas vide et numerique(.1234567890)
If (taux.Value > 0 And _
taux <> "" And _
IsNumeric(taux)) Then
duree = 100 / (taux.Value * 100)
Else
duree = taux
End If
End Sub
elle renvoi le meme contenu de taux = contenu de durée -
-
-
Re,
Pouvez vous faire une recopie d'ecran de ce qui s'affiche dans votre textbox, la mettre dans un fichier word et sur: https://www.cjoint.com/ pour voir de quoi il s'agit???
A+ -
-
-
Bonjour,
Fichier avec une UsF et vos deux TextBox, regardez la difference qu'il y a avec ce que vous avez programme dans votre projet.
https://www.cjoint.com/?BJAiEajIQUc
A+
