Function

tototiti2008

XLDnaute Barbatruc

• 17 Août 2011

• #2

Re : Function

Bonjour mamour,

peut-être

Code:

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 🙂

 

Vote positif 0 Vote négatif

M

mamour60

XLDnaute Junior

• 17 Août 2011

• #3

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 😱

@+

 

Pièces jointes

• Classeur1.xls

  23 KB · Affichages: 44
• Classeur1.xls

  23 KB · Affichages: 41
• Classeur1.xls

  23 KB · Affichages: 40

Vote positif 0 Vote négatif

M

mamour60

XLDnaute Junior

• 17 Août 2011

• #4

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

 

Vote positif 0 Vote négatif

M

mamour60

XLDnaute Junior

• 18 Août 2011

• #5

Re : Function

Bonjour,

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

Bonne journée à tous

 

Vote positif 0 Vote négatif

M

mamour60

XLDnaute Junior

• 18 Août 2011

• #6

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.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 18 Août 2011

• #7

Re : Function

Bonjour à tous,

à tester

Code:

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

 

Vote positif 0 Vote négatif

M

mamour60

XLDnaute Junior

• 18 Août 2011

• #8

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 18 Août 2011

• #9

Re : Function

Re,

alors remplace dans mon code la ligne

Code:

Calcul_Acry = CVErr(xlErrNA)

par

Code:

Calcul_Acry = "NA"

 

Vote positif 0 Vote négatif

M

mamour60

XLDnaute Junior

• 18 Août 2011

• #10

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.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 18 Août 2011

• #11

Re : Function

Re,

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

Function Calcul_Acry(Nom As Range)

Cliquez pour agrandir...

et non pas

Function Calcul_Acry(Nom As Range) As Double

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

M

mamour60

XLDnaute Junior

• 18 Août 2011

• #12

Re : Function



Re,

Merci tototitit cela marche.

Bonne soirée

 

Vote positif 0 Vote négatif