Discussion :

[dmoluc]

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

[ProgElecT]

Salut
Dés qu'une condition ElseIf est vraie, le programme se poursuit à la suite du End If.
Exemple, si ligne 6 ElseIf Me.Text48.Text = "" Then est vraie, exécution de la ligne 7 Me.Text48.Text = Round(CDbl(Me.Text49.Text) * CDbl(Me.Text50.Text) * 10), puis passage à la ligne 22 suivant End If.
Sans avoir analysé plus, une suite de If ..... Then plutôt que ElseIf .... Then devrait mieux fonctionné.

Mis a part, pourquoi ne pas avoir créé un groupe de contrôles TextBox ? (A moins que tu ne programmes pas en VB6 ou antérieur)

[dmoluc]

Merci pour le tuyau, ça fonctionne parfaitement avec des if et end if, quand au groupe de contrôle je ne sais pas ce que c'est et encore moins comment l'utiliser. Ma seule expérience en VB6 est 2 mois d'apprentissage du VBA seul dans mon coin mais avec l'aide précieuse du forum. J'essais de transcrire ce que j'ai appris en VBA vers VB6, pour l'instant cela fonctionne pas trop mal, mais je suis conscient que j'ai encore énormément de chose à découvrir...

merci

[ProgElecT]

Ok

Donc tu as commencé en VBA et tu poursuis en VB6.
En VB6 tu peux déposer un composant puis faire un copié de celui-ci puis faire une succession de coller, chaque copies auront le même nom avec un index de x.
Un exemple de l'utilité d'un groupe de composants, changer une propriété

Code :

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

1
2
3
Dim T As Integer
For T = 0 To TextBox1.Count - 1: TextBox1(T).Enabled = False: Next T
TextBox1(2).Enabled = True

au lieux de

Code :

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

1
2
3
4
5
6
7
8
TextBox1.Enabled = False
TextBox3.Enabled = False
'.......................
'.......................
'.......................
'.......................
TextBox39.Enabled = False
TextBox40.Enabled = False

[dmoluc]

J'avais remarqué que quand je copier coller on me demander si je voulais créer un "contrôl aera" ou un truc comme ça, je l'ai fais une ou 2 fois par erreur et aprés impossible de calculer avec ces contrôles.
Le petit programme que je suis en train de créer est composé d'un multipage avec 10 onglets et j'ai environ 3 ou 4 listbox et 25 textbox par page, peu être que cela serait intéressant d'utiliser cette fonction de VB6 quand j'aurais compris comment ça fonctionne ; je vais me pencher un peu dessus...