XL 2013 Vba liste extraction données

F_Lyaa · 23 Septembre 2020

Bonjour,

je suis débutante en Vba excel et tout ça je viens donc demander un peu d’aide.
j’ai un tableau a plusieurs colonnes correspondant au numéro flacon, nom produit, fournisseur.
j’ai d’abord réussi à faire une liste déroulante pour extraire le numéro de flacon.
j’ai créé une commande bouton pour faire rechercher.
jai crée différentes cases pour afficher le nom produit, fournisseur.
En fait, j’aimerai qu’en indiquant un numéro de flacon puis en appuyant rechercher, ça remplisse automatiquement les cases fournisseur, produit.

je pense qu’il faut que j’indique le numéro de ligne ou se trouve le numéro de flacon et que ça remplisse le nom produit puisque ces donnees se situent sur les mêmes lignes.

Merci pour votre aide

sylvanu · 23 Septembre 2020

On a tous commencé un jour ....

Dans votre userform j'ai appelé les éléments par leur petit nom, c'est plus lisible.
Dans le bouton Rechercher j'ai mis le code suivant :

VB:

Private Sub CommandButton1_Click()
    N = Application.Match(Val(NoFlacon), Sheets("Feuil1").Range("A1:A1000"), 0) ' Où se trouve le N° flacon
    Fournisseur = Sheets("Feuil1").Cells(N, 2)                                  ' Extraire le fournisseur
    Nom = Sheets("Feuil1").Cells(N, 3)                                          ' et le nom du fournisseur
    NoLot = Sheets("Feuil1").Cells(N, 4)                                        ' ainsi que le N° de lot.
End Sub

sylvanu · 23 Septembre 2020

Bonjour F_Lyaa,
Difficile d'être sûr de la demande.
Un fichier test aurait éviter de répondre de façon généraliste.
En PJ un exemple de ce que j'ai compris, avec Recherchev:

VB:

=SIERREUR(RECHERCHEV($H6;$B$5:$D$20;2);"")

Fonction RECHERCHEV - Support Microsoft

Découvrez comment utiliser la fonction RECHERCHEV dans Excel pour rechercher des données dans un tableau ou une plage par ligne. Notre guide pas à pas rend vlookup dans Excel facile et efficace.

support.microsoft.com

F_Lyaa · 23 Septembre 2020

Tout d’abord merci pour la réponse !
Voici quelque capture d’écran pour illustrer ce que je souhaiterai faire. J’aimerai que quand je choisi un numéro de flacon, ça fasse apparaître le fournisseur et le nom fournisseur associé.
pour un début j’ai réussi à faire une liste pour le flacon en associant Row source à la colonne N flacon.
Voilà j’espère avoir être plus précise

F_Lyaa · 23 Septembre 2020

Tout d’abord merci pour la réponse !
Voici quelque capture d’écran pour illustrer ce que je souhaiterai faire. J’aimerai que quand je choisi un numéro de flacon, ça fasse apparaître le fournisseur et le nom fournisseur associé.
pour un début j’ai réussi à faire une liste pour le flacon en associant Row source à la colonne N flacon.
Voilà j’espère avoir être plus précise

sylvanu · 23 Septembre 2020

Vos images sont belles mais peu exploitables en VBA.
Essayez de faire un fichier test qui soit représentatif, ou votre fichier en remplaçant les données par Data1 Data2 ....
Sinon il faudrait entièrement reconstruire votre outil pour répondre au risque d'être à coté de la plaque.

F_Lyaa · 23 Septembre 2020

En effet, voici un fichier exemple, il n'est pas riche je suis vraiment débutante.. j'ai juste réussi à faire une liste pour choisir le numéro de flacon..

sylvanu · 23 Septembre 2020

On a tous commencé un jour ....

Dans votre userform j'ai appelé les éléments par leur petit nom, c'est plus lisible.
Dans le bouton Rechercher j'ai mis le code suivant :

VB:

Private Sub CommandButton1_Click()
    N = Application.Match(Val(NoFlacon), Sheets("Feuil1").Range("A1:A1000"), 0) ' Où se trouve le N° flacon
    Fournisseur = Sheets("Feuil1").Cells(N, 2)                                  ' Extraire le fournisseur
    Nom = Sheets("Feuil1").Cells(N, 3)                                          ' et le nom du fournisseur
    NoLot = Sheets("Feuil1").Cells(N, 4)                                        ' ainsi que le N° de lot.
End Sub

F_Lyaa · 23 Septembre 2020

Merci beaucoup pour la réponse et la rapidité !
Tout fonctionne parfaitement

F_Lyaa · 23 Septembre 2020

Pour mon info personnelle, est il possible d’ajouter une fonction « impression » à CommandButton ?
merci!

sylvanu · 23 Septembre 2020

Pour impression, je regarde.
1- En PJ un essai permettant d'éviter le bouton Rechercher avec une macro Sub NoFlacon_Change().
2- Pour simplifier l'écriture, lorsqu'on a N fois Sheet("feuil1"), on peut le supprimer et mettre un With ... End With ( Ne pas oublier le point avant les Cells pour indiquer quel sheet utiliser.

VB:

Private Sub NoFlacon_Change()
    N = Application.Match(Val(NoFlacon), Sheets("Feuil1").Range("A1:A1000"), 0) ' Où se trouve le N° flacon
    With Sheets("Feuil1")
        Fournisseur = .Cells(N, 2)                                  ' Extraire le fournisseur
        Nom = .Cells(N, 3)                                          ' et le nom du fournisseur
        NoLot = .Cells(N, 4)                                        ' ainsi que le N° de lot.
    End With
End Sub

Je reviens vers vous pour l'impression.

sylvanu · 23 Septembre 2020

J'ai glané un p'tit bout de code pas très compliqué :

Code:

Private Sub Impression_Click()
    Me.PrintForm
End Sub

Ca donne le pdf en PJ.

F_Lyaa · 24 Septembre 2020

Merci j'ai testé sur le fichier fonctionnel et tout fonctionne parfaitement !
J'ai encore une petite question, est il possible de de sauvegarder le userform pour ensuite l'imprimer ?
le but étant de faire une étiquette de petit format.

Merci beaucoup !

sylvanu · 24 Septembre 2020

Bonjour,
Si c'est pour générer des étiquettes, votre solution va être compliquée.
Pourquoi ne pas y dédier une page ? ( voir PJ )
Sur un A4 on met 24 étiquettes. On peut modifier la taille des étiquettes en jouant sur la mise en page.
Il suffit pour chaque étiquette de renseigner le nom du flacon. ( comme c'est fait pour la première ), il y a des listes déroulantes pour choisir.

sylvanu · 24 Septembre 2020

L'userform n'apparait pas dans la liste des macros ... parce ce que ce n'est pas une macro.
Il faut faire une macro qui lance l'userform.
Dans mon fichier elle s'appelle Essai avec :

VB:

Sub Essai()
    UserForm1.Show
End Sub

F_Lyaa · 24 Septembre 2020

J'ai réussi merci pour toutes les réponses apportées !

XL 2013 Vba liste extraction données

F_Lyaa

Guest

sylvanu

sylvanu

XLDnaute Barbatruc

Fonction RECHERCHEV - Support Microsoft

Pièces jointes

F_Lyaa

Guest

F_Lyaa

Guest

sylvanu

XLDnaute Barbatruc

F_Lyaa

Guest

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

F_Lyaa

Guest

F_Lyaa

Guest

sylvanu

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

F_Lyaa

Guest

sylvanu

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

F_Lyaa

Guest

Discussions similaires