fonction vba excel

Question

Bonjour,
J'ai un problème de syntaxe VBA pour une fonction.Cette fonction  permet à l'utilisateur de sélectionner la valeur d'une case comme argument, et de comparer cette valeur à un barème en tranches. Pour chaque tranche, un facteur est désigné, qui est le résultat à afficher dans une autre case, celle dans laquelle la fonction est insérée.
Voici mon code:
  Public Function Coeff (ByVal target As Range) As Number
    Application.Volatile
   Coeff = target.Value
    Select Case Coeff
    Case 0 To 1000000
    ActiveCell.Value = 1
    Case 1000000 To 1500000
    ActiveCell.Value = 1.2
    Case 1000000 To 1500000
    ActiveCell.Value = 1.3
    Case 1500000 To 2000000
    ActiveCell.Value = 1.4
    Case 2000000 To 2500000
    ActiveCell.Value = 1.5
    Case 2500000 To 3000000
    ActiveCell.Value = 1.6
    Case 3500000 To 4000000
    ActiveCell.Value = 1.7
    Case 4000000 To 4500000
    ActiveCell.Value = 1.8
    Case 4500000 To 5000000
    ActiveCell.Value = 1.9
    Case Else
    ActiveCell.Value = 2
    End Select
End Function
Je sais que j'ai fait une erreur de syntaxe dans les 3 premières lignes, et j'ai essayé plusieurs expressions, mais sans succès. Je ne sais ps comment passer la valeur de la case cible vers le calcul case.
merci infiniment de me donner un conseil.
dani

Bidouilleu_R · Answer

Bonjour,
Sans trop modifier ta macro....
tu mélanges l'entrée et la sortie.... !!!!
ce que je mets en gras représente le fond du problème.


Public Function Coeff (ByVal target As Range) As double
' ici coeff renvoie un double un chiffre à virgule ...ce dont tu as besoin 

dim Poubelle as double
poubelle=target.value
' tu testes poubelle
puis
coeff=... ' valeur de sortie après le passage dans select case
et donc disparition de activecell.value
puis
end function
mais pour que tu t'y retrouves
.....


Sub test2()

y = Coeff(Range("c30"))
End Sub

Public Function Coeff(ByVal target As Range) As Double
Application.Volatile
Coeff = target.Value
Select Case Coeff
    Case 0 To 1000000
        ActiveCell.Value = 1
    Case 1000000 To 1500000
        ActiveCell.Value = 1.2
    Case 1000000 To 1500000
        ActiveCell.Value = 1.3
    Case 1500000 To 2000000
        ActiveCell.Value = 1.4
    Case 2000000 To 2500000
        ActiveCell.Value = 1.5
    Case 2500000 To 3000000
        ActiveCell.Value = 1.6
    Case 3500000 To 4000000
        ActiveCell.Value = 1.7
    Case 4000000 To 4500000
        ActiveCell.Value = 1.8
    Case 4500000 To 5000000
        ActiveCell.Value = 1.9
    Case Else
        ActiveCell.Value = 2
End Select
End Function

dani7777 · Answer

grand merci bidouilleur !
ton aide est appréciée, 
j'ai créé un module dans lequel j'ai copié la sub test2 et la fonction coeff. le module est accepté, 
et la fonction apparait dans le menu. 
mais j'obtiens un message de reference circulaire  puis la cellule affiche #value quand je selectionne une cellule contenant une valeur numerique au hasard pour tester. ? 
j'ai coché puis décoché la case iteration dans le menu options au cas ou, mais ce n'est pas ça.
Qu'en penses tu ? vraiment merci

ps: est ce que je peux coder case < 1000000 au lieu de case 0 to 1000000 'our inclure des chiffres negatifs ?
dani

Bidouilleu_R · Answer

au post 2 j'ai dis ... et tu n'as pas tout lu..



puis
coeff=... ' valeur de sortie après le passage dans select case
et donc disparition de activecell.value
puis
end function 

la fonction marche comme ça


Public Function Coeff(ByVal target As Range) As Double
Application.Volatile
Dim dummy As Double
dummy = target.Value
Select Case Coeff
    Case Is > 0 < 1000001 ' supérieure à 0 est inférieur à 100001
        Coeff = 1
    Case 1000000 To 1500000
        Coeff = 1.2
    Case 1000000 To 1500000
        Coeff = 1.3
    Case 1500000 To 2000000
        Coeff = 1.4
    Case 2000000 To 2500000
        Coeff = 1.5
    Case 2500000 To 3000000
        Coeff = 1.6
    Case 3500000 To 4000000
        Coeff = 1.7
    Case 4000000 To 4500000
        Coeff = 1.8
    Case 4500000 To 5000000
        Coeff = 1.9
    Case Else
        Coeff = 2
End Select
End Function

eriiic · Answer

Bonjour,

ce n'est pas Select Case Coeff que tu veux mais Select Case Target.value
il manque un séparateur dans Case Is > 0 < 1000000, et tu peux raccourcir un peu en utilisant <=

Function Coeff(valeur As Double) As Double
    Select Case valeur
    Case Is <= 0
        Coeff = 0
    Case Is <= 1000000
        Coeff = 1
    Case Is <= 1500000
        Coeff = 1.2
    Case Is <= 2000000
        Coeff = 1.3
    Case Is <= 2500000
        Coeff = 1.4
    Case Is <= 3000000
        Coeff = 1.5
    Case Is <= 4000000
        Coeff = 1.6
    Case Is <= 4500000
        Coeff = 1.7
    Case Is <= 5000000
        Coeff = 1.8
    Case Else
        Coeff = 2
    End Select
End Function
eric

PS: tes coeff ont changé entre ta 1ère et la dernière demande...

Bidouilleu_R · Answer

c'est juste,
j'avais pas vérifié tous les cas ça m'apprendra!!!

mais ceci dit, personnellement je ne gèrerai pas cela dans la macro, car pour modifier il faut
revenir dans la macro.

Merci à eriic et à dani7777
pour le suivi et promis la prochaine fois je teste : )

Fonction vba excel

5 réponses

Discussions similaires

Newsletters