SOMME.SI avec variables comme ligne [Résolu]

[novice06000]

Bonjour le Forum

Comme mon pseudo l'indique je suis novice en VBA et j'ai besoin d'aide.

Pour mon boulot, je dois à partir d'un tableau, qui peut avoir un nombre de lignes variables en fonction d'une période sélectionnée, créer un autre tableau pour en sortir un graphique (mais je ne veux utiliser un tableau croisé dynamique)
J'ai créé une macro avec somme.si qui fonctionne tres bien avec une période donnée.
mais c'est la cata quand je veux introduire une variable
j'ai essayé ca (et d'autres choses) :
ActiveCell.Formula = "=SUMIF(D2 & lignes1;J & k;E2:E & lignes1)"

Je joins un extrait de mon fichier
Merci pour votre aide

[Daniel.C]

Bonjour et bienvenue,

Pour les formules de la colonne K, utilise la macro suivante. Son avantage est de ne pas comporter de boucle. C'est le seul avantage d'utiliser les formules de type R1C1. Il y a sans doute beaucoup de choses que tu ne comprends pas. N'hésite pas à poser des questions.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 14/12/2011 par eguarnie
'
 
'
    With Sheets("Feuil1")
        Set plage = .Range(.[J2], .Cells(.Rows.Count, 10).End(xlUp)).Offset(, 1)
        plage.FormulaR1C1 = "=SUMIF(RC[-7]:R[4]C[-7],RC[-1],RC[-6]:R[4]C[-6])"
    End With
End Sub

[novice06000]

Merci Daniel C pour ta réponse rapide.
Tu penses je viens de tester !
Je me suis peut être mal expliqué . Avec ta macro je trouve en :

Code :

1
2
3
K2 : =SOMME.SI(D2:D6;J2;E2:E6)
K3 : =SOMME.SI(D3:D7;J3;E3:E7)
K4 : =SOMME.SI(D4:D8;J4;E4:E8)

etc
alors que je souhaite

Code :

1
2
3
K2 : =SOMME.SI(D2:D"lignes1";J2;E2:E"lignes1")
K3 : =SOMME.SI(D2:D"lignes1";J3;E2:E"lignes1")
K4 : =SOMME.SI(D2:D"lignes1";J4;E2:E"lignes1")

etc ou lignes1 est le nombre variable de lignes que je trouve dans mon tableau initial.
C'est mieux expliqué ??

[Daniel.C]

Non, tu avais bien exposé ton problème. J'ai péché par excés de confiance. Essaie :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 14/12/2011 par eguarnie
'
 
'
    With Sheets("Feuil1")
        Set plage = .Range(.[J2], .Cells(.Rows.Count, 10).End(xlUp)).Offset(, 1)
        plage.FormulaR1C1 = "=SUMIF(R2C4:R6C4,RC[-1],R2C5:R6C5)"
    End With
End Sub

[novice06000]

Re merci
C'est presque ca !
Sauf que si une ligne est ajouté dans mon tableau initial (ligne7) le calcul se fait toujours sur la ligne 6 et donc je rate une information !

[Daniel.C]

Il suffisait de le dire

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 14/12/2011 par eguarnie
'
 
'
    Dim DerLigne As Long, Plage As Range
    With Sheets("Feuil1")
        DerLigne = .Cells(.Rows.Count, 3).End(xlUp).Row
        Set Plage = .Range(.[J2], .Cells(.Rows.Count, 10).End(xlUp)).Offset(, 1)
        Plage.FormulaR1C1 = "=SUMIF(R2C4:R" & DerLigne & "C4,RC[-1],R2C5:R" & DerLigne & "6C5)"
    End With
End Sub

[novice06000]

yes !!
je stagnais sur cette formule :

Code :

Plage.FormulaR1C1 = "=SUMIF(R2C4:R" & DerLigne & "C4,RC[-1],R2C5:R" & DerLigne & "6C5)"

je ne savais pas trop ou mettre les "
Euh ! le 6 n'est pas en trop là : DerLigne & "6C5

en tout les cas un grand merci
Comment fait on pour clore le sujet ??

[Daniel.C]

Euh ! le 6 n'est pas en trop là : DerLigne & "6C5

Et si !

Pour clore le sujet ? Je n'ai posé qu'une question. Je crois qu'il y a un bouton, en bas à droite.