Comparaison entre plusieurs onglet et récap dans une feuille récap

[momo]

Bonjour à tous!!!

Je viens par la présente vous faire part d'un soucis que j'ai à mettre en place une formule ou une macro qui me resumerait les éléments que les onglets Momo Lolo et May ont en commun avec la feuille "base" et les renseigner dans une feuille recap.

Dans un précédent post j'avais fait la même demande mais la feuille recap se présentait différemment et cette fois ci la macro qu'on m'ai aidé à avoir n'arrive pas a faire le nouveau récap

 

[job75]

Re : Comparaison entre plusieurs onglet et récap dans une feuille récap

Bonjour momo,

Pour que ce soit compréhensible et avoir une chance d'obtenir de l'aide :

https://www.excel-downloads.com/thr...-avec-recapitulatif-sur-nouvel-onglet.232164/

A+

 

[st007]

Re : Comparaison entre plusieurs onglet et récap dans une feuille récap

Bonjour,
Changer d'avis n'est pas interdit, mais si job75 ne prend pas le job ... (bon usine à gaz en perspective)
J'utiliserai le récap existant grâce à job et juste le transposer à ta nouvelle mise en page (matricielle et index - equiv)

 

[momo]

Re : Comparaison entre plusieurs onglet et récap dans une feuille récap

Merci JOb c'est vraiment aimable

 

[momo]

Re : Comparaison entre plusieurs onglet et récap dans une feuille récap

St007 regarde dans le fichier l'onglet masqué il correspond au recap tel que fait avec job et la macro y est attaché

 

[momo]

Re : Comparaison entre plusieurs onglet et récap dans une feuille récap

Bjr st007

Vous avez pu trouver une solution en partant de travail de job?

 

[st007]

Re : Comparaison entre plusieurs onglet et récap dans une feuille récap

Bonjour,

Sur 3000 lignes, par filtre élaboré et recopie ... ?

 

[st007]

Re : Comparaison entre plusieurs onglet et récap dans une feuille récap

re,
Euh,j'avais pas creusé, mais quand job disait "usine à gaz", la formulation est légère ....
d'ailleurs tu as deux lignes de plus que sa macro.
Se baser sur le code, le n° de ref est déjà une chose, sur des interprétation de désignations, bonne nuit ...

 

[momo]

Re : Comparaison entre plusieurs onglet et récap dans une feuille récap

Mais non st007
la recherche ne se fait que sur les numeros en colonne a sur chacun des onglets; Il n'y a que eux qui soient exactement identique sur tous les onglets.
Et tu verras que sur la macro de Job 75 dans mon fichier j'ai ramené la recherche à juste ce numero là;

En soi la macro de job me fait le Job 😱 mais c juste que j'aurais voulu que les resultat se presentent tel q le tableau de l'onglet recap2 se présente. C'est ma seule difficulté en fait

 

[momo]

Re : Comparaison entre plusieurs onglet et récap dans une feuille récap

st007 ET job75
En fonction de l'explication supp donnée est ce qu'il ne serait pas possible de faire en fonction de la mise en forme du recap 2?

 

[job75]

Re : Comparaison entre plusieurs onglet et récap dans une feuille récap

Bonsoir momo, st007,

On a bien compris le problème depuis longtemps.

Mais vous ce que vous ne comprenez pas c'est que faire des recherches avec des critères trop vagues (description) ou trop tordus (montants) mène tout droit à l'usine à gaz.

Normal qu'il n'y ait pas d'amateur.

Bonne fin de soirée.

 

[st007]

Re : Comparaison entre plusieurs onglet et récap dans une feuille récap

Bonsoir,

https://www.excel-downloads.com/thr...une-autre-feuille-en-fonction-dun-mot.168936/
https://www.excel-downloads.com/thr...eur-dans-colonne-et-copie-de-la-ligne.189382/
lire chercher apprendre adapter

 

[momo]

Re : Comparaison entre plusieurs onglet et récap dans une feuille récap

Bonjour Job

J'avais bien compris que je m'étais mal exprimé pour me faire comprendre...

En fait la recherche ne se faisait que par les numéros de référence qui sont communes dans toutes les feuilles.

JE précisais juste que ces numeros identiques sur chaque feuille pourrait avoir des descriptions differentes selon les feuilles mais ça a la limite on s'en fout . Mon réel problème était de pouvoir faire la mise en forme
MAis je crois que st007 m' a donné des pistes pour que j'y arrive

Merci à vous deux de m'avoir consacré de votre temps alors même que ce n'était pas une obligation...

 

[momo]

Re : Comparaison entre plusieurs onglet et récap dans une feuille récap

Merci st007 je vais de ce pas m'en inspirer et voir comment mettre en forme mon tableau

 

[job75]

Re : Comparaison entre plusieurs onglet et récap dans une feuille récap

Bonjour momo, le forum,

La mise en forme du tableau n'est guère un problème.

Si l'on se contente de comparer uniquement les 1ères colonnes (Num) c'est "relativement" simple :

Private Sub Worksheet_Activate()
Dim a, ub%, ncol%, base, lig&, d As Object, i&, num, nlig&
Dim j%, nlig1&, rest(), t, n&, p&, coul&
a = Array("Base", "Momo", "Lolo", "May") 'feuilles à étudier
ub = UBound(a)
ncol = 2 * ub + 3
base = Sheets(a(0)).[A1].CurrentRegion.Resize(, 3)
lig = 3 '1ère ligne à renseigner
Set d = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
Rows("3:" & Rows.Count).Delete 'RAZ
For i = 2 To UBound(base)
  num = base(i, 1)
  If Not d.exists(num) Then 'élimine les doublons
    d(num) = ""
    nlig = 0
    For j = 1 To ub
      nlig1 = Application.CountIf(Sheets(a(j)).[A:A], num)
      If nlig1 > nlig Then nlig = nlig1
    Next j
    If nlig Then
      nlig1 = Application.CountIf(Sheets(a(0)).[A:A], num)
      If nlig1 > nlig Then nlig = nlig1
      ReDim rest(1 To nlig, 1 To ncol)
      rest(1, 1) = num
      For j = 0 To ub
        t = Sheets(a(j)).[A1].CurrentRegion.Resize(, 3)
        n = 0
        For p = 2 To UBound(t)
          If t(p, 1) = num Then
            n = n + 1
            rest(n, 2 * j + 2) = t(p, 2)
            rest(n, 2 * j + 3) = t(p, 3)
          End If
        Next p
      Next j
      coul = coul + 1
      With Cells(lig, 2).Resize(nlig, ncol)
        .Value = rest
        If coul Mod 2 Then .Interior.ColorIndex = 24
      End With
      lig = lig + nlig
    End If
  End If
Next i
End Sub

Fichier joint, je colore les lignes de même "Num" une fois sur 2 pour plus de lisibilité.

A+