Discussion :

[sariel]

Bonjour,

Je voudrais utiliser une formule matricielle dans une procédure VBA, mais que cette formule matricielle produise son résultat dans une variable et non dans une cellule Excel.
Je ne veux donc pas utiliser la formule type :

Code :

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

selection.formulaarray =  "=SUM(IF(R[-12]C[-1]:R[-3]C[-1]=""vélo"",R[-12]C[2]:R[-3]C[2]))"

mais une formule du type :

Code :

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

maVariable = somme(si(maPlage1 = « vélo », maPlage2)

Est ce possible, et si oui, comment procéder ?

D’avance, je vous remercie

[wilfried_42]

bonjour

une petite astuce

tu fais ta formule matricielle, tu la mets dans une cellule, elle se calcul, et tu recuperes son resutat dans ta variable

ex :

Code :

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

1
2
3
selection.formulaarray = "=SUM(IF(R[-12]C[-1]:R[-3]C[-1]=""vélo"",R[-12]C[2]:R[-3]C[2]))"
mavariable = selection.value
selection.clear

maintenant, en ayant regardé plus profondemment la formule, c'est un somme.si tout simple

Donc : application.worksheetfunction

Code :

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

mavaleur = Application.WorksheetFunction.SumIf(Range("A1:A12"), "Velo", Range("B1:B12"))

Bonne soiree

[LeForestier]

Bonjour et bienvenue sur le forum
c'est possible..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub MyMacro()
Dim Plage1 As Range
Dim plage2 As Range
Dim Plage3 As Range
Dim Cell As Range
Dim Total
Set Plage1 = "A1:A10"
Set plage2 = "B1:B10"
Set Plage3 = "C1:C10" 'plage de test
 
    Plage3.Select
    For Each Cell In Selection
        If Cell.Text = "Vélo" Then
            'Trouvé "Vélo"
            plage2.Select
            GoTo suite1
        End If
    Next
    'Pas trouvé "Vélo"
    plage2.Select
suite1:
    For Each Cell In Selection
        Total = Total + Cell.Value
    Next
End Sub

Si c'est cela que tu cherche...
A+

[Qwazerty]

SAlut et bienvenu
[Edit]
Je suis un peu lent ce soir [/Edit]
Je suppose que cela est possible mais pas en utilisant les formulation Excel, mais je peux faire erreur.
Pour ma part je ferais ainsi

Code :

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

1
2
3
4
5
6
7
8
9
Dim CelTest As Range
Dim Total As Integer
'Selection.FormulaArray = "=SUM(IF(R[-12]C[-1]:R[-3]C[-1]=""vélo"",R[-12]C[2]:R[-3]C[2]))"
 
Total = 0
For Each CelTest In Range(Selection.Offset(-12, -1), Selection.Offset(-3, -1))
    If CelTest.Value = "vélo" Then Total = Total + CInt(CelTest.Offset(0, 3).Value)
Next
Selection.Value = Total

A++
Qwaz