Formule matricielle pour une variable

Version imprimable

10/01/2008, 19h02
sariel

Formule matricielle pour une variable

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:

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:

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

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

D’avance, je vous remercie
10/01/2008, 19h25
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:

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:

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

Bonne soiree

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

Code:

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+

SAlut et bienvenu
[Edit]
Je suis un peu lent ce soir :D[/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:

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