Excel et Visual basicRésolu

Question

Bonjour, j'ai une chose sans doute asser simple que je voudrais créer sous Visua Basic que j'ai déjà Faite sous Excel.
Je voudrais qu'il y est 4 champs de texte
le premier, se nomme

Tl

M

E

C

Et, je voudrais que, en dessous, il y est un bouton "valider"
Quand on appui, une popup apparait avec marquer :

C = M - E
CM = C/M * 100
CTL = C/L  180

( le résultat des calculs en faite )

Voila, je suis vraiment un gros noob et, je ne sais rien faire de tout sa !

econs · Accepted Answer

Salut,

Bon, en supposant que le premier champ s'appelle L , et que le bouton s'appelle cmdValider:

Private Sub cmdValider_Click()
    MsgBox "C = " & CStr(Val(M.Text) - Val(E.Text)) & vbCrLf & _
                        "CM = " & CStr(100*Val(C.Text)/Val(M.Text)) & vbCrLf & _
                        "CTL = " & CStr(180*Val(C.Text)/Val(L.Text)) 
End Sub

Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.

orditosh · Answer

Ok, j'ai tester, sa marche mais, il reste un petit problème :
je supprime le champs de texte à rentrer C

il me reste

Tl
M
E

Et, je voudrais que, il utilise pour calculer dans la popup le C calculer dans la popup ...

Private Sub cmdValider_Click()
    MsgBox "C = " & CStr(Val(M.Text) - Val(E.Text)) & vbCrLf & _

 "CM = " & CStr(100*Val(C.Text)/Val(M.Text)) & vbCrLf & _  <======= il ne faut pas utiliser le champs de texte C mais le résultat de la ligne juste au dessus !
                        "CTL = " & CStr(180*Val(C.Text)/Val(L.Text)) 
End Sub

Voila !
@+

orditosh · Answer

Ah, et, quand tout les champs sont vide, il y a une erreur !
Il faudrait que, si ils sont vide, il y est une popup : Veuillez remplir les champs vide !

econs · Answer

IF C.Text = "" Or E.Text = "" Or M.Text = "" Or L.Text = "" Then
    MsgBox "Veuillez remplir tous les champs"
Else
    MsgBox "C = " & CStr(Val(M.Text) - Val(E.Text)) & vbCrLf & _
                        "CM = " & CStr(100*Val(C.Text)/Val(M.Text)) & vbCrLf & _
                        "CTL = " & CStr(180*Val(C.Text)/Val(L.Text)) 
End If

Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.

orditosh · Answer

merci pour le if et, pour le problème du champs C
j'ai tout simplement refait faire le calcul dans CMet CTL
et, j'ai mis les parenthèses, comme en maths !

Excel et Visual basic

5 réponses

Votre réponse

Discussions similaires