Synthèse avec 2 critères (sans doublons)

H

homepyrof53

XLDnaute Occasionnel

• 4 Octobre 2013

• #2

Re : Synthèse avec 2 critères (sans doublons)

Bonjour

Voici une macro

Code:

Sub essai()
Dim Tab_Datas
Set Tab_Datas = CreateObject("scripting.dictionary")
'  date,nbligne,nbanomalie

With Feuil1
    l = 2
    While .Cells(l, 1) <> ""
        cle = Trim(.Cells(l, 1))
        d1 = .Cells(l, 6)
        tmp1 = 0
        If .Cells(l, 7) = "O" Then tmp1 = 1
        If Tab_Datas.exists(cle) = False Then
            Tab_Datas(cle) = Array(d1, 1, tmp1)
        Else
            tmp = Tab_Datas(cle)
            tmp(0) = d1
            tmp(1) = tmp(1) + 1
            tmp(2) = tmp(2) + tmp1
            Tab_Datas(cle) = tmp
        End If
    
        l = l + 1
    Wend
End With
'====================================
'      ecriture resultat
'====================================
Feuil2.Select
l = 2
For Each cle In Tab_Datas
    Cells(l, 1) = cle
    tmp = Tab_Datas(cle)
    Cells(l, 2) = tmp(0)
    Cells(l, 3) = tmp(1)
    Cells(l, 4) = tmp(2)
    l = l + 1
Next


End Sub

 

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 4 Octobre 2013

• #3

Re : Synthèse avec 2 critères (sans doublons)

Bonjour tounsy, le forum
le filtre avancé va te permettre de faire précisément ce que tu recherches!!!

Avec une petite macro ça fait ce que tu veux... 😉 dis moi si ça te va!

 

Pièces jointes

• SyntheseVisites titiborregan.xls

  86 KB · Affichages: 32

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 5 Octobre 2013

• #4

Re : Synthèse avec 2 critères (sans doublons)

Bonjour,
Une autre méthode : par formules
Tu as le choix entre deux tableaux (plus ou moins complets)
1 formule matricielle dans le 1er tableau, 2 dans le deuxième.

 

Pièces jointes

• SyntheseVisitesTounsy.xlsx

  22.1 KB · Affichages: 50

Vote positif 0 Vote négatif

T

tounsy

Guest

• 7 Octobre 2013

• #5

Re : Synthèse avec 2 critères (sans doublons)

C'est parfait, merci à toutes et à tous pour votre aide !😀😀

 

Vote positif 0 Vote négatif

T

tounsy

Guest

• 7 Octobre 2013

• #6

Re : Synthèse avec 2 critères (sans doublons)

La macro de titiborregan semble le plus correspondre à mes besoins :

Sub f()
With Sheets(3)
'.Range("a10").CurrentRegion.Clear
.Range("a1") = "Etabliss."
.Range("b1") = "Date contrôle aide"
.Range("c1") = "Nbre de ligne"
.Range("d1") = "Nbre de ligne en anomalie"


Sheets(1).Range("a1").CurrentRegion.AdvancedFilter xlFilterCopy, , .Range("a1:b1"), True
For j = 2 To Sheets(1).Range("a65000").End(xlUp).Row
Sheets(1).Cells(j, 9) = Sheets(1).Cells(j, 1) & Sheets(1).Cells(j, 6)
Sheets(1).Cells(j, 10) = Sheets(1).Cells(j, 1) & Sheets(1).Cells(j, 6) & Sheets(1).Cells(j, 7)

Next
For i = 2 To Range("a65000").End(xlUp).Row
'mettre macro nombre.si.ens

r = .Cells(i, 1) & .Cells(i, 2).Value
s = .Cells(i, 1) & .Cells(i, 2).Value & "O"
t = .Cells(i, 1) & .Cells(i, 2).Value & .Cells(i, 3).Value
.Cells(i, 3) = Application.CountIf(Sheets(1).Range("i:i"), r)
.Cells(i, 4) = Application.CountIf(Sheets(1).Range("j:j"), s)
Next
Sheets(1).Range("i:j").ClearContents

End With

End Sub


En revanche, je souhaite la faire évoluer (en rajoutant des colonnes) mais j'ai du mal à comprendre ce qu'elle fait...
J'ai cru comprendre qu'il s'agissait de concaténer des cellules dans les colonnes I et J mais je ne comprends pas du tout ce code😕

Quelqu'un pourrait-il me l'expliquer ?

Merci encore !😀

 

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 7 Octobre 2013

• #7

Re : Synthèse avec 2 critères (sans doublons)

Re,
effectivement j'ai concaténé afin de faire des recherches avec plusieurs critères... (en 1er etablissement et date et en 2ème établissement date et N pour faire les sommes...)

Quelles colonnes souhaites tu rajouter?
Connais-tu le filtre avancé? (utilisé en 1ère partie de macro via le advancedfilter!)

 

Vote positif 0 Vote négatif

T

tounsy

Guest

• 8 Octobre 2013

• #8

Re : Synthèse avec 2 critères (sans doublons)

merci pour ton retour ;-)
En faite j'ai 2 lignes que je n'arrive pas à comprendre :
.Range("a10").CurrentRegion.Clear ' tu effaces quoi exactement ?
et
Sheets(1).Range("a1").CurrentRegion.AdvancedFilter xlFilterCopy, , .Range("a10:b10"), True 'Tu fais quoi là exactement ?

Merci encore !

 

Vote positif 0 Vote négatif

T

titiborregan5

XLDnaute Accro

• 8 Octobre 2013

• #9

Re : Synthèse avec 2 critères (sans doublons)

Re,
currentregion équivaut à Ctrl+*, ce qui permet de sélectionner un tableau complet (essaie ce sera plus parlant).

La 2ème ligne correspond à un filtre avancé (très pratique).

Renseigne toi sur le filtre avancé après ce sera plus simple!

 

Vote positif 0 Vote négatif

T

tounsy

Guest

• 8 Octobre 2013

• #10

Re : Synthèse avec 2 critères (sans doublons)

titiborregan5 à dit:

Re,
currentregion équivaut à Ctrl+*, ce qui permet de sélectionner un tableau complet (essaie ce sera plus parlant).

La 2ème ligne correspond à un filtre avancé (très pratique).

Renseigne toi sur le filtre avancé après ce sera plus simple!

Cliquez pour agrandir...

Super, merci bcps titiborregan5 pour tes explications ^^

 

Vote positif 0 Vote négatif