Discussion :

[said78]

Bonsoir à tous,

je sèche sur un programme. je veux compter le nombre d'occurrences différents par mois dans un tableau excel.

mon tableau est composé d'une colonne date et d'une colonne avec les différents occurrences (pomme, banane, pêche, melon, ..).

je cherche à comptabiliser dans une feuille excel dans un autre onglet que mon tableau, le nombre de banane, le nombre de pomme,.. et ceci par mois.

est ce qu'il y a quelqu'un qui pourrait me guider dans la rédaction de ce programme? merci d'avance

voici ci dessous le code j'ai commencé à rédigé mais je n'arrive pas à intégrer le tri par mois, ça ne marche pas, si quelqu'un à une idée?? jsuis preneur..

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
Sub Compteur_DR()
k = 13
z = 7
Dim A, B, C, D, E, F As Integer
 
For I = 1 To 12
A = B = C = D = E = G = 0
 
Sheets("Base").Select
Range("A7").Select
 
Do While Not (IsEmpty(ActiveCell))
 
If Month("A" & z) = I
If Range("F" & z).Value = "Pomme" Then
A = A + 1
ElseIf Range("F" & z).Value = "Banane" Then
B = B + 1
ElseIf Range("F" & z).Value = "Orange" Then
C = C + 1
ElseIf Range("F" & z).Value = "Kiwi" Then
D = D + 1
ElseIf Range("F" & z).Value = "Citron" Then
E = E + 1
ElseIf Range("F" & z).Value = "Fraise" Then
G = G + 1
End If
ActiveCell.Offset(1, 0).Select
z = z + 1
End If
Loop
Sheets("repartition_dr").Select
Cells(k, 3).Value = A
Cells(k, 4).Value = B
Cells(k, 5).Value = C
Cells(k, 6).Value = D
Cells(k, 7).Value = E
Cells(k, 8).Value = G
k = k + 1
' ActiveCell.Offset(1, 0).Select
 
Next
End Sub

[mercatog]

Bienvenu Said au forum,
Tu es sûr qu'un tableau croisé dynamique ne fera pas cela en 2 simples cliques?

[said78]

Bonjour,
oui certainement, mais le fichier va être utiliser par plusieurs personnes, cette macro va me permettre d'éviter des manipulations malheureuses...

[mercatog]

A si Said!
Mais crée ce TCD par macro!!!

exemple dans poste précédent:

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
Dim Plage As Range
Dim DernLig1 As Long
Dim DernLig2 As Long
Dim sht As Worksheet
 
Set sht = Sheets("Feuil2")
DernLig1 = Range("A65536").End(xlUp).Row
DernLig2 = sht.Range("A65536").End(xlUp).Row
 
If DernLig2 >= 19 Then sht.Rows("19:" & DernLig2).EntireRow.Delete  'au cas où aucune donnée n'est inscrite au dessous du TCD
 
Set Plage = Range("A8:E" & DernLig1)
 
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
        SourceData:=Plage).CreatePivotTable _
        TableDestination:=sht.Range("A19"), TableName:="TCD", _
        DefaultVersion:=xlPivotTableVersion10
 
    sht.PivotTables("TCD").AddFields RowFields:="Nom"
    With sht.PivotTables("TCD").PivotFields("Total")
        .Orientation = xlDataField
        .Caption = "Durée Totale"
        .Function = xlSum
        .NumberFormat = "[hh]:mm;@"
    End With
    sht.Activate
Set Plage = Nothing
Set sht = Nothing

Ou simplement crée ton TCD à l'aide de l'enregistreur de macro et adapte!