Une recherchev un peu compliquée!

Question

Bonjour à tous, 

voilà, je fais appel à votre aide et compétence pour une recherchev avec qui je m'arrache les cheveux. 

Je vous explique: J'ai environ 210 feuilles représentants 210 produits différents (les feuilles portent des noms). Je souhaite créer une feuille regroupant les caractéristiques des 201 produits (en allant chercher dans les 210 feuilles automatiquement) Voici un exemple de ce que je souhaite en pièce jointe.

https://www.cjoint.com/?fflI4JG5tv


merci d'avance pour votre aide!

Nico

zebulon2503 · Answer

Salut

Tu peux poster ton fichier sur cijoint.FR ? J'ai pas accès au .COM...

afrojazz · Answer

Salut Zebulon,

voici le lien sur cijoint.fr:

http://www.cijoint.fr/cjlink.php?file=cj201005/cijAELG6Do.xls 

Merci d'avance!

Nico

margarita_ritaline · Answer

Tu peux t'y prendre de la manière suivante :
Dans la cellule de DATABASE où tu veux mettre une donnée d'un autre ongler, taper = + clic sur l'onglet sur lequel tu trouve ta donnée (ex TOTO) + clic sur la cellule concernée de TOTO + entrée
J'espère que c'est assez clair.
Bon courage

zebulon2503 · Answer

Salut

J'ai fait une macro pour copier les différentes données de tous tes onglets.
Par contre, y'a un problème avec les valeurs des employés. Tu vas les chercher ailleurs donc moi je n'ai rien.

Voici le code, à mettre dans un module en VBA.

Sub Copie()
    For Each Worksheet In ActiveWorkbook.Sheets
    Limite = Sheets("DATABASE").Name
        If Worksheet.Name = Limite Then
            Exit Sub
        Else
            If Nom = Worksheet.Name Then
                GoTo FIN
            Else
                Nom = Worksheet.Name
                Sheets(Nom).Select
                Code = Range("C8").Value
                Employe = Range("B15").Value
                Vendeur = Range("E17").Value
                Sheets("DATABASE").Select
                Range("A4").Select
                Do Until ActiveCell.Value = ""
                    ActiveCell.Offset(1, 0).Select
                Loop
                Ligne = ActiveCell.Row
                ActiveCell.Value = Code
                Cells(Ligne, 2).Value = Employe
                Cells(Ligne, 3).Value = Vendeur
            End If
FIN:
        End If

    Next Worksheet
End Sub


A+

Une recherchev un peu compliquée!

4 réponses

Discussions similaires

Newsletters