Userform et copie combobox
Bonjour,
je suis entrain de créer une base de données de gestion de stock.
J'ai créé un userform pour l'entrée des produits. J'ai bien tous les elements de mon userform qui s'inscrivent dans ma feuille excel où je souhaite "stock".
Mon probleme (je ne sais pas faire): je souhaite que la saisie dans ma combobox "produit" s'inscrive également dans une autre feuille excel "produits" (mais que la saisie de cette combobox pas les autres) et également qu'il n'y ait pas de doublons.
Je vous mets mes macros en cours.
Merci d'avance a ceux qui prendront le temps de me répondre.
Private Sub Valide_entree_Click()
Dim ctrl As Control
Dim colonne As Integer
Dim derligne As Integer
derligne = Sheets("Stock").Range("A10000").End(xlUp).Row + 1
For Each ctrl In Form_entr?e.Controls
colonne = Val(ctrl.Tag)
If colonne > 0 Then Sheets("Stock").Cells(derligne, colonne) = ctrl
Next
derligne = Sheets("Produits").Range("A10000").End(xlUp).Row + 1
For Each ctrl In Form_entr?e.Controls
colonne = Val(ctrl.Tag)
If colonne > 0 Then Sheets("Produits").Cells(derligne, colonne) = ctrl
Next
End
End Sub
Bonjour,
présenter un code indenté et entre balises code apporte plus de facilité à sa lecture et certainement plus de réponses.
a priori s'il s'agit de copier le contenu d'une combobox sur la première ligne libre de la feuille Produits
derligne = Sheets("Produits").Range("A10000").End(xlUp).Row + 1
Sheets("Produits").Cells(derligne, colonne) = combobox1.value
reste à déterminer colonne qui est peut-être la propriété Tag de la combobox ( ou même directement le N° de la colonne souhaitée).
A+