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

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
au premier click le code s'exécute jusqu'à
'calcul de la vitesse selon la centrale
puis au deuxième le reste ????
Merci pour votre aide

cordialement