Comment coder rechercheV en VBA sur excel?

met ton email ici ou alors met le fichier sur un ftp

ui c est surement possible mais je n ai pas trop d idee pour faire plus simple, desole mais je n ai toujours pas tres bien compri a quoi ta feuille ressemblai

mais en faite jme suis imagine ton fichier excel et jme suis di que c etait disposer comme ceci, di moi si je me trompre

boite 1| article1 |comment
| article2 |comment
| article3 |comment
| article4 |comment
| article5 |comment
boite 2| article1 |comment
| article2 |comment
| article3 |comment
.... et ainsi de suite
di moi si je sui a cote de la plaque

alors ce morceau de code recherche l entreprise selcetionnee, le numero de la ligne(a), continue a avancer avec la 2 eme boucle (b) qui s arrete avant la prochaine entreprise. et puis on prend les article de a jusque b et on les met dans la combobox, dans un label je ne sais pas comment cava se passer ...

edit: il y aura un probleme pour la derniere entreprise, la variable b va defenir infinie, je t enverrai un petit if a remettre par la suite

mais ici c est un code pour une combobox si Désignation n en est pas une ca m ira pas, et tkt j ai rien d autre a faire au boulo ...

UserForm1.Divers.text = Worksheets("BD").Cells(a, 3).value
les a et les b c est .... je saurai pas t expliquer clairement comme ca mais ce son de simple variable qui serve a faire avancer le programme et a ce deplacer dans le tableau

Je vais te donner une bonne partie du code, ce aui est en majuscule est a adapter

Cette partie dans la macro appellant l ouverture de la fenetre, la ou ce trouve le .show ou .load
for t = 8 to 500'a la place du 8 le debut du nom des entreprises, et a la place du 500 la ligne max de ta feuille
if Worksheets("NOMFEUILLE").Cells(t, 1) <> "" then
UserForm1.ComboBoxENTREPRISE.AddItem Worksheets("INV").Cells(t, 1).Value
t = t + 1
endif
next t

cette partie tu la met dans la comboboxENTREPRISE, tu clic 2 fois dessu sous VBA pour faire apparaitre le code et tu met ceci:

if UserForm1.ComboBoxENTREPRISE.text <> "" then
a=8
Do While Worksheets("NOMFEUILLE").Cells(a, 1) <> UserForm1.ComboBoxENTREPRISE.text
a =a + 1
Loop
b=a+1
Do While Worksheets("NOMFEUILLE").Cells(b, 1) =""
b =b + 1
UserForm1.ComboBoxARTICLE.AddItem Worksheets("NOMFEUILLE").Cells(b-1, 2).Value
Loop
else
UserForm1.ComboBoxARTICLE.clear
endif

Et enfin la derniere partie que tu met dans ComboBoxARTICLE
if UserForm1.ComboBoxARTICLE.text <> "" then
a=8
Do While Worksheets("NOMFEUILLE").Cells(a, 2) <> UserForm1.ComboBoxARTICLE.text
a =a + 1
Loop
NOMDULABEL.text =While Worksheets("NOMFEUILLE").Cells(a, 3)
else
NOMDULABEL.text = ""
endif

si tu as d question ...

mais quesque tu voudrais que ton code face exactement je n ai pas tout compri, et aussi pour ta combo >>>> ComboBox1.Text ca sera mieu
bon courage

Private Sub CommandButton1_Click()
Dim formulaire As Object
Dim intRangee As Integer >>>> il faudrai lui assigner une valeur

Label2.Caption = ComboBox1.Value

Label2.Caption.AddItem formulaire.Cells(intRangee, 2) 'N oublie pas qu'un label n est pas une liste deroulante
ma ligne proposee serai donc NOMDETACOMBOBOX.AddItem formulaire.Cells(intRangee, 2).value
formulaire je ne sais pas trop a quoi ce la correcpond peut etre >>> worksheets("formulaire").cells....

End Sub