Bonjour à tous,
Je sais pertinemment que j'ai de faibles connaissances en visual basic mais je n'arrive pas à comprendre pourquoi je suis obliger de clicker 2 fois sur le bouton pour que tous le code s'exécute. Ce doit être encore gros comme une maison mais impossible de trouver
au premier click le code s'exécute jusqu'à
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 Private Sub Command3_Click() 'calcul de l'épaisseur ou du poids d'enrobé selon la case vide If Me.Text50.Text = "" Then MsgBox "Veuillez déterminer une densité !" ElseIf Me.Text48.Text = "" Then Me.Text48.Text = Round(CDbl(Me.Text49.Text) * CDbl(Me.Text50.Text) * 10) ElseIf Me.Text49.Text = "" Then Me.Text49.Text = Format(((CDbl(Me.Text48.Text) / CDbl(Me.Text50.Text)) / 10), ".0") 'calcul de la vitesse selon la centrale ElseIf Me.Text46.Text = "" And CDbl(Me.Text47.Text) <= CDbl(Me.Text51.Text) Then Me.Text46.Text = Format((CDbl(Me.Text47.Text) / CDbl(Me.List13.Text) / (CDbl(Me.Text48.Text) / 1000) / CDbl(Me.Text45.Text)), "00.00") Me.Text52.Text = CDbl(Me.Text47.Text) 'calcul de la vitesse selon les camions ElseIf Me.Text46.Text = "" And CDbl(Me.Text47.Text) > CDbl(Me.Text51.Text) Then Me.Text46.Text = Format((CDbl(Me.Text51.Text) / CDbl(Me.List13.Text) / (CDbl(Me.Text48.Text) / 1000) / CDbl(Me.Text45.Text)), "00.00") Me.Text52.Text = CDbl(Me.Text51.Text) 'Calcul du RH finisseur ElseIf Me.Text46.Text <> "" Then Me.Text52.Text = Round((CDbl(Me.Text46.Text) * CDbl(Me.List13.Text) * (CDbl(Me.Text48.Text) / 1000) * CDbl(Me.Text45.Text))) End If End Sub
'calcul de la vitesse selon la centrale
puis au deuxième le reste ????
Merci pour votre aide
cordialement
Partager