Discussion :

[Commodore]

Bonsoir à tous,

j'ai un petit probleme avec l'utilisation de WorksheetFunction...

la formule que je veux mettre en oeuvre est la suivante (dans une cellule)

Code :

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

1
2
 
=+SOMME.SI('Tab vendors'!$A:$A;datas!$D2098;'Tab vendors'!$C:$C)

j'ai essayé ceci mais ça ne prend pas:

Code :

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

1
2
 
range("C65000").value = Application.WorksheetFunction.SumIf('Tab vendors'!$A:$A;datas!$D2097;'Tab vendors'!$C:$C)

le but est de pouvoir inscrire le resultat d'une formule "en dur" dans la cellule... sans passer par un copier valeurs par dessus la formule...

n'hésitez pas a demander des précisions si vous pensez que je n'ai pas été clair

Psy

[SilkyRoad]

bonjour

Tu peux tester

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Plage As Range
Dim Critere As Variant
Dim somme_plage As Range
 
Set Plage = Worksheets("Tab vendors").Columns(1)
Critere = Worksheets("datas").Range("D2097").Value
Set somme_plage = Worksheets("Tab vendors").Columns(3)
 
Range("C65000").Value = _
    Application.WorksheetFunction.SumIf(Plage, Critere, somme_plage)

michel

[Commodore]

solution testée et approuvée !

merci