calculateur...aide pour super-débutant!!

L

lacorse33

XLDnaute Occasionnel

• 24 Septembre 2006

• #2

Re : calculateur...aide pour super-débutant!!

Bonsoir paul87,

J'ai trouvé une solution.
Si tu ne comprends pas certaines instructions, dis-le moi et je t'informerai.

A+

 

Dernière édition: 28 Septembre 2006

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 24 Septembre 2006

• #3

Re : calculateur...aide pour super-débutant!!

Bonsoir et merci !!!
j'arrive bien à visualiser le code ,
mais la commande calculer..semble ne pas fonctionner...je crois que j'ai eu un bug au moment de l'ouverture, peux tu me re transmettre le fichier stp...?
Merci

 

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 24 Septembre 2006

• #4

Re : calculateur...aide pour super-débutant!!

Re-bonsoir,
ca y est ça marche...
mais j'ai des differences de résultats...(si on rentre des valeurs identiques)
entre la feuille 2...et le userform...
bizzare

 

Vote positif 0 Vote négatif

L

lacorse33

XLDnaute Occasionnel

• 24 Septembre 2006

• #5

Re : calculateur...aide pour super-débutant!!

Re bonsoir,

Les différences viennent du fait que dans la feuille 2, l'arrondi de la cellule E4 n'est pas pris en compte dans les formules.
Si tu effectues manuellement le calcul, tu trouveras le résultat affiché dans la UserForm.

A+

 

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 24 Septembre 2006

• #6

Re : calculateur...aide pour super-débutant!!

re-bonsoir,
ok bien revu les calculs,...c'est juste..MERCI
mais comment peut-on annuler les bugs...lorsque les textbox ou boutons d'options ne sont pas remplis dans le bon ordre ou si le calcul est lancé sans que toute les données soient fournies..
si on pouvait rajouter des msgbox...
merci par avance

 

Vote positif 0 Vote négatif

L

lacorse33

XLDnaute Occasionnel

• 24 Septembre 2006

• #7

Re : calculateur...aide pour super-débutant!!

Re,

J'ai rajouté l'affichage d'un message lorsque toutes les valeurs ne sont pas saisies.

A+

 

Dernière édition: 28 Septembre 2006

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 25 Septembre 2006

• #8

Re : calculateur...aide pour super-débutant!!

Bonjour,
et merci beaucoup, cela fonctionne tres bien.!!
Votre aide m'a beaucoup aidé!!c'est tres sympathique !!
MERCI

 

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 25 Septembre 2006

• #9

Re : calculateur...aide pour super-débutant!!

au fait, une toute derniere question,
quel code appliquer au bouton de commande Quitter pour qu'à la ré-o
uverture les textbox soient vides..?
Merci par avance

 

Vote positif 0 Vote négatif

L

lacorse33

XLDnaute Occasionnel

• 25 Septembre 2006

• #10

Re : calculateur...aide pour super-débutant!!

Bonjour paul87 et le forum,

Tu peux créer une procédure qui va initialiser les champs :

Private Sub Initialiser()
' Initialisation des champs
TextBox1.Value = vbNullString
TextBox2.Value = vbNullString
TextBox3.Value = vbNullString
TextBox4.Value = vbNullString
TextBox5.Value = vbNullString
TextBox6.Value = vbNullString
OptionButton1.Value = False
OptionButton2.Value = False
End Sub

Ensuite, lors du clic sur le bouton "Quitter", tu peux appeler la procédure "Initialiser" :

Private Sub CommandButton1_Click()
' Initialisation des champs
Initialiser

UserForm1.Hide
Unload UserForm1
End Sub

Tu peux également initialiser les champs au chargement de la UserForm en mettant ceci :

Private Sub UserForm_Initialize()
' Initialisation des champs
Initialiser
End Sub


A+

 

Vote positif 0 Vote négatif

P

paul87

XLDnaute Impliqué

• 25 Septembre 2006

• #11

Re : calculateur...aide pour super-débutant!!

Re-bonjour
bon finalement avec juste:

Code:

Private Sub CommandButton1_Click()
  Unload UserForm3
  End Sub

ça fonctionne au poil..
Merci encore

 

Vote positif 0 Vote négatif