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

M

momo

XLDnaute Occasionnel

• 1 Juin 2015

• #16

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!!!

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juin 2015

• #17

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.

momo à dit:

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

Je vais faire attention à me faire comprendre next time

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

M

momo

XLDnaute Occasionnel

• 1 Juin 2015

• #18

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

 

Vote positif 0 Vote négatif

M

momo

XLDnaute Occasionnel

• 1 Juin 2015

• #19

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?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juin 2015

• #20

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 :

Code:

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+

 

Pièces jointes

• Recherches sur plusieurs onglets et récap(2).xlsm

  25.1 KB · Affichages: 25

Dernière édition: 1 Juin 2015

Vote positif 0 Vote négatif

M

momo

XLDnaute Occasionnel

• 1 Juin 2015

• #21

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

Je ne sais comment vous dire Merci!!!

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Juin 2015

• #22

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+

 

Vote positif 0 Vote négatif

M

momo

XLDnaute Occasionnel

• 2 Juin 2015

• #23

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

 

Dernière édition: 2 Juin 2015

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Juin 2015

• #24

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+

 

Pièces jointes

• Recherches sur plusieurs onglets et récap-critère ET(1).xlsm

  25.1 KB · Affichages: 17
• Recherches sur plusieurs onglets et récap-critère NI(1).xlsm

  24.5 KB · Affichages: 19

Vote positif 0 Vote négatif

M

momo

XLDnaute Occasionnel

• 2 Juin 2015

• #25

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!!!!

 

Vote positif 0 Vote négatif

M

momo

XLDnaute Occasionnel

• 12 Août 2015

• #26

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Août 2015

• #27

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+

 

Vote positif 0 Vote négatif

M

momo

XLDnaute Occasionnel

• 12 Août 2015

• #28

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

 

Pièces jointes

• reconciliation.xlsm

  263.4 KB · Affichages: 31

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Août 2015

• #29

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+

 

Vote positif 0 Vote négatif

M

momo

XLDnaute Occasionnel

• 12 Août 2015

• #30

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

 

Vote positif 0 Vote négatif