SOMME.SI avec variables comme ligne

Version imprimable

14/12/2011, 11h43
novice06000

1 pièce(s) jointe(s)

SOMME.SI avec variables comme ligne

Bonjour le Forum

Comme mon pseudo l'indique je suis novice en VBA :oops: 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:D & lignes1;J & k;E2:E & lignes1)"

Je joins un extrait de mon fichier
Merci pour votre aide

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

14/12/2011, 12h57
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é ??

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

14/12/2011, 14h52
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 !

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

14/12/2011, 15h35
novice06000

:ccool: 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 ??
14/12/2011, 16h10
Daniel.C

Citation:

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.