Version imprimable
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:
2
3
4
5
6
7
8
9
Bonjour,
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 ?Citation:
qui ne marche pas
Je te conseille la lecture de ceci : https://msdn.microsoft.com/fr-fr/lib.../Ff838369.aspx
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.
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 ?
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 :)
Bonjour
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à.Citation:
j'ai un VALEUR
Oui en effet, c'est le résultat de
=ord_orig(A9:J9;M9:V9;5)
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 ?
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" ?Citation:
Envoyé par 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 ?
Déjà, pour coder proprement, il faudrait mettre le type de chaque paramètre et le type de valeur renvoyé par la fonction.Citation:
Code:Function ord_orig(List1, List2, n As Integer)
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 :
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.Code:Function ord_orig(List1 As Range, List2 As Range, n As Integer) As Range
https://support.office.com/fr-fr/art...rs=fr-FR&ad=FR
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 :Citation:
Envoyé par Gopoir
Code:Cells(ta_cellule).Value = ord_orig(A9:J9, M9:V9, 5)
Sauf si c'est écrit à l'intérieur d'une cellule Excel. Ce qu'on appelle une fonction personnalisée.Citation:
Envoyé par Oudouner
http://silkyroad.developpez.com/vba/fonctions/