Discussion :

[Gopoir]

Bonjour,

Je suis débutant en VBA et j'ai écris ce code qui ne marche pas sans que je ne comprenne d'où peut venir l'erreur... Auriez-vous des idées ?
Merci !

Code :

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

1
2
3
4
5
6
7
8
9
 
Function ord_orig(List1, List2, n As Integer)
 
List1.Resize(, n)
List2.Resize(, n)
 
ord_orig = Application.WorksheetFunction.Intercept(List1, List2)
 
End Function

[riaolle]

Bonjour,

qui ne marche pas

C'est un peu vague : message d'erreur ? Si oui, lequel et où ? La macro tourne mais ne fait pas ce que tu veux ? Que veux-tu ? Que fait-elle ?
Je te conseille la lecture de ceci : https://msdn.microsoft.com/fr-fr/lib.../Ff838369.aspx

[Gopoir]

Bonjour,

Oui, j'ai un message d'erreur, j'ai un VALEUR sur ma cellule qui apparait. Je ne sais pas vraiment en dire plus.

[Invité]

Bonjour,

Il faudrait que tu nous expliques quelle est la finalité de ton code et nous donner plus d'informations sur les éléments déjà présent (comme List1 et List2). De ce que j'ai compris tu cherches à récupérer le résultat de la fonction Intercept dans une cellule c'est sa ?

[Gopoir]

Bonjour Oudouner,

Merci de ton aide
List1 =A9:J9
List2=M9:V9

Ces deux plages contiennent 10 cellules, sauf que selon les cas je ne remplis pas ces 10 cellules.

J'ai une autre fonction qui calcule n : le nombre de cellules non vides dans list1
A partir de ce nombre entier n, je veux redimensionner mes deux listes pour utiliser la fonction intercept et calculer l'ordonnée à l'origine de mes deux selections. (List1 correspond à mes Y et List2 à mes X)

Et comme tu l'as dit, je veux récuperer ce résultat dans ma cellule

[unparia]

Bonjour

j'ai un VALEUR

ne peut être que le résultat de l'application d'une formule mise dans la cellule concernée et non DIRECTEMENT du code que tu nous montres là.

[Gopoir]

Oui en effet, c'est le résultat de
=ord_orig(A9:J9;M9:V9;5)

[Invité]

C'est déjà un peu plus clair de cette manière. Cependant la remarque de unparia est tout à fait vrai, tu ne peux avoir un VALEUR dans ta cellule uniquement si une fonction Excel est écrite dedans, es-tu sur de bien écrire le résultat trouvé dans ta fonction dans ta cellule ?

[Gopoir]

Je pense ne pas comprendre la remarque de Unparia, dans ma cellule j'ai écris =ord_orig(A9:J9;M9:V9;5), ce qui correspond à mes deux listes et mon entier

[Invité]

Je pense ne pas comprendre la remarque de Unparia, dans ma cellule j'ai écris =ord_orig(A9:J9;M9:V9;5), ce qui correspond à mes deux listes et mon entier

Que veux-tu dire par "j'ai écris", comment fais-tu cette "écriture" ?

[Gopoir]

dans ma cellule je tape =ord_orig( => le nom de ma fonction
puis je selectionne ma première plage de donnée qui correspond à la selection A9:J9, je tape ";" pour passer au deuxième argument, puis je selectionne ma deuxième plage de données, je tape ";" puis je selectionne la cellule où j'ai au préalable calculé n, puis ")"

Je fais entrer puis j'ai VALEUR dans ma cellule. C'est bien ça ou je réponds à côté à ta question ?

[Menhir]

Code :

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

Function ord_orig(List1, List2, n As Integer)

Déjà, pour coder proprement, il faudrait mettre le type de chaque paramètre et le type de valeur renvoyé par la fonction.

Si tes "ListX" sont des références de cellules et que tu veux que la fonction renvoie une référence de cellules, il faut mettre :

Code :

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

Function ord_orig(List1 As Range, List2 As Range, n As Integer) As Range

Mais, à mon avis, au lieu d'utiliser une fonction personnalisée, tu devrais aller regarder la fonction DECALER() qui fait la même chose que tes Resize.
https://support.office.com/fr-fr/art...rs=fr-FR&ad=FR

[Invité]

dans ma cellule je tape =ord_orig( => le nom de ma fonction
puis je selectionne ma première plage de donnée qui correspond à la selection A9:J9, je tape ";" pour passer au deuxième argument, puis je selectionne ma deuxième plage de données, je tape ";" puis je selectionne la cellule où j'ai au préalable calculé n, puis ")"

Je fais entrer puis j'ai VALEUR dans ma cellule. C'est bien ça ou je réponds à côté à ta question ?

Tu ne peux pas appeler une fonction VBA comme une fonction Excel ! Si tu veux écrire le résultat de ta fonction il faut procéder de cette manière dans une procédure à part :

Code :

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

Cells(ta_cellule).Value = ord_orig(A9:J9, M9:V9, 5)

[Menhir]

Tu ne peux pas appeler une fonction VBA comme une fonction Excel !

Sauf si c'est écrit à l'intérieur d'une cellule Excel. Ce qu'on appelle une fonction personnalisée.
http://silkyroad.developpez.com/vba/fonctions/