Range non contigue pour un Arguments Fonction VBA

Bonjour,
tout d'abord merci a Developpez.com et ses contributeurs qui mon grandement aidé en regle general, sans que je n'ai besoin de poser de question.

Je me trouve aujourd'hui bloqué pour la création d'une fonction personnalisée a utiliser dans une feuille de calcul.
la fonction exemple ci-dessous fonctionne tres bien :

Code:

---

1 2 3 4 5

Function Test(X As Range, Y As Range)   Test = Application.WorksheetFunction.Sum(X, Y)   End Function

---

mon probleme :
lorsque les cellule sont contigue, et que j'ai bien un range tout ce passe bien.
comment faire pour utiliser des cellules non contigues, sachant que X et Y doivent etre deux serie differentes d'un meme nombre de valeurs.

si vous avez quelques lumiere pour savoir ce qu'il faudrait definir en argument (autre chose qu'un Range?)
merci d'avance
:D

Salut,

Une idée

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Option Explicit   Function Test3(X As Range, Y As Range, Z As Range) As Integer   Dim plage   Test3 = 0   For Each plage In Array(X, Y, Z) Test3 = Test3 + Application.WorksheetFunction.Sum(plage) Next plage   End Function

---

Euh chez moi ta fonction marche bien...
Même si les valeurs ne sont pas contigues :

Citation:

---

X = Test(Range("B67"), Range("B71"))

---

Citation:

---

=Test(B66;B72)

---

Citation:

---

X = Test(Range("B67:B69"), Range("D83:E86"))

---

etc

Bonjour,

pour commencer, sauf erreur de compréhension .... ta fonction perso fait simplement un SOMME(Plage1,Plage2) non ? :weird:

pour le fun maintenant.
ParamArray te permet d'envoyer autant d'arguments que tu veux

Code:

---

1 2 3 4 5

Function Test(ParamArray MesPlage() As Variant) For i = LBound(MesPlage) To UBound(MesPlage) Test = Test + Application.Sum(MesPlage(i)) Next i End Function

---

Du coup, tu peux inclure autant de plages dans ta formule

Citation:

---

=Test(A1:A3;A5;A8)

---

fera la somme de toutes les cellules indiquées... comme le ferait la fonction SOMME()


Et si tu fais =Test() tu obtiens 0 car y'a aucune plage à additionner
(idem, si ce sont pas des chiffres, ça ne plante pas)


Alors, qu'ai-je loupé dans ton descriptif ?


PS :
Al__22, je pense que ton test n'est pas conforme à son besoin, si je comprend ce qu'il veut (j'en doute encore...)
Certes, tu additionnes deux plages non contiguës, mais les cellules de chacune de tes deux plages sont toutes contiguës. Lui, si j'ai bien compris, il veut pouvoir envoyer une plage avec des cellules éparpillées

Merci a tous pour les réponses.

Citation:

---

Envoyé par joe.levrai

pour commencer, sauf erreur de compréhension .... ta fonction perso fait simplement un SOMME(Plage1,Plage2) non ? :weird:

---

En effet c'est juste une somme, d'ou l'utilisation de "fonction exemple". Ma vrai fonction est beaucoup plus compliquée (enfin tout est relatif)
mais du coup je pense que j'ai trop simplifié pour l'exemple.
la fonction utilisée dans une feuille de calcul, utilise des valeurs X et des valeurs Y, je manipule ces valeurs, puis je ressort une valeurs Z imaginons plutôt ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function Test(X As Range, Y As Range) Dim Sx as double Dim Sy as double   Sx = Application.WorksheetFunction.Sum(X) Sy = Application.WorksheetFunction.Slope(X,Y)   Test = Sx * Sy   End Function

---

Donc j'ai uniquement 2 range en entrée et ne cherche pas a en avoir une infinité.
Je souhaiterais néanmoins pouvoir sélectionner des cellules non contiguee pour mon range de X et mon Range de Y
une sorte de

Code:

---

1 2	X=Union(Range("A1"),Range("A3"))

---

mais comme c'est une fonction utilisée a partir d'une feuille de calcul (et pas dans une code VBA pur) je ne sais pas comment définir le fait que ces cellule ne sont pas contiguë.

je ne sais pas si c'est plus clair.
je ne sais même pas si c'est possible d'ailleurs. De mémoire, toutes les fonctions qui acceptent les cellules non contiguë ne prennent qu'un range ou "somme" de range en entrée.

Je regarde le ParamArray demain à la première heure, ça me semble une solution possible en récupérant le nombre de plages, le divisant par 2 (il y a toujours autant de plage X que de plages Y) et en unifiant chaque partie.

Merci encore

Probleme identique ici.
je vais essayer leurs solution aussi

je suis donc arrivé a mes fins avec cette methode qui consiste a utiliser un argument définissant le nombre de point que je veux utiliser pour mes X et pour mes Y

pour l'exemple ça donne ça:

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 26

Function test(NbPoints As Integer, ParamArray Points()) As Double   Dim pente As Double Dim OrdoOrigine As Double Dim Nb As Integer 'nombre de couple de points Dim Px() ' liste des points X Dim Py() ' liste des points Y Dim i   Nb = NbPoints - 1   ReDim Px(Nb) ReDim Py(Nb)     For i = 0 To Nb Px(i) = Points(i) Py(i) = Points(i + NbPoints) Next i   Sx = Application.WorksheetFunction.Sum(Px) Sy = Application.WorksheetFunction.Slope(Px,Py)   Test = Px * Py   End Function

---

Merci pour tout!