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

Rechercher des sujets similaires à "copier"