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

[paul87]

bonsoir à tous.
dans le fichier ci-joint (en feuil1)j'ai realisé in userform...dans lequel je souhaite avoir la meme fonctionnalité que la feuil2...que je supprimerai par la suite.
Mais comme je suis super débutant..je me paume severement dans les déclaration de variable...(meme avec les tutos)
si quelqu'un pouvait avoir la gentillesse de m'aider, de m'épauler pour la rédaction du code..cela à vraiment l'air trés simple...et me ferai une excellente initiation..
Merci par avance

 

[lacorse33]

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+

 

[paul87]

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

 

[paul87]

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

 

[lacorse33]

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+

 

[paul87]

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

 

[lacorse33]

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+

 

[paul87]

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

 

[paul87]

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

 

[lacorse33]

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+

 

[paul87]

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

Re-bonjour
bon finalement avec juste:

Private Sub CommandButton1_Click()
  Unload UserForm3
  End Sub

ça fonctionne au poil..
Merci encore