Discussion :

[admdg]

Bonjour à tous,

Ça fait quelques jours que je bloque sur une formule, je vous explique:
Je reçois un tableau Excel de taille différente (je ne connais pas le nombre de lignes), dont j'ai besoin d'extraire le nombre de "TPE" différents par semaine.

Parce que ce serait trop facile, la colonne où figure les numéros de TPE (type "TPE1501IBS00013", "TPE1501IBS00019" etc.) comprend d'autres références que je ne veux pas prendre en compte.

J'ai commencé par rédiger une formule avec SOMMEPROD qui compte le nombre de TPE dans les bornes de dates correspondantes avec les conditions de sommeprod et la fonction GAUCHE, mais ma formule ne fait que de me compter le nombre de TPE au total or il peut y en avoir une vingtaine avec la même référence, et je souhaiterai ne pas avoir de doublon dans mon résultat final...



Colonne I : dates des références
Colonne B et C : bornes de mes semaines (du 01/01/15 au 07/01/15 par exemple)
Colonne K : références

[eric4459]

Bonjour,
Il me semble que tu t'es trompé de forum à moins que tu ne veuilles créer une macro pour ton tri, tu devrais clore le sujet et poster ici:
http://www.developpez.net/forums/f54...-office/excel/
Par contre si tu as besoin d'aide pour le Vba tu es le bien venu
Eric

[admdg]

Mince en effet ! Je me disais aussi il n'y a pas beaucoup de questions sur Excel-Excel !!

Bon puisque tu me proposes ton aide Eric je me suis mis en tête de résoudre mon problème via VBA

Une âme charitable m'a proposé le code suivant (qui marche nickel, un peu long à se lancer mais je ne vais pas faire la fine bouche)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub NbreDeTPE()
 
    Set plage = Range("K2:K" & Range("K" & 65536).End(xlUp).Row)
    For ln = 2 To Range("B" & 65536).End(xlUp).Row
        Set dico = CreateObject("Scripting.dictionary")
        For Each c In plage
            If c.Offset(0, -2) >= Cells(ln, "B") And c.Offset(0, -2) <= Cells(ln, "C") _
                    And Left(c.Value, 3) = "TPE" Then
                dico(c.Value) = ""
            End If
        Next c
        Cells(ln, "D").Value = dico.Count
    Next ln
 
End Sub

Maintenant je me demandais comment est-ce que je pourrais rajouter une autre référence que "TPE", du genre "RE1". C'est à dire compter le nombre de références TPE et RE1 différentes dans une borne de temps. J'ai essayé comme un newbie de rajouter le code suivant mais les résultats n'ont pas été concluants...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 If c.Offset(0, -2) >= Cells(ln, "B") And c.Offset(0, -2) <= Cells(ln, "C") _
                    And Left(c.Value, 3) = "RE1" Then
                dico(c.Value) = ""
            End If

[eric4459]

Bonjour Admdg,
On va voir ce que l'on peut-faire, mais avant tout quand tu veux poster du code, utilises les balises



et tu va voir c'est magique !!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub NbreDeTPE()
 
Set plage = Range("K2:K" & Range("K" & 65536).End(xlUp).Row)
For ln = 2 To Range("B" & 65536).End(xlUp).Row
Set dico = CreateObject("Scripting.dictionary")
For Each c In plage
If c.Offset(0, -2) >= Cells(ln, "B") And c.Offset(0, -2) <= Cells(ln, "C") _
And Left(c.Value, 3) = "TPE" Then
dico(c.Value) = ""
End If
Next c
Cells(ln, "D").Value = dico.Count
Next ln
 
End Sub

JE vais regarder ton code et te recontacte
Eric

[admdg]

Merci Eric (je viens de baliser mon post précédent

Je te joins un fichier avec un exemple de ce que je voudrais, j'ai rajouté une petite difficulté qui n'est pas prise en compte dans le code présent: la colonne de référence et de date de référence ne sont pas sur la même feuille (feuil2) que celle où je souhaiterais les résultats (feuil1) :/

https://mon-partage.fr/f/65scyKC0/

[eric4459]

Rebonjour,
Voici un code qui a l'air de fonctionner, dis-moi si cela te convient

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Option Explicit
 
Sub Tri_TPE()
Dim TPE As Worksheet
Dim RSLT As Worksheet
Dim NbLigne As Integer
Dim i As Integer
Dim j As Integer
Dim Rng1 As Range
Dim Rng2 As Range
Set RSLT = ThisWorkbook.Sheets("Feuil1")
Set TPE = ThisWorkbook.Sheets("Feuil2")
Set Rng1 = RSLT.Range("A1")
Set Rng1 = Rng1.Offset(0)
Set Rng2 = TPE.Range("K1")
Set Rng2 = Rng2.Offset(0)
 
With TPE
 
      NbLigne = .Cells(.Rows.Count, 11).End(xlUp).Row   ' On compte le nombre de lignes de l'onglet
 
End With
 
 TPE.Range("$I$1:$K$" & NbLigne).RemoveDuplicates Columns:=Array(1, 3) 'on enlève les doublons
 
With TPE
 
      NbLigne = .Cells(.Rows.Count, 11).End(xlUp).Row   ' On compte le nombre de lignes de l'onglet après suppression des doublons
 
End With
 
 
For i = 0 To NbLigne
        If Rng2.Offset(i, 0) Like "*TPE*" Or Rng2.Offset(i, 0) Like "*RE1*" Then ' on recherche les lignes qui contiennent RE1 ou TPE
            For j = 0 To NbLigne
                If Rng2.Offset(i, -2) > Rng1.Offset(j, 1) And Rng2.Offset(i, -2) < Rng1.Offset(j, 2) Then 'Quand la ligne est trouvée on vérifie que la date correspondante ( Rng2.Offset(1, -2) ) est comprise dans
                Rng1.Offset(j, 3) = Rng1.Offset(j, 3) + 1                                                 'la période définie par les colonnes B et C de la feuille 1
                End If                                                                                    ' et on ajoute 1 au compteur colonne D feuille 1
            Next j
        End If
Next i
 
End Sub

Voici ton fichier modifié

Classeur1 v2 Eric.xlsm

Eric