Aide Réalisation d'un Devis

Bonjour,

Je travaille depuis quelques temps sur la mise en place d'un devis automatisé à l'aide d'un formulaire.

sur mon formulaire j'ai quelques données clients à renseigner puis une liste déroulante avec les Références et une autres avec des centrales d'achats.

Pour les données client tout va bien je ne les ai donc pas remis dans le fichier que je vous joins.

En revanche je bloque sur les listes déroulante car j'aimerai qu'a partir de la référence choisis, ma macro aille directement chercher la description du bon produit. pour la copier au bon endroit

Mais également que le prix corresponde au produit et à la centrale d'achat définis dans le formulaire .

Pour se faire, j'ai recréer un fichier plus petit avec sur mon formulaire uniquement les parties sur lesquels je bloque.

En espérant avoir été assez explicite, et que vous pourrez m'aider.

D'avance merci du temps que vous pourrez m'accorder,

FT22

Bonjour,

Private Sub BtnAjout_Click()
Dim sh1, sh2, LastRw1 As Long, ref As Long, central As Integer
Set sh1 = Sheets("Liste")
Set sh2 = Sheets("REF")
LastRw1 = sh2.Cells(Rows.Count, 1).End(xlUp).Row + 1

sh2.Range("A" & LastRw1).Value = CboRef
sh2.Range("C" & LastRw1).Value = CInt(TxtQuanti)
sh2.Range("D" & LastRw1).Value = CboCentrale

ref = Application.Match(CInt(CboRef), sh1.Range("A:A"), 0)
sh2.Range("B" & LastRw1).Value = sh1.Range("B" & ref).Value

central = Application.Match(CboCentrale, sh1.Range("1:1"), 0)
sh2.Range("E" & LastRw1).Value = sh1.Cells(ref, central).Value
sh2.Range("F" & LastRw1).Value = sh2.Range("C" & LastRw1).Value * sh2.Range("E" & LastRw1).Value

Set sh1 = Nothing
Set sh2 = Nothing
End Sub