Discussion :

[lucien(67)]

Bonsoir,

Mon problème est le suivant dans un classeur excel de 13 feuilles (12 pour les mois et une pour la récap) je dois regrouper des données par semaine sur la récap.J'ai donc en préalable sur chaque feuille mensuelle regroupé les semaines du mois (ex janv 2012 semaine 1 à 5), or en février j'ai encore quelques jours de la semaine 5. Le fait d'avoir la même semaine sur deux feuilles me pose problème.
Mon raisonnement était de lancer un hlookup sur toutes les feuilles afin d'additionner les données de la semaine ciblée, mais dans mes feuilles mensuelles je renseigne au fur et à mesure les données et les dates(afin d'éviter les dimanches et jours fériés). Quand hlookup tombe sur une case avec une erreur ou vide, j'ai une erreur dans le déroulement de la boucle.
J'ai essayé différentes instructions pour éviter cette erreur, mais rien n'y fait.
Mes notions de VBA ne me permettent pas d'aller plus loin.
Si quelqu'un pouvait me mettre sur la bonne voie,afin que je puisse résoudre ce problème.
Merci d'avance
Lucien

[Daniel.C]

Bonsoir,

Poste ton code et la disposition de tes données.

[lucien(67)]

Bonsoir,
Merci de l'intérêt que vous portez à ma demande
Voici mon code

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
Sub donnees()
For ligne = 3 To 55
 Sheets("Données").Select
 se = Cells(ligne, 1).Value
For i = 1 To 12
    If i < 10 Then mois = "0" & i
    feuil = "TraficR" & mois
 
 
        For col = 3 To 7
 
        If Worksheets(feuil).Cells(35, col).Value <= se Then
        Set tableau = Worksheets(feuil).Range("C35:G43")
        CE1 = Application.WorksheetFunction.HLookup(se, tableau, 2, False)
        CE = CE + CE1
        Else:
 
        End If
        Next col
Next
Next
End Sub

Cordialement

[Daniel.C]

Pas sûr que ce soit juste. Pourrais-tu donner les résultats de la feuille Données pour la semaine 1 :

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 test()
    Dim Sh As Worksheet, c As Range
    With Sheets("Données")
        For Each Sh In Worksheets
            If Sh.Name <> "Données" Then
                For Each c In Sh.[D5:R31]
                    sem = Application.WeekNum(Sh.Cells(c.Row, 3))
                    If IsNumeric(c.Value) Then
                        .[A2].Offset(sem, c.Column - 3) = .[A2].Offset(sem, c.Column - 2) + c.Value
                    End If
                Next c
            End If
        Next Sh
    End With
End Sub

[lucien(67)]

Un grand merci Daniel, votre code marche à merveille

Cordialement

Lucien