Discussion :

[Nemesis_81]

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 :

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

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

[MarcelG]

Salut,

Une idée

Code :

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

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

[Al__22]

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

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

=Test(B66;B72)

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

etc

[joe.levrai]

Bonjour,

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

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

Code :

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

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

=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

[Nemesis_81]

Merci a tous pour les réponses.

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

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 :

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

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 :

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

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

[Nemesis_81]

Probleme identique ici.
je vais essayer leurs solution aussi