XL 2010 Aidez moi je craque

[storme]

Bonsoir,

Je me permets de vous solliciter car j'ai un gros souci que je n'arrive pas à résoudre.
Je vous explique j'ai un classeur sur lequel j'ai plusieurs onglets.
Un onglet :tva et no tva
Mon souhait serait d'arriver en faire un seul et récupérer certaines colonnes pour obtenir les clients concernés à partir du n° de pièce

les coclonnes renseignes sur la feuille
Pouvez-vous m'aider svp ça fait des heures que je suis dessus et je craque là?

 

[job75]

je voudrais qu'à partir de la feuille des encours (fichier le plus récent ) et des numéros de pièces présentent dans ce tableau faire une recherche dans les autres feuilles (tva et no tva) et si le numéro de pièce correspond les coller dans la feuille

C'est nouveau mais alors il faut déposer un fichier avec des numéros de pièces qui conviennent car celui que vous avez fourni ne donnera aucun résultat.

 

[storme]

C'est nouveau mais alors il faut déposer un fichier avec des numéros de pièces qui conviennent car celui que vous avez fourni ne donnera aucun résultat.

cad ?le fichier est trop volumineux

 

[storme]

je ne peux le transferer en ligne il fait 7.22Mo

 

[Dugenou]

Bonjour à tous,
Une tentative par formule.
Il faudrait préciser quelle colonne vient de quelle feuille et dans quel ordre on va chercher dans ls feuilles quand le N° de pièce est dans plusieurs feuilles : j'ai fait avec ce que j'ai trouvé.
Cordialement

 

[job75]

cad ?le fichier est trop volumineux

Le fichier n'est pas indispensable mais il va falloir vous débrouiller toute seule.

Placez cette macro dans le code de la feuille "resultat" :

Private Sub Worksheet_Activate()
Dim resu(), d As Object, tablo, i&, n&
ReDim resu(1 To Rows.Count, 1 To 8)
Set d = CreateObject("Scripting.Dictionary")
'---feuille encours (création de la liste des numéros)---
tablo = Feuil1.UsedRange.Resize(, 4)
For i = 2 To UBound(tablo)
    If tablo(i, 4) <> "" Then d(tablo(i, 4)) = ""
Next
'---feuille tva---
tablo = Feuil2.UsedRange.Resize(, 34)
For i = 2 To UBound(tablo)
    If d.exists(tablo(i, 1)) Then
        n = n + 1
        resu(n, 1) = tablo(i, 1)
        resu(n, 2) = tablo(i, 7)
        resu(n, 3) = tablo(i, 19)
        resu(n, 4) = tablo(i, 15)
        resu(n, 5) = tablo(i, 17)
        resu(n, 6) = tablo(i, 16)
        resu(n, 7) = tablo(i, 34)
        resu(n, 8) = Feuil2.Name 'repérage feuille
    End If
Next
'---feuille notva---
tablo = Feuil3.UsedRange.Resize(, 28)
For i = 2 To UBound(tablo)
    If d.exists(tablo(i, 23)) Then
        n = n + 1
        resu(n, 1) = tablo(i, 23)
        resu(n, 2) = tablo(i, 12)
        resu(n, 3) = tablo(i, 26)
        resu(n, 6) = tablo(i, 28)
        resu(n, 7) = tablo(i, 27)
        resu(n, 8) = Feuil3.Name 'repérage feuille
    End If
Next
'---restitution---
If FilterMode Then ShowAllData 'si la feuille est filtrée
With [A2] '1ère cellule de destination, à adapter
    If n Then .Resize(n, 8) = resu
    .Offset(n).Resize(Rows.Count - n - .Row + 1, 8).ClearContents 'RAZ en dessous
End With
Columns.AutoFit 'ajustement largeurs
With UsedRange: End With 'actualise la barre de défilement verticale
End Sub

 

[storme]

j'ai retravailler le fichier

Bonjour à tous,
Une tentative par formule.
Il faudrait préciser quelle colonne vient de quelle feuille et dans quel ordre on va chercher dans ls feuilles quand le N° de pièce est dans plusieurs feuilles : j'ai fait avec ce que j'ai trouvé.
Cordialement

Bonjour Dugenou

la colonne numéro de pièce dans la feuille résultat est celui de la colonne "d" de la feuille encours
je voudrais qu'à partir de la feuille des encours (fichier le plus récent ) et des numéros de pièces présentent dans ce tableau faire une recherche dans les autres feuilles (tva et no tva) et si le numéro de pièce correspond les coller dans la feuille résultat.
Les feuilles tva et no tva sont des extractions du journal de vente avec pour la feuille tva les infos présentent dans les colonnes "O;P;Q" respectivement

 

[storme]

Job 75 puis-je réutiliser cette macro sur d'autres pC?

 

[job75]

Job 75 puis-je réutiliser cette macro sur d'autres pC?

Sur des PC oui mais pas sur MAC qui n'accepte pas le Dictionary.

 

[storme]

Sur des PC oui mais pas sur MAC qui n'accepte pas le Dictionary.

Un grand merci à vous pour votre aide et surtout votre patience
vous m'enlevez une grosse épine du pied.