Discussion :

[deaqu1]

Re Bonjour ou bonsoir

De nouveau, je fais appel à vous...
Petit bug -> Erreur de compilation: incompatibilté de type en indiquant ma 2éme fonction SumIf.
Est que je ne peux mettre 2 fonctions de suite ou...?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'Boucle sur la collection DATE
For z = 1 To Zero.Count
   'Boucle sur la collection REFERENCE
    For j = 1 To Un.Count
    'Effectue la somme en fonction du critère (SOMME.SI)
        Worksheets("Feuil2").Cells(j + 1, z + 1) = _
            Application.WorksheetFunction.sumIf( _
            Application.WorksheetFunction.sumIf( _
            Plage, Un(j), SommePlage), _
            Plage, Zero(z), DatePlage)
    Next j
Next z

Individuellement ça à l'air de fonction mais que je les regroupe...

[SfJ5Rpw8]

peu-être qu'en décomposant ton code et en passant par des variables intermédiaires .. il sera plus lisible et l'erreur sera plus facile à cerner...

[deaqu1]

J'ai suivi ton petit conseil, et j'ai fait dans la la simplicité boucle If/EndIf et For/Next...Ca marche niquel
Par contre, je trouve mon code un peu indigeste et barbare...Ca marche trés bien mais aprés si mes boucles se ralonge en testant 1000ref, j'ai peur pour le temps d'execution.

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
for z = 1 To Un.Count 'Teste toutes les reférences dans ma collection Référence
    For t = 1 To Zero.Count 'Teste toutes les reférences dans ma collection Date
        buffer = 0
        Worksheets("Feuil2").Cells(z + 1, t + 1) = 0
        For u = 1 To i 'teste toute ma bibliothéque contenant des reférences
        'à date d'échéance diverse
            If (Worksheets("Feuil1").Range("E" & u + 1) = Un(z)) _
            And (Worksheets("Feuil1").Range("k" & u + 1) = Zero(t)) Then
                buffer = Worksheets("Feuil2").Cells(z + 1, t + 1)
                Worksheets("Feuil2").Cells(z + 1, t + 1) = buffer + _
                Worksheets("Feuil1").Range("I" & u + 1)
            End If
        Next u
    Next t
Next z

Si y a moyen de le comprimer, d'utiliser des requetes SQL...
Toute aide est la bien venue...

[Invité]

Bonjour

Pour utiliser du SQL avec Excel lie ce tuto de Silkyroad

http://silkyroad.developpez.com/VBA/ClasseursFermes/

Je l'ai testé en mettant mon fichier Excel comme destinataire, mais attention tes feuilles doivent être structurées comme des tables.

Starec

[deaqu1]

J'ai regardé avec attention le lien...
C'est en effet trés interressant...Je pense que le RechercheV fera mon bonheur, par contre j'aimerais pour en combiner deux à la fois et la je calle.

Code :

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

1
2
Worksheets("Feuil2").Cells(z + 1, t + 1) = Application.WorksheetFunction.VLookup _
(Un(t), Range("e2:k20"), 5)

Dans ce cas là, il me fait la somme des valeurs qui sont dans la colonne 5 de ma matrice qd mon arg1=arg2, mais je voudrais mettre une condition supplémentaire arg3=arg4 comme un OU EXCLUSIF...

Faire une somme pour un article déterminé & une date spécifiée

Merci