Jess5913
XLDnaute Nouveau
Bonjour tous le monde
J'ai un suivi financier pour lequel j'ai créé un Userform. Dans ce Userform, j'aimerai qu'apparaisse chaque bon de commande passé à un sous-traitant. Les lignes de bon de commande de ce sous-traitant ne se suivent pas car un sous-traitant peut avoir un bon de commande pour différent poste.
Voici comment se présente mon tableau Excel :
Colonne A : N° de Poste
Colonne B : Nom du sous-traitant
Colonne C : Montant du bon de commande
Je n'arrive pas à trouver le code permettant de faire apparaitre avec l'aide d'une boucle, l'ensemble des bons de commande d'un seul sous-traitant.
Est-ce que quelqu'un aurai une idée ? Je vous joins un exemple avec fichier Excel.
Voici le bout de code que j'ai commençait à faire mais cela ne fonctionne pas du tout, car ça n'affiche que la dernière ligne correspondant à l'entreprise sur laquelle je suis et la répète en boucle :
Merci d'avance de votre aide
J'ai un suivi financier pour lequel j'ai créé un Userform. Dans ce Userform, j'aimerai qu'apparaisse chaque bon de commande passé à un sous-traitant. Les lignes de bon de commande de ce sous-traitant ne se suivent pas car un sous-traitant peut avoir un bon de commande pour différent poste.
Voici comment se présente mon tableau Excel :
Colonne A : N° de Poste
Colonne B : Nom du sous-traitant
Colonne C : Montant du bon de commande
Je n'arrive pas à trouver le code permettant de faire apparaitre avec l'aide d'une boucle, l'ensemble des bons de commande d'un seul sous-traitant.
Est-ce que quelqu'un aurai une idée ? Je vous joins un exemple avec fichier Excel.
Voici le bout de code que j'ai commençait à faire mais cela ne fonctionne pas du tout, car ça n'affiche que la dernière ligne correspondant à l'entreprise sur laquelle je suis et la répète en boucle :
Private Sub UserForm_Initialize()
Curseur = ActiveCell.Row 'indique le numéro de la ligne où le curseur se situe
TextBoxNom.Value = Range("B" & Curseur)
tablo = Range("A3:C18")
For n = LBound(tablo, 1) To UBound(tablo, 1)
If tablo(n, 2) = TextBoxNom.Value Then
For i = 1 To 4
Facture.Controls("TextBoxMarchePoste" & i).Text = tablo(n, 1)
Facture.Controls("TextBoxMarchePoste" & i).Visible = True
Facture.Controls("TextBoxMarcheMontantHT" & i).Text = tablo(n, 3)
Facture.Controls("TextBoxMarcheMontantHT" & i).Visible = True
Next i
End If
Next n
End Sub
Merci d'avance de votre aide
Pièces jointes
Dernière édition: