ERFC dans les macros

Bonjour,

je souhaiterais utiliser la fonction ERFC() dans une macro. Voici le schéma de ce que je voudrais faire :

Code:

---

1 2 3 4 5 6

function() boucle for() ERFC() End loop End Function

---

A priori, selon ce que j'ai lu, il est impossible de faire appel à la fonction ERFC dans VBA. J'essaye donc de remplir une cellule de ma feuille Excel (VBA) avec une valeur, faire le calcul dans Excel et lire la valeur calculée grâce à la fonction ERFC (VBA).

Voici le code que j'ai commencé à écrire:

Code:

---

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

Public Function BER_ref() Dim value_EbN0 As Double   value_EbN0 = 15   Sheets("Calcul").Select Range("J5").Select ActiveCell.FormulaR1C1 = "=0,5*ERFC(10^(value_EbN0/20))"   MsgBox(Range("J5").value)   End Function

---

Déjà, juste cela ne fonctionne pas (alors que j'ai crée une macro automatique qui donne ce même code). Je ne comprends pas pourquoi !

Y'a-t-il une autre solution que ce que je suis en train de faire. Sinon, pourquoi mon début de code ne fonctionne-t-il pas ?

Merci d'avance pour votre aide.

Normal ! Tu n'isoles pas la valeur value_EbN0 et tu utilises la virgule alors qu'ici tu dois utiliser le point (!!!)

Code:

---

1 2	value_EbN0 = 15 ActiveCell.FormulaR1C1 = "=0.5*ERFC(10^(" & value_EbN0 & "/20))"

---

Bonne journée

PS - Tu peux remplacer tes trois lignes par

Code:

---

Sheets("Calcul").Range("J5").FormulaR1C1 = "=0.5*ERFC(10^(" & value_EbN0 & "/20))"

---

Autant que possible, évite les selects dans ton code, ils te contraignent ici de sélectionner d'abord la feuille puis la cellule... et ça ne sert à rien ;)

Si je simplifie, et mets ça:

Code:

---

1 2 3

Sheets("Calcul").Select ' J'aurai besoin de l'utiliser plusieurs fois donc je laisse la feuille sélectionnée Range("J5").FormulaR1C1 = "25"

---

J'ai toujours une erreur (le msgBox ne s'affiche pas). Si j'enlève la dernière ligne, ça marche ?

Je ne comprends pas ton pb !
Teste ça sur un fichier tout neuf, chez moi ça fonctionne

Code:

---

1 2 3 4 5 6

Sub test() value_EbN0 = 15 Worksheets("feuil2").Range("J5").FormulaR1C1 = _ "=0.5*ERFC(10^(" & value_EbN0 & "/20))" MsgBox Worksheets("feuil2").Range("J5").Value End Sub

---

Si ça ne fonctionne pas chez toi c'est que tu n'as pas de feuille "feuil2" dans ton classeur tout neuf, donc pas de feuille "Calcul" dans ton classeur à toi :aie:

PS - Tes feuilles ne sont pas protégées ? Tes cellules ne sont pas verrouillées ?

J'ai copié le code et je l'ai passé en "function" plutôt qu'en "sub" et ça ne fonctionne pas.

Je ne sais pas si ça vient de "function" ou de "sub", je débute et je ne connais pas bien la différence (j'ai seulement remarqué que =test(), ça ne marche dans Excel que si c'est une "function").

Montre ton code et explique ce que tu veux obtenir dans la cellule. Ce n'est certes pas un msgbox (!)
Jusqu'à présent, d'après le code que tu as proposé, on écrivait une formule dans une cellule.
Si tu veux obtenir le résultat d'un fonction alors tu dois faire une fonction, et là il semble bien que tu aies un pb. Une fonction est faite pour renvoyer un résultat, non pour écrire une formule dans une cellule. De là à ne pas pouvoir utiliser ERFC dans une fonction... :(
La seule solution que je vois est d'écrire la formule qui va bien dans une cellule (1), cellule qui fait référence à une cellule contenant la valeur (2), et tu récupères le résultat dans la cellule désirée(3).
1 -> La formule qui va bien en B1 "=0,5*ERFC(10^(A1/20))"
2 -> La valeur en A1 = 15 dans ton exemple
3 -> La formule en C1 "= B1"

Ce que je voudrais faire est ceci (pseudo-code):

Code:

---

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

function BER_ref(valeur, pas) EsN0 = 15; BER = 0.5*ERFC(10^(EsN0/20))   while (BER>valeur ET EsN0>0) EsN0 = EsN0 - step BER = 0.5*ERFC(10^(EsN0/20)) endWhile   BER_ref = EsN0 end function

---

En gros, je fais varier un paramètre qui s'appelle EsN0 entre 15 et 0. Pour chaque valeur intermédiaire, je calcule une fonction que je stocke dans BER. Je fais cela tant que BER est supérieur à ma valeur recherchée. Sinon, j'arrête et je renvoie la valeur EsN0.

Problème : ERFC n'est pas disponible sous VBA.

Mon idée était de faire ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

function BER_ref(valeur, pas) EsN0 = 15;   'Ecrire la valeur EsN0 dans une cellule temporaire 1 'Dans excel, faire : 1/2*ERFC(10^(EsN0/20)) et le stocker dans une cellule 2 'lire la valeur de la cellule 2 et la stocker dans BER   while (BER>valeur ET EsN0>0) EsN0 = EsN0 - step   'Ecrire la valeur EsN0 dans une cellule temporaire 1 'Dans excel, faire : 1/2*ERFC(10^(EsN0/20)) et le stocker dans une cellule 2 'lire la valeur de la cellule 2 et la stocker dans BER   endWhile   BER_ref = EsN0 end function

---

Mais apparemment, tu me dis que ce que je veux faire est impossible car une fonction ne permet pas d'écrire dans le tableau excel ?

Alors je ne vois pas de solution pour réaliser ce que je souhaite faire.

C'est quoi ERFC ?

Je n'ai pas cette fonction dans mon excel 2003 (UK)?

ERFC est une macro complémentaire que l'on obtient dans la librairie "utilitaires d'analyse". C'est une fonction trop compliquée pour la réaliser en VBA.

Citation:

---

Envoyé par julieng31

Ce que je voudrais faire est ceci

---

As-tu lu ma réponse ?

Oui, je pense avoir lu ta réponse. Je ne comprends pas ce que tu veux que je te donne de plus comme information.

Peut-être veux-tu le code complet (qui ne marche pas, à cause de ERFC) que je cherche à réaliser :

Code:

---

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

Public Function BER_ref(pt As Double, step As Double) As Double Dim value_EbN0 As Double Dim BER As Double   value_EbN0 = 15 BER = 0.5 * ERFC(10 ^ (value_EbN0 / 20))   Do While ((BER > pt) And (valeur_EbN0 > 0)) value_EbN0 = value_EbN0 - step BER = 0.5 * ERFC(10 ^ (value_EbN0 / 20)) Loop   BER_ref = value_EbN0   End Function

---

Pour la solution que tu as donné, c'est exactement ce que je veux faire, mettre une valeur dans une cellule pour pouvoir utiliser les formules Excel et la relire après avec VBA. Le seuul pb, c'est que tu m'as indiqué que l'on ne peut pas écrire dans une cellule avec une fonction.

Voici une idée que je viens d'essayer (même si elle ne marche pas encore) :

puisque une fonction ne peut pas écrire, j'appelle une fonction qui ne fait que la boucle extérieure, qui appelle une sub qui elle, peut écrire dans la case (ici K2) et dans Excel, le résultat de la case L2 est "=0.5*ERFC(10^(K2/20))" et je peux lire le résultat dans la fonction.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Public Function BER_loop(pt As Double, step As Double) As Double Dim value_EbN0 As Double Dim BER As Double   value_EbN0 = 15 Call BER_compute(value_EbN0) BER = Sheets("Calcul_qpsk").Range("L2").value   Do While ((BER > pt) And (valeur_EbN0 > 0)) value_EbN0 = value_EbN0 - step Call BER_compute(value_EbN0) BER = Sheets("Calcul_qpsk").Range("L2").value Loop   BER_ref = value_EbN0 End Function       Public Sub BER_compute(value As Double) Sheets("Calcul_qpsk").Range("K2").FormulaR1C1 = value End Sub

---

Est-ce que ce que je fais est possible ? si oui, une idée pourquoi ça ne marche pas ?

Bonjour,
j'ignore si cela peut te convenir ou pas, mais pluto que d'avoir

Citation:

---

une fonction qui ne fait que la boucle extérieure, qui appelle une sub qui elle, peut écrire dans la case (ici K2) et dans Excel

---

, pourquoi ne pas simplifier par un simple sub dans laquelle tu rajoute un paramètre qui te ramène le résultat que ta Function t'aurais ramené ?

Je ne sais pas si je suis clair :aie:

Donc au lieu de

Code:

---

1 2	Public Function BER_loop(pt As Double, step As Double) As Double

---

qualquechose comme

Code:

---

1 2	Public Sub BER_loop(pt As Double, step As Double, result As Double)

---

Si c'est tout ce que tu veux alors tu as cette solution extraite de ma deuxième réponse

Code:

---

1 2 3 4

Sub Formule(value_EbN0 As Double) Worksheets("feuil2").Range("J5").FormulaR1C1 = _ "=0.5*ERFC(10^(" & value_EbN0 & "/20))" End Sub

---

Code:

---

1 2 3

Function Resultat() As Double Resultat = Worksheets("feuil2").Range("J5").Value End Function

---

Code:

---

1 2 3 4 5 6

Sub test() Dim value_EbN0 As Double value_EbN0 = 15 Formule value_EbN0 MsgBox Resultat End Sub

---

et si tu veux une boucle pour voir une évolution, tu la mets dans test en faisant varier value_EbN0

NB - Call est une réminiscence du vieux vieux basic et est totalement inutile.

En fait, je cherche à utiliser une fonction car le paramètre pt (avec la signature de fonction suivante: Public Function BER_ref(pt As Double, step As Double) As Double) est le résultat d'une longue série de calculs.

Donc je cherche à avoir, dans une case: "=BER_ref(pt, step)".

Ce résultat est ensuite utilisé comme paramètre d'autres fonctions.

Je voudrais donc quelque chose de complètement automatique : dès qu'un changement de valeur de pt est détecté, la fonction BER_ref() est lancée, produit un résultat qui est enfin traité. Je ne connais pas bien le VBA mais si j'ai bien compris, avec un sub, il faut un élément déclencheur (appui sur un bouton par exemple), ce qui ne convient pas à mon application. C'est pour cela que j'utilise à chaque fois une fonction.

Citation:

---

avec un sub, il faut un élément déclencheur (appui sur un bouton par exemple)

---

Non, pas seulement.
Tu peux tester le changement de valeur d'une cellule unique dans une macro qui déclenchera sur l'événement calculate de la feuille de calculs.
Dans l'éditeur VBA -> 2 clics sur le nom de la feuille -> Nom de la macro :
Private Sub Worksheet_Calculate()

Le principe :
2 cellules concernées
- cellule 1 mémorise la valeur "précédente" (ex : B1)
- cellule 2 pour la valeur testée (ex : A1)
"dès qu'un changement de valeur de pt est détecté" (en A1)
l'événement Calculate est déclenchée
Pour le principe toujours, le code

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_Calculate() si A1 <> B1 alors 'ton code B1 = A1 fin si fin sub

---

Durant quelques jours, je n'aurai pas mon PC mais dés mon retour, je teste ta proposition.

En attendant, merci pour ces réponses !

Citation:

---

Envoyé par julieng31

Donc je cherche à avoir, dans une case: "=BER_ref(pt, step)".

---

Il n'est pas possible, dans une fonction appelée depuis la formule d'une cellule, de modifier le contenu d'une feuille.