Userform recherche et remplissage auto

Bonjour a tous

Voila j'ai un fichier avec une lsite de produit - code article, libellé, Vl ...

Je souhaite sur une fiche apres avoir rempli un userform qui demande le code article que la fiche ce remplisse avec le libellé,les vl

Merci d'avance pour votre aide

voici le fichier simplifier

Bonjour,

pas certain d'avoir compris tu parle de userform mais dans ton fichier il n'y en a pas

néanmoins un essai en pièce jointe

bonne journée

Bonjour,

Je t'ai créé le Userform qui rempli le tableau selon la référence de l'arcticle rentré dans la Textbox.

Le code est toujours valable si tu rajoutes des lignes en données.

Par contre pour la présentation à toi de l'améliorer un peu :p

Par contre je ne sais pas afficher les résultats dans les bulles, cherches un peu ça ne doit pas être très compliqué.

Edit: en fait pour les bulles t'as juste à mettre =A5 =B5 .... :p

Re le fil

Une autre solution avec la méthode Find et une liste dynamique si on ajoute des articles

bonne journée

Bonjour,

DL_13 -> tu avait bien compris lol - MERCI c'est nikel

StagiaireNul -> pas si nul lol - merci sa correspond aussi a ma recherche

Je vais essayer d'adapter tout sa a mon fichier lol

Encore merci à vous

J'ai penser à autre chose - serait-il possible de rajouter un truc : lorsque je valide ma fiche (dans l'userform) que sa me créer un nouvel onglet avec le nouveau code article.

Encore une fois sa le mérite -- Merci

Bonjour,

il faut ajouter ces lignes de code dans la validation de ton USF

Private Sub CommandButton1_Click()
If TextBox1 = "" Then Exit Sub
    Cells(1, 1) = Val(ComboBox1)
    Cells(3, 1) = TextBox4
    For i = 1 To 3
         Feuil1.Cells(5, i) = Val(Controls("TextBox" & i))
    Next i
For Each Ws In ThisWorkbook.Sheets
        If Ws.Name = ComboBox1 Then MsgBox "Feuille déjà existante", vbCritical: Exit Sub
    Next Ws
    Cells.Copy
    ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
    With ActiveSheet
        .Name = ComboBox1
        .Paste
    End With
    [A1].Select
    Application.CutCopyMode = False
Unload Me
End Sub

A tester

Bonne journée

Bonjour

Merci DL_13 - marche super - par contre la mise en page ce change (zone impression centrer ...) peut on garder cette forme de la premier page

Merci pour ton aide