recherche

[pipoui]

bonjour, je suis au travail et j'essaie de finaliser ma recherche mais je ne sais pas comment procéder.
explications, j'ai un classeur qui comporte plusieurs feuilles nommées par le nom d'un fournisseur différent à chaque fois.Dans ces feuilles, a chaque ligne correspond un produit
J'ai créé une dernière feuille qui s'appelle résumé et dans une cellule vierge, a coté d'un produit, je voudrais que puisse venir se mettre automatiquement les noms des fournisseurs qui dispose de ce produit.Je joins un fichier que je viens de créer pour concrétiser ma demande, mon fichier original comprends des dizaines de feuilles et des centaines de produits

 

[Guest]

Re : recherche

Bonjour,

voir dans fichier joint si cela convient.

A+

 

[JBOBO]

Re : recherche

Bonjour,

En B1 de ta feuille résumé :

=SI(ESTERREUR(EQUIV($A1;'fournisseur A'!A:A;0));"";STXT(CELLULE("nomfichier";'fournisseur A'!A1);TROUVE("]";CELLULE("nomfichier";'fournisseur A'!A1))+1;32)&CAR(10))&SI(ESTERREUR(EQUIV($A1;'FOURNISSEUR b'!A:A;0));"";STXT(CELLULE("nomfichier";'FOURNISSEUR b'!A1);TROUVE("]";CELLULE("nomfichier";'FOURNISSEUR b'!A1))+1;32)&CAR(10))&SI(ESTERREUR(EQUIV($A1;'fournisseur c'!A:A;0));"";STXT(CELLULE("nomfichier";'fournisseur c'!A1);TROUVE("]";CELLULE("nomfichier";'fournisseur c'!A1))+1;32)&CAR(10))

et à tirer vers le bas

 

[pipoui]

Re : recherche

merci, c'est tout à fait ce que je cherche à faire, le mieux ce serait que le nom des fournisseurs arrivent dans une seule cellule et non dans trois cellules différentes lorsqu'il y a 3 fournisseurs mais je ne sais pas si cela est possible. Donc merci d'avoir trouvé quel était mon problème,maintenant j'aimerais savoir comment je dois procéder pour faire de même sur mon vrai fichier
cordialement

 

[Guest]

Re : recherche

Re,

je ne sais pas si c'est à moi que tu parles ou à JBOBO mais pour la macro que je t'ai donné, voici la correction.

Sub GetFournisseurs()
 Dim sh As Worksheet
 Dim plg As Range
 Dim c As Range, ListeFour As String
 With Sheets("résume")
    Set plg = .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row)
    For Each c In plg.Cells
        ListeFour = ""
    For Each sh In ThisWorkbook.Worksheets
        If sh.Name <> "résume" Then
            If Not IsError(Application.Match(c, sh.Range("A:A"), 0)) Then
                ListeFour = ListeFour & sh.Name & ","
            End If
        End If
    Next sh
    If ListeFour <> "" Then c(1, 2) = Left(ListeFour, Len(ListeFour) - 1)
    Next
    .Range("A1").CurrentRegion.Columns.AutoFit
 End With
End Sub

Pour la mettre dans un module de ton fichier:
ALT+F11
Dans la nouvelle fenêtre:
Menu Insertion/Module
Dans le nouveau module tu colles la macro

si ta feuille résume originale ne porte pas ce nom là change le dans la ligne:
With Sheets("résume")

Pour le reste il suffit que tes produits soit en Colonne A de chaque feuille

Revenu sur la feuille Résume tu l'appelle en faisant ALT+F8

A+

 

[pipoui]

Re : recherche

merci à vous pour les réponses, j'ai utilisé celle de JBOBO pour la faire fonctionner sur mon mini tableau, ca fonctionne, par contre pour l'adapter à mon maxi tableau je ne sais pas comment faire. mes feuilles ne s'appellent pas fournisseur a fournisseur b, je vois que dans la formule il est indiqué la valeur "tableau recherche" et donc je n'arrive pas à l'adapter. Puis je avoir d'autres explications s'il vous plait..

 

[pipoui]

Re : recherche

A Hasco, trop compliqué pour moi, je ne sais même pas ou faire alt f11, dommage d'habitude je comprends aisément mais là je ne suis pas de niveau!

 

[Guest]

Re : recherche

Re,

ALT+F11 quand tu es sur une feuille de calcul, c'est le raccourci pour ouvrir l'éditeur de macro.

A+

 

[JBOBO]

Re : recherche

re,
Dans le fichier exemple, si tu renommes les noms d'onglets (fournisseur A, fournisseur B, Fournisseur C) par le nom de tes vrais onglets, alors normalement ils vont apparaitre dans la formule. ensuite un simple copier/coller devrait faire l'affaire.

 

[Dranreb]

Re : recherche

Bonjour
Une solution par macro
Glissez déplacez le module MIndexer vers votre vrai fichier
et copiez y la feuille "résume"
Cordialement

 

[pierrejean]

Re : recherche

Bonjour pipoui

Salu Hasco 🙂 🙂
Salut JBOBO

A tester:

Normalement tu devrais pouvoir ajouter des feuilles ,renommer les existantes
seule contrainte: conserver les noms d'objet en colonne A

Edit : Salut Dranreb

 

[pipoui]

Re : recherche

un grand merci à tous pour vos réponses.Je vais essayer de les mettre en application mais je ne sais pas si je vais y arriver car je n'ai jamais exécuter de macro sur excel.En même temps cela m’intéresse beaucoup de "bidouiller" et d'essayer mais sans avoir quelques bases je risque d'avoir des difficultés.Je vais y aller tranquillement en essayant les différentes méthodes.

 

[pipoui]

Re : recherche

est ce que ce serait "abuser" de demander à Dranreb " de m'aider "pas à pas" pour copier sa macro dans mon classeur original...

 

[Dranreb]

Re : recherche

Bonjour.
Non, mais ou bloquez vous ?
Je ne peux que détailler mon premier post:
1: Dans l'explorateur de projet cliquez sur le module standard nommé "MIndexer", puis, sans relacher le bouton gauche de la souris, déplacer le curseur vers le projet VBA de votre classeur.
2: Pour la feuille "Résumé", soit vous la copiez vu qu'elle est équipé du code, soit vous copiez le code dans le module de la feuille de votre classeur final.
À +

 

[pipoui]

Re : recherche

merci Dranreb, j'avance pas à pas sans y connaitre grand chose, j'y arrive tranquillement, j'ai fait tout ce que vous m'aviez dit par contre comment mettre en oeuvre la macro une fois que tout est copié, quand je fais macro, executer, je n'ai pas la main..je ne la trouve meme pas dans les macros créées, désolé, je pars de trop loin dans cet apprentissage alors j'ai beaucoup de mal..