Sujet Précédent Sujet Suivant

Code VBA Excel 2007

Fermé
yosra_miagi Messages postés 97 Date d'inscription jeudi 21 juin 2012 Statut Membre Dernière intervention 3 avril 2015 - 23 oct. 2012 à 21:28
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 26 oct. 2012 à 08:32
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
A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
24 oct. 2012 à 10:13
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
0
yosra_miagi Messages postés 97 Date d'inscription jeudi 21 juin 2012 Statut Membre Dernière intervention 3 avril 2015
24 oct. 2012 à 11:25
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
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
24 oct. 2012 à 11:52
Re
Votre code marche sur un de mes fichiers, textebox sur une feuille de calcul ou une UserForm!!!!!
0
yosra_miagi Messages postés 97 Date d'inscription jeudi 21 juin 2012 Statut Membre Dernière intervention 3 avril 2015
24 oct. 2012 à 13:01
userform
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
24 oct. 2012 à 13:14
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+
0
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 211
24 oct. 2012 à 13:36
Bonjour à tous,
mettre le fichier xls est mieux.
eric
0
Réponse 2 / 2
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 26/10/2012 à 08:33
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+
0