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

 

[momo]

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

You Guys are Fantastic Franchement c'était tout ce que je voulais...

Je vais faire attention à me faire comprendre next time

Thank you very much!!!

 

[job75]

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

Re,

J'ai un peu modifié la macro du post #15 pour qu'elle soit un peu plus rapide.

You Guys are Fantastic Franchement c'était tout ce que je voulais...

Je vais faire attention à me faire comprendre next time

Encore une fois votre problème était très clair mais franchement vous avez mis de l'eau dans votre vin puisque vous ne voulez plus comparer les colonnes "Description" et "Montant".

A+

 

[momo]

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

Vraiment un gros MERCI , Même un Lingot d'or ne vaudrait pas le temps et l'aide que vous avez consacré à mon problème

J'adopte le nouveau code

 

[momo]

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

Job S'il vous plait

Si je peux abuser est ce qu'il serait possible d'insérer une colonne supplémentaire dans chacune des feuilles et de façon a ce que sur la feuille recap je puisse faire apparaitre cette colonne supp?

 

[job75]

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

Re,

Fichier (2) avec 4 colonnes dans chaque feuille, j'ai aussi ajouté des bordures.

Edit : je généralise, avec le paramètre L (à définir) on peut traiter autant de colonnes que l'on veut :

Private Sub Worksheet_Activate()
Dim L%, a, ub%, ncol%, base, lig&, d As Object, i&, num, nlig&
Dim j%, nlig1&, rest(), t, n&, p&, q%, coul&
L = 4 'nombre de colonnes dans chaque feuille, à adapter
a = Array("Base", "Momo", "Lolo", "May") 'feuilles à étudier
ub = UBound(a)
ncol = (L - 1) * ub + L
base = Sheets(a(0)).[A1].CurrentRegion.Resize(, L)
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(, L)
        n = 0
        For p = 2 To UBound(t)
          If t(p, 1) = num Then
            n = n + 1
            For q = 2 To L
              rest(n, j * (L - 1) + q) = t(p, q)
            Next q
          End If
        Next p
      Next j
      coul = coul + 1
      With Cells(lig, 2).Resize(nlig, ncol)
        .Value = rest
        .Columns(1).Merge 'fusionne les cellules
        If coul Mod 2 Then .Interior.ColorIndex = 24
      End With
      lig = lig + nlig
    End If
  End If
Next i
'---bordures---
If lig = 3 Then Exit Sub
For j = 7 To 12
  [B3].Resize(lig - 3, ncol).Borders(j).Weight = xlThin
Next j
End Sub

A+

 

[momo]

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

Je ne sais comment vous dire Merci!!!

 

[job75]

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

Re,

J'ai généralisé le fichier (2) à un nombre quelconque de colonnes.

A+

 

[momo]

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

Bonjour Job,

Sans vouloir vous importuner, dans le code #20 comment je peux demander à ma macro de ne me ressortir que:
1) Les Numéros seulement présents simultanément dans tous les onglets
2) Ceux qui ne sont présent dans aucun des onglets Momo Lolo et May

 

[job75]

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

Bonjour momo,

Pour ces nouveaux problèmes, il suffit de modifier quelque peu la macro.

En terme de logique, les fichiers précédents correspondaient au critère OU.

Les fichiers joints correspondent donc aux critères ET et NI.

A+

 

[momo]

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

Le Mot Génial est Faible pour vous définir vous et votre talent

Merci Chapeau Bas!!!!

 

[momo]

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

Bonjour Job; Bonjour à tout le forum
Job75 je me permets de revenir sur ce code génial que vous m'avez aidé à réaliser voici déjà deux mois, est ce que vous auriez la patience de me porter un pti coup de pouce sur une modification que je voudrais apporter au code notamment celui du post 17

En fait sur le code ci-dessus; la clé de comparaison est faite sur des valeurs numériques. Est ce qu'il est possible que cette clé soit alphanumérique (Chiffres et lettres composant la clé)

En prenant votre code tel qu'il est fait et en lancant la recherche; un message : "Erreur d'exécution 13" Incompatibilité type apparaît
votre aide me sera très précieuse

Merci d'avance

 

[job75]

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

Bonjour momo, le forum,

Les codes que j'ai donnés fonctionnent avec des "Num" quelconques, textes ou nombres.

C'est bien pour cela que dans les déclarations le type de variable de num n'est pas précisé.

A+

 

[momo]

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

Bonjour Job,

je vous joins le fichier excel, avec la macro intégré. En laçant la macro vous verrez l'erreur qu'elle affiche

Merci

 

[job75]

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

Re,

Votre fichier c'est à peu près n'importe quoi :

- l'erreur provient de la valeur d'erreur #N/A en feuille "Issue" cellule A299

- il y a des cellules vides en colonne A des feuilles

- les titres en feuille "Recap" ne vont pas.

A+

 

[momo]

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

Re,

Mort de rire.... Effectivement je vous l'accorde la colonne A est un peu n'importe quoi; mais c'est comme ça que j'ai reçu l'information..

J'essaie de remédier au problèmes que vous avez évoqué et je vous reviens

Vraiment Merci