vba matricielles

porcinet82

XLDnaute Barbatruc

• 21 Août 2007

• #2

Re : vba matricielles

Salut,

Je ne suis pas un spécialiste des tablo, mais il me semble bien que tu as la réponse dans ta question. WorksheetFunction permet d'utiliser les fonctions des feuilles de calculs (c'est à dire via un Range ou quelque chose du genre), or dans ton cas, tu veux l'utiliser pour un Array...
Je pense qu'il faut boucler sur le tablo pour pouvoir faire ce que tu souhaites...
Mais peut etre qu'un spécialiste aura une autre solution à t'aaporter !

@+

 

Vote positif 0 Vote négatif

H

Hoareau

XLDnaute Occasionnel

• 21 Août 2007

• #3

Re : vba matricielles

c'est justement ce que je cherche par quoi remplacer Worsheetfunction pour avoir le nombre de valeurs entre deux plages de MyArray_1

MyArray_1 este en mémoire pas de référence sur la feuille

 

Vote positif 0 Vote négatif

S

smotty

XLDnaute Occasionnel

• 21 Août 2007

• #4

Re : vba matricielles

bonjour,

Tu peux utiliser worksheetfunction.sum pour un tableau mais tu ne peux pas utiliser de critères.
ce que tu as essayé peut fonctionner avec "sumif" mais via un range uniquement. donc je pense également que la meilleure solution est la boucle

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 21 Août 2007

• #5

Re : vba matricielles

re,

je dirai un truc de ce genre :

Code:

Sub test_mat_array()
Dim i As Integer
Array_1 = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
For i = 0 To UBound(Array_1)
    If Array_1(i) >= 1 And Array_1(i) <= 5 Then test_2 = test_2 + Array_1(i)
Next i
MsgBox "total " & test_2
End Sub

@+

 

Vote positif 0 Vote négatif

H

Hoareau

XLDnaute Occasionnel

• 21 Août 2007

• #6

Re : vba matricielles

Merci pour la solution proposée mais je ne voulais pas de boucle, le tableau est déjà dans une boucle, et les valeurs changent à chaque fois.
c'est pour cela que je cherchais une fonction.

Andrew Poulsom
MrExcel MVP

M'as donné ce code, si cela peut servir a quelqu'un d'autre

Sub test_mat_array()
With ActiveWorkbook
.Names.Add Name:="ArrTemp", RefersToR1C1:="={1,2,3,4,5,6,7,8,9,10}"
.ActiveSheet.Cells(1, 1).Value = Evaluate("=SUMPRODUCT(--(ArrTemp>=1),--(ArrTemp<=5))")
.Names("ArrTemp").Delete
End With
End Sub

 

Vote positif 0 Vote négatif

H

Hoareau

XLDnaute Occasionnel

• 21 Août 2007

• #7

Re : vba matricielles

ActiveSheet.Cells(1, 1).Value = Evaluate("=SUMPRODUCT(--(ArrTemp>=1),--(ArrTemp<=5))")



sera remplacé par :
Résult=Evaluate("=SUMPRODUCT(--(ArrTemp>=1),--(ArrTemp<=5))")

 

Vote positif 0 Vote négatif