Créer sa propre fenêtre pour son programme en VBA sur Excel

Si ta fenêtre s'appelle UserForm1, alors pour la faire apparaitre, tu utilises la commande UserForm1.Show et pour la cacher c'est UserForm1.Hide.

Merci mais c pas sa le problème !!!

Je vais m’expliquer avec des images se sera plus simple !!!

Voilà la fenêtre que j’ai créer pour mon programme :
http://www.enregistrersous.com/imag[...]491fbfd55d0.bmp

Et voilà mon programme :


Sub salaire_des_VRP()

Dim nomvrp, encore As String
Dim cavrp, salairevrp As Double

SMIC = 1217.88
txcomm = 0.05

encore = "o"
While encore = "o"
nomvrp = InputBox("entrez le nom du VRP :")
cavrp = InputBox("entrez le chiffre d'affaires du VRP :")
If cavrp > 50000 Then
salairevrp = SMIC + (cavrp - 50000) * txcomm
Else
salairevrp = SMIC
End If
MsgBox (nomvrp): MsgBox (salairevrp)
encore = InputBox("autre VRP ? O/N")
Wend
End Sub


En faite je voudrais (après avoir entrez les le nom et le chiffre d’affaires du VRP) que dans la partie vide en dessous du bouton validez (après y avoir appuyé) je puisse voire le résultat de ma demande…

Ca marche ce que tu as écrit ?
Personnellement, je n'utilise jamais les MsgBox, donc je peux difficilement t'aider dans cette direction.

J'aurais plutot donné un nom à chaque champ :
- Nom pour le nom du VRP,
- Affaire pour le chiffre d'affaire du VRP,
- Resultat pour le salaire du VRP.

Et dans la Private Sub CommandButton1_Click(), j'aurais écrit le code de calcul du résultat :

Code :

salairevrp = SMIC If cavrp > 50000 Then salairevrp = SMIC + (cavrp - 50000) * txcomm Resultat.Caption = salairevrp

Edité par Jacky67 le 27/05/2006 à 15:58

Voilà se que sa donne si j’ai bien compris…




Private Sub nom()

Dim nomvrp As String

nomvrp = InputBox()

End Sub
_______________________________________________________________

Private Sub CA()

Dim cavrp As Double

cavrp = InputBox()

End Sub
________________________________________________________________

Private Sub Resultat()

SMIC = 1217.88
txcomm = 0.05

If cavrp > 50000 Then
salairevrp = SMIC + (cavrp - 50000) * txcomm
Else
salairevrp = SMIC
End If
Resultat.Caption = salairevrp
End Sub



Mais sa ne m’affiche toujours pas le résultat…
Quand j’appuis sur le bouton validez… rien ne se passe…


Et pour MsgBox je l’utilise car je ne sais pas quoi utilisé d’autre…
Je ne suis encor qu’un débutant…

Et merci pour t’a passiance…

C'est dans la Private Sub CommandButton1_Click() que j'aurais écrit le code de calcul du résultat.

Autrement dit, ça donneriat ça :

Code :

Private Sub CommandButton1_Click() salairevrp = SMIC If cavrp > 50000 Then salairevrp = SMIC + (cavrp - 50000) * txcomm Resultat.Caption = salairevrp End Sub

Si tu ne trouves pas où ce trouve "Private Sub CommandButton1_Click()", alors fais un double clique sur le bouton en mode édition et tu y arriveras de suite.

Edité par Jacky67 le 27/05/2006 à 17:10

…
On va y arriver !!!
Ne désespérons pas !!! « rire »

En fait j’ai renommer commandbouton1_Click() par résultat…

Mais je savais qu’il y avait un truck de louche !!!

Enfin bref. Après modification sa donne sa :


Private Sub nom()

Dim nomvrp As String

nomvrp = InputBox()

End Sub
__________________________________________________________

Private Sub CA()

Dim cavrp As Double

cavrp = InputBox()

End Sub
__________________________________________________________

Private Sub resultat()

// JE SUPOSE QUE L’ERREUR EST ICI ???

End Sub
__________________________________________________________

Private Sub CommandButton1_Click()

SMIC = 1217.88
txcomm = 0.05

If cavrp > 50000 Then
salairevrp = SMIC + (cavrp - 50000) * txcomm
Else
salairevrp = SMIC
End If
resultat.Caption = salairevrp
End Sub

Ce que je disais, c'était de créer une fenêtre, d'y mettre respectivemant par rapport à ton image :
- Label1 : qui comporte le texte "Nom du VRP",
- TextBox1 : qui permet de saisir le nom du VRP,
- Label2 : qui comporte le texte "Chiffre d'affaire du VRP",
- TextBox2 : qui permet de saisir le chiffre d'affaire du VRP,
- CommandButton1 : bouton qui permet de demander l'affichage du résultat,
- Label3 : qui permet d'afficher le résultat.

et le code :

Code :

Private Sub CommandButton1_Click() SMIC = 1217.88 txcomm = 0.05 salairevrp = SMIC cavrp = TextBox2.Value If cavrp > 50000 Then salairevrp = SMIC + (cavrp - 50000) * txcomm Label3.Caption = salairevrp End Sub

Et pis en ajoutant un petit bouton pour sortir de la fenêtre, ça donne ça : http://rapidshare.de/files/21531616/MTDO.xls.html

Edité par Jacky67 le 27/05/2006 à 18:15

Ok je commence à comprendre !!!

Je vais faire un autre teste se soir... j’ai pas trop le temps pour le moment…
J’espère que sa marchera se coup si !!!

Dit moi il faut payer sur ton lien ???

Merci encore je te dirai si sa marche ou pas dés que possible !!!

Non, rien a payer !!!

Tu cliques sur le bouton "Free", puis tu entres dans le champ "here" les 3 caractères qui s'affichent en couleur et tu cliques sur "Download from mirror alpha".

C’est bon j’ai enfin compris !!!

Merci beaucoup pour ton aide !!!

En faite je chercher trop compliqué... alors que c'est plutôt simple (quand on a compris) !!!

Encor merci et a+

Réponse automatique :

Cette question est résolue

Je ne sais pas si ma solution est la meilleure, mais elle est effectivement trés simple, voir simpliste.

Heureux pour toi si ça te convient.
Merci à toi et @+