[XL-2010] extraire données pour synthèse

1 pièce(s) jointe(s)

extraire données pour synthèse

bonjour,

je cherche à récupérer( sur la feuille synthèse l'ensemble des données des colonnes A et B des 3 onglets selon deux critères:
1) le mois
2) si sur la colonne du mois le chiffre est supérieur à 0.

et si possible en séparant agents catégorie A et agents catégorie B.
je bloque sur la macro
merci de votre aide
Pièce jointe 206446

tseoy

Salut,

tu peux essayer cette procédure.
NB: je n'ai pas super testé, il faut adapter!
Cordialement,

Code:

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
44
45
Sub analytique2()
    ' variables objet
    Dim shData As Worksheet
    Dim shSynthese As Worksheet
    Dim rngMois As Range
    ' variables
    Dim iNbLignes As Integer
    Dim i As Integer
    Dim iCurrentLineDest As Integer
    Dim iIdxCol As Integer
    Dim sMois As String
    Dim varChiffre As Variant
 
    ' init
    Set shData = Worksheets("group 1")
    Set shSynthese = Worksheets("synthese")
 
    ' lire le mois
    sMois = InputBox("quel mois voulez-vous extraire")
 
    ' lire le num colonne
    Set rngMois = shData.UsedRange.Find(sMois)
    If Not rngMois Is Nothing Then
        iIdxCol = rngMois.Column
    Else
        Exit Sub
    End If
 
    ' parcourir la plage
    iNbLignes = shData.UsedRange.Rows.Count
    i = 4
    iCurrentLineDest = 1
    Do While i <= iNbLignes
        'lire le chiffre
        varChiffre = shData.Cells(i, iIdxCol)
        If IsNumeric(varChiffre) Then
            If varChiffre > 0 Then
                shSynthese.Cells(iCurrentLineDest, 1) = shData.Cells(i, 1)
                shSynthese.Cells(iCurrentLineDest, 2) = shData.Cells(i, 2)
                iCurrentLineDest = iCurrentLineDest + 1
            End If
        End If
        i = i + 1
    Loop
End Sub

merci beaucoup
je vais adapter à mon fichier
cordialement
tseoy