Bonjour
Voilà, j'ai un code qui fonctionne, mais j'aimerais l'allèger, en faisant une boucle, et c'et là que pour moi cela se complique....lol
donc voici le code qui fonctionne
voilà, ce ci est la partie ou je voudrais appliquer une boucle.
et voilà, ce que j'essaie de faire mais qui ne fonctionne pas
voilà, si quelqu'un a une idée, même me donner la route afin que je comprenne mon erreur ou à moins ce que j'ai fait soit vraiment à coté de la plaque....lol, merci
Voilà, j'ai un code qui fonctionne, mais j'aimerais l'allèger, en faisant une boucle, et c'et là que pour moi cela se complique....lol
donc voici le code qui fonctionne
Code:
Private Sub CB_Valider2_Click()
Nom = Lab_Nom
If Nom = "" Then
MsgBox "Veuillez selectionner un Nom dans la Liste."
'Else
'Exit Sub
End If
If TB_Nbre1 = "" Then
Else
P1 = TB_Nbre1 * Lab_Prix1
End If
If TB_Nbre2 = "" Then
Else
P2 = TB_Nbre2 * Lab_Prix2
End If
If TB_Nbre3 = "" Then
Else
P3 = TB_Nbre3 * Lab_Prix3
End If
If TB_Nbre4 = "" Then
Else
P4 = TB_Nbre4 * Lab_Prix4
End If
If TB_Nbre5 = "" Then
Else
P5 = TB_Nbre5 * Lab_Prix5
End If
If TB_Nbre6 = "" Then
Else
P6 = TB_Nbre6 * Lab_Prix6
End If
If TB_Nbre7 = "" Then
Else
P7 = TB_Nbre7 * Lab_Prix7
End If
If TB_Nbre8 = "" Then
Else
P8 = TB_Nbre8 * Lab_Prix8
End If
Lab_Total = P1 + P2 + P3 + P4 + P5 + P6 + P7 + P8
voilà, ce ci est la partie ou je voudrais appliquer une boucle.
et voilà, ce que j'essaie de faire mais qui ne fonctionne pas
Code:
Dim I2 as Variant
Dim J2 as Variant
Dim K2 as Variant
I2 = TB_Nbre(I)
J2 = Lab_Prix(J)
K2 = P(K)
For I = 1 To 8
For J = 1 To 8
For K = 1 To 8
If I2 = "" Then
Else
K2 = I2 * J2
Next K
Next J
Next I
voilà, si quelqu'un a une idée, même me donner la route afin que je comprenne mon erreur ou à moins ce que j'ai fait soit vraiment à coté de la plaque....lol, merci