Discussion :

[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 :

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

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 :

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

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 :

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

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 :

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

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 :

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

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