Discussion :

[Lucas42]

Bonjour j'ai créé une fonction avec 2 paramétres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub TraceVanne2Voies(longueur1 As Integer, longueur2 As Integer)
    ScaleMode = vbPixels        'dessine en pixel
    ForeColor = vbBlack         'couleur trait en noir
    Line (100, longueur)-(300, longueur)
    Line (100, longueur)-(300, longueur2)
    Line (300, longueur)-(100, longueur2)
    Line (100, longueur2)-(300, longueur2)
    FillStyle = vbFSSolid       'la forme dessiné est un solide
End Sub

et j'aimerai pouvoir donner des valeurs à mes paramétres longeur1 et longueur2, je pensais que ceci irai mais il c'est avéré que non

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Command1_Click()
TraceVanne2Voies longueur1 = (Text1.Text)
TraceVanne2Voies longueur2 = (Text2.Text)
End Sub

oui j'utilise des textbox pour entré mes valeurs

merci d'avance
amicalement lucas

[HPJ]

C'est un simple appel de procédure paramétrée...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Command1_Click()
TraceVanne2Voies Text1.Text, Text2.Text
End Sub

[Catbull]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TraceVanne2Voies CInt(Text1.Text), CInt(Text2.Text)

[Lucas42]

Merci Catbull

@ plusch , c'est l'heure du déjeuné