Discussion :

[nosnoz]

Bonjour à tous,

je rencontre un problème en vba qui va sûrement paraître extrêmement basique à beaucoup de monde mais ça fait depuis hier matin que je suis bloqué là dessus.

Voilà, le but de mon code est d'attribuer une note à des clients en fonction du montant moyen de leurs achats, et j'ai décidé de définir les notes en fonction des centiles de tous les montants réunis ( tous les montants se trouvant dans la colonne B du fichier ). Par exemple, ceux dont le montant moyen sera inférieur au 20ème centile auront une note de 0,ceux avec un montant moyen inférieur au 40ème centile auront la note de 1 etc...

Pour cela je souhaite attribuer la valeur de chaque centile à une variable pour chacun d'entre eux, puis attribuer les notes avec une boucle if. Mon problème est que je n'arrive pas à calculer ces centiles.
J'ai essayé avec worksheetfunction.percentile mais je n'arrive pas à la faire fonctionner.

est-ce que quelqu'un aurait une solution à me proposer ?

[jerome.vaussenat]

Salut,

Normalement, ta fonction est bien la bonne.
Je te propose une mise en pratique ci dessous.
Dans la suite du code, je te propose de remplacer des If à la chaîne par une instruction conditionnelle qui me semble plus adaptés. Le SELECT CASE.

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
Sub Macro1()
'
'en supposant que tes achats soient dans la place B6 à B15
cent4 = WorksheetFunction.Percentile(Range("b6:b15"), 0.4)
cent5 = WorksheetFunction.Percentile(Range("b6:b15"), 0.5)
cent6 = WorksheetFunction.Percentile(Range("b6:b15"), 0.6)
 
Select Case achat
    Case Is < cent4
        vaeur = 0
    Case Is < cent5
        vaeur = 1
    Case Is < cent6
        vaeur = 2
End Select
End Sub

En espérant que cela te permettra d'avancer

[Qwazerty]

SAlut

Pourquoi passer par VBA pour faire ça? Pourquoi ne pas simplement calculer cette note dans la colonne du tableau?

Quelque chose comme ça



++
Qwaz

[nosnoz]

Merci jerome, je ne connaissais pas le select case, il est vrai que c'est pratique ! Merci pour ton aide

Qwazerty, je veux tout faire en vba car le but est qu'en lançant la macro, tout se fasse tout seul sans avoir besoin de rentrer de formules dans le tableau. Ainsi, si quelqu'un d'autre doit faire cette analyse dans le futur, il n'aura plus qu'à lancer la macro et tout se fera tout seul.

[Qwazerty]

Salut

Même vidés de leur contenu, les tableaux structurés conservent les formules de colonne Un futur utilisateur n'aurait rien à faire de plus

Pour la liste des noms sans doublon du tableau central, elle peut être réalisée via une formule matricielle, tu trouveras, si cela t'intéresse, des exemples sur le net.

Ceci dit, tu feras bien comme il te plaira

++
Qwaz