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 ?

[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