Discussion :

[daniel9275]

Bonjour,
J'ai un souci avec la fonction ci-dessous qui compare la valeur d'une cellule à un barème, et insère un coefficient dans une autre cellule selon les cas.
Je dois etre à coté de la solution, mais je ne la vois pas. Merci d'avance du coup de main.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Public Function PL(ByVal target As Range) As Variant
    Application.Volatile
    PL = target.Value
    Select Case PL
    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

[mercatog]

regarde du côté de la différence entre procédure et fonction.

[ucfoutu]

Bonsoir,

Etrange fonction ...
Si tu veux une aide éclairée, il va falloir que tu nous éclaires !
1) d'où appelles-tu cette fonction et comment l'appelles-tu ?
2) que doit-elle modifier

Sois le plus précis possible, sans omettre de détails.

[daniel9275]

Merci, et désolé de ne pas avoir été assez clair.
C'est une application de barème et voici l'explication
Nous avons de A1 à A7 des valeurs numériques allant de 0 à 5 000 000.
Je compare ces valeurs une à une à un barème progressif en tranches (0 à 1000 000, de 1 000 000 à 1 500 000, etc jusquà une limite de 5 000 000, puis une tranche supérieure "au dessus de 5 000 000", soit en tout 10 tranches.

Ma fonction barème saisit la valeur de A1 comme argument, la classe par rapport aux tranches du barème, et insère dans la cellule active C1, un coefficient, qui va être utilisé dans dautres calculs.
je désire obtenir de C1 à C7 ces coefficients.
Donc, la fonction est dans C1, l'argument est dans A1, le barème est fixe.
Vraiment merci.

Addendum:
Je commence donc le code par la saisie de mon argument:

Code :

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

1
2
3
Public Function PL(ByVal target As Range) As Variant
    Application.Volatile
    PL = target.Value

Ce code fonctionne correctement si je l'utilise dans un module séparé (en rajoutant End Function bien sur)
Je crois que cela "coince" au moment ou je déclare cette variable
pour l'utiliser dans la partie "case" du code.

Cordialement,

[ucfoutu]

Bon...
Si je comprends bien tes explications :
Tu te sers de cette fonction personnalisée en l'utilisant comme formule dans chacune des cellules Cx à Cy et cette fonction doit donner à ces cellules (Cn) Cx à Cy une valeur en fonction du contenu de la cellule de même rang en colonne A (An, donc)
Elle doit alors être appelée en lui passant comme paramètre le contenu (typé convenablement) de la cellule An et elle doit retourner à la cellule où se trouve ta formule le résultat (typé un peu plus précisément que Variant !) de ton select Case...
Je vais te laisser travailler seuil avec ces indications, en me contentant de te guider ainsi uniquement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Function PL(titi as .........) As ......' (autre chose que Variant)
    Application.Volatile
   ....
    Select Case titi
      Case 0 To 1000000
        PL= 1
    Case 1000000 To 1500000
       PL=  1.2
    .....
 
 End Select
End Function

Voilà ... A toi, maintenant .

[daniel9275]

merci de ta réponse, ucfoutu,
tu as parfaitement compris la démarche, sauf que la cellule à évaluer est sélectionnée par l'utilisateur.
Je bute précisément sur un problème de syntaxe que tu me proposes de résoudre seul.

Code :

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

1
2
3
4
5
6
Public Function Levier() As Integer
Set PL = Selection
    Select Case PL
    Case 0 To 1000000
    ActiveCell.Value = 1
    Case 1000000 To 1500000

j'ai essayé cette version,(sans argument, puisque je désire sélectionner nimporte quelle cellule), et ne sais pas ensuite comment passer la valeur de la selection vers la calcul de case. cela ne s'invente pas, et comem je ne suis pas programmeur, je vais essayer de trouver ce détail de syntaxe dans des exemples VBA.
merci quand même

[Krovax]

Bonjour,
Un petit cours d'algorithmique. une fonction recoi des argument et renvoie une valeur.
En math la fonction
f(x)=2*x+3
f(3) renvoie 9
ta fonction ne renvoie aucune valeur! Ce n'est pas une fonction. alors soit tu change ca et tu en fait une procédure.

Code :

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

Public Sub PL(ByVal target As Range)

soit tuécoute le monsieur et tu utilise ta fonction pour renvoyer une valeur

[ucfoutu]

Re...

tu as parfaitement compris la démarche, sauf que la cellule à évaluer est sélectionnée par l'utilisateur.

La question est donc :
Comment (par quels gestes précis)
se fait cette sélection par l'utilisateur ? En allant simplement dans la cellule ? Autrement (et comment ?)
A partir de cette réponse ===>>> tout est simple (et avec une vraie fonction )

[daniel9275]

bon, je suis arrivé la. j'ai un résultat, mais il est bloqué à 1 (le 1er coeff), si je teste par exemple 2700 000, je devrais obtenir 1.5, mais la fonction affiche 1.
c'est peut etre un pb de décimale ou autre chose
pourriez vous m'éclairer ?
en tout cas j'y suis presque
merci de vos précieux conseils

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub test2()
y = Coeff(Range("c30"))
End Sub
 
Public Function Coeff(ByVal target As Range) As Double
Application.Volatile
Dim dummy As Double
dummy = target.Value
Select Case Coeff
    Case Is > 0 < 1000000
        Coeff = 1
    Case 1000001 To 1500000
        Coeff = 1.2
    Case 1500001 To 2000000
        Coeff = 1.3
    Case 2000001 To 2500000
        Coeff = 1.4
     Case 2500001 To 3000000
        Coeff = 1.5
   Case 3500001 To 4000000
        Coeff = 1.6
    Case 4000001 To 4500000
        Coeff = 1.7
    Case 4500001 To 5000000
        Coeff = 1.8
    Case Else
        Coeff = 2
End Select
End Function

[Krovax]

heuessaye le mode pas a pas pour lancer ta macro et reagrde la valeur de tes variables

quand tu fais

Code :

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

Select Case Coeff

coeff n'as aucune valeur, comment il pourrais donner autre chose que 0??
tu ne choisie pas ton select case sur la bonne info
au hasar et sans réfléchir je mettrais ta variable d'entrée

Code :

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

select case target

[Fanfan2A]

Bonjour tout le monde.
Juste une petite erreur (étouderie?):
Select Case dummy et pas Coef !
Cdlt

[ouskel'n'or]

Généralement, quand on a un pb de format de données, c'est dans le menu "Format" que "ça" se passe
Ex pour la colonne E

Code :

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

    Columns("E:E").NumberFormat = "0.0"

Mais si c'est un entier tu auras un zéro après la virgule.
Vérifie aussi ta déclaration de variable. Ce doit être un double.

[daniel9275]

merci à tous,
le pb est réglé
j'ai remplacé par dummy et...tout marche
bonne continuation

[ucfoutu]

Bonjour, daniel9275,

Quelque chose me titille et je t'en parle donc à tout hasard...
L'examen de tes Cases dans le select me donne à penser que tu vas de tranche de 500000 en tranche de 500000 et qu'il n'est alors pas impossible de ta tranche la plus basse acceptable ne commence pas à 0 mais à 500001. Idem en ce qui concerne la plus haute, dont la limite acceptable paraîtrait alors être 5500000 ...

Si (et seulement si) tel était le cas, il serait prudent de modifier ainsi ton select case :

Code :

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

1
2
3
4
5
6
7
8
Dim coeff As Double
  Select Case dummy
    Case 500001 To 5500000
       coeff = ((10 - (5500000 - dummy) \ 500000) + 10) / 10
    Case Else
       MsgBox "erreur probable de saisie"
   End Select
   If coeff > 0 Then MsgBox coeff  ' là uniquement pour tes essais (pour que tu voies mieux

Si, par contre, tes tranches ne sont pas celles que j'ai cru deviner, laisse tomber le présent code...