Copier la cellule
Copier la cellule a droite de mon produit (table produit) et la mettre dans mon formulaire(textbox24)
combox5: liste produit
textbox24 doit contenir la description
feuille Produits
A B
# Produit Description
1045190 CREVETTE FRAICHE CUITE DECORTI
1045191 CREVETTE FRAICHE
1045192 CREVETTE FRAICHE MM CUITE DECORTI
1045401 CREVETTE SAUMURE 1.5KG
1045402 CREVETTE SAUMURE 150-250
1045403 CREVETTE BLOC
1062001 CREVETTE <150 200g I.Q.F.
1062002 CREVETTE <150 340g I.Q.F.
1062003 CREVETTE <150 400g I.Q.F.
1062004 CREVETTE <150 1kg I.Q.F.
1062005 CREVETTE <150 5lbs I.Q.F.
1062006 CREVETTE <150 454g I.Q.F.
1062011 CREVETTE 90-125 200g I.Q.F.
1062012 CREVETTE 90-125 340g I.Q.F.
Sheets("Produits").Select
Rows([A2:A65536].find(Combox5.Value).Row)????
textbox24=???
Merci de votre aide
Bonjour,
Il n'est pas du tout conseillé de faire de cette façon. Un ComboBox peut contenir 10 colonnes (0 à 9), donc tu peux donc insérer dans ce contrôle le code, la description, mais aussi et surtout le numéro de ligne :
Boucle sur chacun des produits :
ComboBox.Add
ComboBox.list(ComboBox5.ListCount-1, 0) = Référence produit ' Colonne 0
ComboBox.list(ComboBox5.ListCount-1, 1) = Description produit' Colonne 1
ComboBox.list(ComboBox5.ListCount-1, 9) = Numéro de ligne ' Colonne 9
Dans les options du ComboBox, tu peux faire apparaître les colonnes que tu souhaites, dans ton cas il faudrait faire apparaître les deux première colonnes. Tu peux aussi mettre une taille à chacune des colonnes, 50 pour une référence et 150-200 pour une description. Regarde les options du combo, elle t'aideront à afficher correctement les éléments et la sélection.
L'avantage de sauvegarder le numéro de ligne, c'est de pourvoir avoir accès très rapidement à la ligne article, soit pour récupérer des informations complémentaires, soit pour modifier la ligne produit.
Pour stocker la description produit dans le TextBox24 : TextBox24=ComboBox5.Value ou ComboBox5.Text (en fonction du paramétrage du ComboBox) ou sinon TextBox24=ComboBox5.List(ComboBox5.ListIndex,1). Pour afficher le numéro de ligne, il faut remplacer le ''1'' correspondant à la colonne par le 9.
J'ai essayé mais fonctionne pas si j'essai cela:
Private Sub TextBox24_Change()
Sheets("produits").Select
TextBox24 = Rows([A2:A65536].find(ComboBox5.Value).Row)
End Sub
mais il affiche rien dans ma textbox24
il faudrait que je prenne la donnée dans la colonne B pour la mettre dans ma textbox24
Merci de votre aide
Bonjour,
Je t'ai fait un fichier avec ta solution et ma solution, à adapter en fonction de ton besoin.
Merci sa fonctionne super.
C'est résolu
Bon site