Bonjour, j'ai googlisé tous les mots clés que j'ai pu trouvé sans avoir pu solutionner mon problème. Je vais essayer de l'expliquer le plus clairement possible. J'espère que quelqu'un pourra m'aider car je bloque vraiment.
J'ai créée un Userform afin de faciliter les processus de commande de produits. L'utilisateur rentre les quantités, référence, le nom du produit, le prix, les codes services etc...
Lorsqu'il valide, je dois récupérer les informations rentrées afin de les valider et ensuite les inclure dans une feuille qui sera imprimée. L'utilisateur ne peux commander que 7 produits d'un même fournisseur dans ce cas là.
J'ai décidé de récupérer les infos des textbox par catégories que j'inscris dans un tableau : exemple : un tableau tQuantite(7) où je vais récupérer les quantité rentrées par l'utilisateur de mes 7 textbox qui s'apellent z_Quantite_1, z_Quantite_2 ... z_Quantite_7.
Idem pour les Prix, Reference etc...
Le code :
Ce code marche plutôt bien, mais ca me parait lourd à lire et j'aurais bien aimé pouvoir le transformer dans des boucles For pour moi ca aurait donné quelque chose du genre :
Je sais pertinemment que ce code ne marche pas et je n'ai trouvé aucun sujet capable de résoudre mon dilemne. La boucle For est d'autant plus intéressante qu'elle me permettrait d'inclure des If. Le fait de passer par plusieurs lignes de commandes m'obligeraient à mettre des If pour chaque ligne de récupération de données.
Soit il n'y a aucune solution et le code va prendre beaucoup de place, soit il existe un "truc" qui me permettrait de gagner en lisibilité et practicité dans code.
Merci d'avance pour vos suggestions !
J'ai créée un Userform afin de faciliter les processus de commande de produits. L'utilisateur rentre les quantités, référence, le nom du produit, le prix, les codes services etc...
Lorsqu'il valide, je dois récupérer les informations rentrées afin de les valider et ensuite les inclure dans une feuille qui sera imprimée. L'utilisateur ne peux commander que 7 produits d'un même fournisseur dans ce cas là.
J'ai décidé de récupérer les infos des textbox par catégories que j'inscris dans un tableau : exemple : un tableau tQuantite(7) où je vais récupérer les quantité rentrées par l'utilisateur de mes 7 textbox qui s'apellent z_Quantite_1, z_Quantite_2 ... z_Quantite_7.
Idem pour les Prix, Reference etc...
Le code :
Code:
Private Sub b_Commande_Valider_Click()
Dim mFournisseur As String, mDemandeur As String
Dim tQuantite(7) As String, tReference(7) As String, tProduit(7) As String
Dim tService(7) As String, tProjet(7) As String, tPrix(7) As String
Dim i As Integer
tQuantite(1) = z_Quantite_1.Value
tQuantite(2) = z_Quantite_2.Value
tQuantite(3) = z_Quantite_3.Value
tQuantite(4) = z_Quantite_4.Value
tQuantite(5) = z_Quantite_5.Value
tQuantite(6) = z_Quantite_6.Value
tQuantite(7) = z_Quantite_7.Value
tReference(1) = z_Reference_1.Value
tReference(2) = z_Reference_2.Value
tReference(3) = z_Reference_3.Value
tReference(4) = z_Reference_4.Value
tReference(5) = z_Reference_5.Value
tReference(6) = z_Reference_6.Value
tReference(7) = z_Reference_7.Value
tProduit(1) = z_Produit_1.Value
tProduit(2) = z_Produit_2.Value
tProduit(3) = z_Produit_3.Value
tProduit(4) = z_Produit_4.Value
tProduit(5) = z_Produit_5.Value
tProduit(6) = z_Produit_6.Value
tProduit(7) = z_Produit_7.Value
tService(1) = z_Service_1.Value
tService(2) = z_Service_2.Value
tService(3) = z_Service_3.Value
tService(4) = z_Service_4.Value
tService(5) = z_Service_5.Value
tService(6) = z_Service_6.Value
tService(7) = z_Service_7.Value
tProjet(1) = z_Projet_1.Value
tProjet(2) = z_Projet_2.Value
tProjet(3) = z_Projet_3.Value
tProjet(4) = z_Projet_4.Value
tProjet(5) = z_Projet_5.Value
tProjet(6) = z_Projet_6.Value
tProjet(7) = z_Projet_7.Value
tPrix(1) = z_Prix_1.Value
tPrix(2) = z_Prix_2.Value
tPrix(3) = z_Prix_3.Value
tPrix(4) = z_Prix_4.Value
tPrix(5) = z_Prix_5.Value
tPrix(6) = z_Prix_6.Value
tPrix(7) = z_Prix_7.Value
...
End Sub
Ce code marche plutôt bien, mais ca me parait lourd à lire et j'aurais bien aimé pouvoir le transformer dans des boucles For pour moi ca aurait donné quelque chose du genre :
Code:
For i = 1 To 7
tQuantite(i) = z_Quantite_ & i & .Value
Next i
qui remplacerait :
tQuantite(1) = z_Quantite_1.Value
tQuantite(2) = z_Quantite_2.Value
tQuantite(3) = z_Quantite_3.Value
tQuantite(4) = z_Quantite_4.Value
tQuantite(5) = z_Quantite_5.Value
tQuantite(6) = z_Quantite_6.Value
tQuantite(7) = z_Quantite_7.Value
Je sais pertinemment que ce code ne marche pas et je n'ai trouvé aucun sujet capable de résoudre mon dilemne. La boucle For est d'autant plus intéressante qu'elle me permettrait d'inclure des If. Le fait de passer par plusieurs lignes de commandes m'obligeraient à mettre des If pour chaque ligne de récupération de données.
Soit il n'y a aucune solution et le code va prendre beaucoup de place, soit il existe un "truc" qui me permettrait de gagner en lisibilité et practicité dans code.
Merci d'avance pour vos suggestions !