Somme.si avec un nombre de lignes variables

Bonjour,

Mon problème se rapproche assez de ceux de cette discussion, mais debutant en VBA, j'ai du mal à adapter les solutions à mon cas.

1) Je vais vous exposer mon cas,
2) puis vous montrer mes tentatives.

Dans une feuille excel il ya des données, les intitulés des colonnes sont en ligne 4.

Le nombre de ligne du tableaux sera variabe.

Je souhaite qu'en colonne G, deux cellules sous la derniere cellule du tableau, s'affiche le resultat d'une fonction SUMIF.

Elle regarde les données dans la collone C, le critère est deux cellules sous la derniere cellule de la colonne F, et elle somme les données de la colonne V.

Voilà ma première tentative

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Macro11() ' ' Macro11 Macro   Dim i As String Dim j As Integer i = Range("F5").End(xlDown).Offset(2, 0).Value j = "= SumIf((Range(C5, Selection.End(xlDown).Value);" = " i; (Range(V5,Selection.End(xlDown).Value))" Range("G5").End(xlDown).Offset(7, 0).Value = j   End Sub

---

Mais rien ne se passe du tout.

Code:

---

1 2 3 4 5 6 7

ActiveWorkbook.Names.Add Name:="plage", RefersTo:="=Sheet1!$C$5:$C$" & Range("Activesheet!C5").End(xlDown).Row   ActiveWorkbook.Names.Add Name:="somme_plage", RefersTo:="=Sheet1!$V$5:$V$" & Range("Activesheet!V5").End(xlDown).Row   ActiveCell.Formula = _ "=SUMIF(plage," = " Range(F5).End(xlDown).Offset(2, 0).Value,somme_plage)"

---

Voila, la non plus ca ne marche pas.
Pourriez vous m'aider svp.

Bonsoir,

N'oubliez pas que la touche F1 est votre amie

Rappel de ce que dit l'aide en ligne sur cette fonction

Citation:

---

WorksheetFunction.SumIf, méthode
Ajoute les cellules spécifiées par un critère donné.
Syntaxe

expression.SumIf(Arg1, Arg2, Arg3)

expression Variable représentant un objet WorksheetFunction.

Paramètres

Nom Obligatoire/Facultatif Type de données Description
Arg1 Obligatoire Range Range - plage de cellules qui doit être évaluée par le critère.
Arg2 Obligatoire Variante Criteria 1, criteria 2, … - critères sous forme de nombre, d'expression, de référence de cellule ou de texte, qui définit les cellules à ajouter. Par exemple, les critères peuvent être exprimés sous la forme « 32 », « >32 » ou « pommes ».
Arg3 Facultatif Variante Sum_range - cellules réelles à ajouter si les cellules correspondantes dans la plage correspondent aux critères. Si sum_range est omis, les cellules de la plage sont évaluées par les critères et ajoutées si elles correspondent aux critères.

---

Voici des codes qui fonctionnent correctement

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim MaPlage As Range   Set MaPlage = Range("A1:C" & [A1].End(xlDown).Row)   [B13] = Application.SumIf(MaPlage.Columns(3), 3, MaPlage.Columns(2)) [B14] = Application.SumIf(MaPlage.Columns(3), "=4", MaPlage.Columns(2)) [B15] = Application.SumIf(MaPlage.Columns(3), "=5", MaPlage.Columns(2)) [B16] = Application.SumIf(MaPlage.Columns(3), "=6", MaPlage.Columns(2)) [B20] = Application.SumIf(MaPlage.Columns(3), ">3", MaPlage.Columns(2)) [B21] = Application.SumIf(MaPlage.Columns(3), ">3")   Set MaPlage = Nothing

---

__________________
Cordialement
Albert

Merci ça fonctionne pas mal, encore une question,
quelle est la syntaxe pour que le critère soit la valeur d'une cellule qui peut changer de ligne.

Code:

---

1 2 3 4

Dim MaPlage As Range Set MaPlage = Range("C5:V" & [C5].End(xlDown).Row) [AA1] = Application.SumIf(MaPlage.Columns(1), "=01A", MaPlage.Columns(20))

---

Ok pour ca.

Code:

---

[AA1] = Application.SumIf(MaPlage.Columns(1), " = " Range(F5).End(xlDown).Offset(2, 0).Value, MaPlage.Columns(20))

---

Ca c'est pas bon... une idée

Bonsoir,

Citation:

---

quelle est la syntaxe pour que le critère soit la valeur d'une cellule qui peut changer de ligne.

---

Touche F1 - Rappel de ce que vous dit l'aide en ligne ?

Citation:

---

Arg2 Obligatoire Variante Criteria 1, criteria 2, …
- critères sous forme de nombre, d'expression, de référence de cellule ou de texte, qui définit les cellules à ajouter.
Par exemple, les critères peuvent être exprimés sous la forme « 32 », « >32 » ou « pommes ».

---

Donc

Code:

---

1 2 3 4 5 6

Dim Rng As Range   Set Rng = [C2]   [C13] = Application.SumIf(MaPlage.Columns(3), [C2], MaPlage.Columns(2)) [D13] = Application.SumIf(MaPlage.Columns(3), Rng, MaPlage.Columns(2))

---

______________
Cordialement
Albert

Bonjour,

Code:

---

1 2 3

Dim MaPlage As Range Set MaPlage = Range("C5:V" & [C5].End(xlDown).Row) [AA1] = Application.SumIf(MaPlage.Columns(1), "=01A", MaPlage.Columns(20))

---

Après une lecture attentive de l'aide en ligne et un peu de réflexion vous
pouviez optimiser votre code

Pourquoi créer un tableau de 20 colonnes

Rappel de l'aide ligne

Citation:

---

Arg1 - plage de cellules qui doit être évaluée par le critère.
Arg3 Sum_range - cellules réelles à ajouter
si les cellules correspondantes dans la plage correspondent aux critères

---

alors que 2 plages suffisent

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim ColCritere As Range, ColSum As Range, Rng As Range Dim DerLgn As Long, Total As Double   DerLgn = Range("C" & Rows.Count).End(xlUp).Row   Set ColCritere = Range("C5:C" & DerLgn) Set ColSum = Range("V5:V" & DerLgn) Set Rng = [C2]   Total = Application.SumIf(ColCritere, Rng, ColSum)

---

________________
Cordialement
Albert