Function

[mamour60]

Bonjour a tous,

Je doit créer une function sous Excel dont voici un exemple :

Function Calcul_Acry(Nom) 'Nom = Nom D'une Pomme
Dim essai As String
Application.Volatile
Select Case Nom
Case "Lady"
essai = 1532 * 1569 + (S2 * 15) + 1596.5 * R2 + T2
Case "Pink"
essai = 1452 * 1695.5 + (S2 * 25) + 1587 * R2 + T2
End Select
End Function

Les chiffres ne sont que pour l'exemple car la formule pour le calcul est beaucoup plus longue.

Si le nom est en A2 se sera S2 T2 et R2
Si le nom est en A3 se sera S3 T3 et R3
ainsi de suite

Si quelqu’un a une idée merci de votre aide.

Bonne soirée a tous

 

[tototiti2008]

Re : Function

Bonjour mamour,

peut-être

Function Calcul_Acry(Nom as Range) As Double 'Nom = Nom D'une Pomme
Dim essai As double, R as double, S as double, T as double
Application.Volatile
R = Nom.Parent.range("R" & Nom.row).value
S = Nom.Parent.range("S" & Nom.row).value
T = Nom.Parent.range("T" & Nom.row).value
Select Case Nom.Value
Case "Lady"
essai = 1532 * 1569 + S * 15) + 1596.5 * R + T
Case "Pink"
essai = 1452 * 1695.5 + (S * 25) + 1587 * R + T
End Select
Calcul_Acry = essai
End Function

Edit : Bonjour CC 🙂

 

[mamour60]

Re : Function

Bonjour a vous deux,

Merci pour vos reponses. Voici le fichier en exemple.

Il faux manger des pommes c'est bon pour la santé... normalement 😱

@+

 

[mamour60]

Re : Function

Bonjour tototiti2008,

Je teste la formule demain avec les bonnes informations.

Merci et bonne soirée
Merci egalement a carcharodon-carcharias pour sa reponse

 

[mamour60]

Re : Function

Bonjour,

J'ai tester la function et cela fonctionne trés bien encore merci de votre aide.

Bonne journée à tous

 

[mamour60]

Re : Function

Re-bonjour a tous,

tototiti est il possible d'ajout a la function le message d'erreure suivant

Si Calcul_Acry = 0 alors on met "NA"

Merci d'avance.

 

[tototiti2008]

Re : Function

Bonjour à tous,

à tester

Function Calcul_Acry(Nom As Range) 'Nom = Nom D'une Pomme
Dim essai As Double, R As Double, S As Double, T As Double
    Application.Volatile
    R = Nom.Parent.Range("R" & Nom.Row).Value
    S = Nom.Parent.Range("S" & Nom.Row).Value
    T = Nom.Parent.Range("T" & Nom.Row).Value
    Select Case Nom.Value
    Case "Lady"
        essai = CDbl(1532) * 1569 + S * 15 + 1596.5 * R + T
    Case "Pink"
        essai = CDbl(1452) * 1695.5 + (S * 25) + 1587 * R + T
    End Select
    If essai = 0 Then
        Calcul_Acry = CVErr(xlErrNA)
    Else
        Calcul_Acry = essai
    End If
End Function

 

[mamour60]

Re : Function

Bonjour tototiti,

Merci mais je ne veux pas le message d'erreur #N/A mais avoir du texte ex: NA (Non Affecté)

Jai essaié de mettre un message du style

Function Calcul_Acry(Nom as Range) As Double
On Error GoTo Erreur
Dim essai As double, R as double, S as double, T as double
Application.Volatile
R = Nom.Parent.range("R" & Nom.row).value
S = Nom.Parent.range("S" & Nom.row).value
T = Nom.Parent.range("T" & Nom.row).value
Select Case Nom.Value
Case "Lady"
essai = 1532 * 1569 + S * 15) + 1596.5 * R + T
Case "Pink"
essai = 1452 * 1695.5 + (S * 25) + 1587 * R + T
End Select
Calcul_Acry = essai
Exit Function
Erreur:
essai = "NA"
End Function

Mais cela ne marche pas alors si vous avez une idée.

Encore merci et Bonne soirée

 

[tototiti2008]

Re : Function

Re,

alors remplace dans mon code la ligne

Calcul_Acry = CVErr(xlErrNA)

par

Calcul_Acry = "NA"

 

[mamour60]

Re : Function

Re,

Cela me donne #VALEUR! et non NA.

Est ce cela peut venir que NA c'est du Texte alors que l'on fait des calculs.
Car a la place de #VALEUR! j'arrive a mettre 0.

 

[tototiti2008]

Re : Function

Re,

Dans le dernier code proposé, la première ligne est

Function Calcul_Acry(Nom As Range)

et non pas

Function Calcul_Acry(Nom As Range) As Double

 

[mamour60]

Re : Function



Re,

Merci tototitit cela marche.

Bonne soirée