Discussion :

[julieng31]

Bonjour,

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

Code :

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

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 :

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

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.

[ouskel'n'or]

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

Code :

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

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 :

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

    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

[julieng31]

Si je simplifie, et mets ça:

Code :

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

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 ?

[ouskel'n'or]

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

Code :

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

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

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

[julieng31]

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").

[ouskel'n'or]

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"