Discussion :

[arnold95]

Bonsoir à tous,
J'ai un souci avec la fonction sum if, et j'ai regardé sur le forum mais je n'ai pas trouvé la réponse à ma question.
Voici la fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
sub macro()
 
l = Sheets("feuille2").Cells.SpecialCells(xlCellTypeLastCell).Column
m = Worksheets("feuille2").Cells(Cells.Rows.Count, "B").End(xlUp).Row
 
For i = 6 To m
Worksheets("feuille1").Cells(i, 9) = "=SUMIF('feuille2'!" & Range(Cells(6, 13), Cells(k, l)) & ",'feuille1'!" & Cells(i, 2) & ",'feuille2'!" & Range(Cells(6, l), Cells(k, l)) & ""
next
 
End sub

Merci et bonne soirée

[Invité]

Bonjour

Pour affecter à une cellule il faut utiliser la propriété Formula ou FormulaLocal suivant le cas.

Un petit coup sur la touche et une recherche sur le forum te donnera les informations nécessaires.

Starec

[arnold95]

Oui c'est ce que j'avais fait au début mais j'avais quand même une erreur d'execution c'est pour çà que je ne comprends pas...

[Commodore]

Si tu utilises Formula => formule en anglais
Si tu utilises FormulaLocal => Formule en français

Sinon, tu as aussi l'option FormulaR1C1 pour un adressage relatif.

Si après ça tu as encore une erreur, c'est ta formule qu'il faudra revoir.

[LeForestier]

Bonjour,
J'ai fait quelques essais et constaté..
Ajouter Adress, sinon c'est la valeur de la cellule qui est prise en compte
et quand c'est la valeur de la cellule qu'il faut, en string ce n'est pas supporté

Code :

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

1
2
3
Range(Cells(6, 13), Cells(8, 20)).Address
'et
Val(Range(Cells(6, 13), Cells(8, 20)).text)

Le SUMIF n'a pas fonctionné mais avec

Code :

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

1
2
3
sheets("Feuil1").select
cells(X,Y).select
ActiveCell.FormulaLocal = "=SOMME.SI(

Sur l'aide, ca fonctionne mais je n'ai pas réussi a adapter le critère avec autre chose qu'une comparaison chiffrée.

Code :

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

1
2
    Cells(5, 12).Select
    ActiveCell.FormulaLocal = "=SOMME.SI(A1:A4;"">160"";B1:B4)"

Je crois quil faudra soit passer par une macro, soit décomposer la fonction
a moins que d'autres aient une solution.

A+
EDIT:
Ca ne m'étonne pas que je ne suis pas parvenu à définir le critère....

critère représente le critère, exprimé sous forme de nombre, d'expression ou de texte, qui détermine les cellules à compter. Par exemple, l'argument critère peut être exprimé sous une des formes suivantes : 32, « 32 », « >32 » ou « pommes ».

[arnold95]

Ok merci,
en faisant cette commande çà marche:

Code :

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

Worksheets("feuille1").Cells(i, 9).Formula="=Worksheets("feuille1").Cells(i, 9)+ SUMIF('feuille2'!" & Range(Cells(6, 13), Cells(k, l)).Address & ",'feuille1'!" & Cells(i, 2).Address & ",'feuille2'!" & Range(Cells(6, l), Cells(k, l)).Address & ")"

Merci beaucoup de votre aide