Userform et copie combobox

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
l
laetitia3921
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 10 avril 2019
Version d'Excel : 2016

Message par laetitia3921 » 10 avril 2019, 18:13

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
A
AlgoPlus
Membre dévoué
Membre dévoué
Messages : 824
Appréciations reçues : 64
Inscrit le : 27 février 2019
Version d'Excel : 2007

Message par AlgoPlus » 11 avril 2019, 11:44

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+
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message