Discussion :

[bilou_12]

Bonjour,

J'ai un tableau excel que je sélectionner et nomme dans ma fonction. Ce tableau contient des valeurs entre 50 et 150.

Il y a 20 colonnes correspondant à 20 entreprises et 10 lignes correspondant à t=1, t=2 etc.

Je souhaite savoir si la valeur de l'entreprise est en deçà de 100 ou 80 ou 60 à un moment donné. Je nomme le seuil dans ma fonction y. y est écrit dans une cellule que je sélectionne.

Pour faire cela, j'ai codé la fonction suivante: elle compile mais le résultat n'est pas escompté.. Elle me compte toutes les entreprises

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
30
Function classeBrownien(x As Range, y As Integer)
 
'déclaration des variables
Dim i As Integer
Dim j As Integer
Dim somme As Integer
 
'comptage du nombre de ligne
N = x.Rows.Count
 
'comptage du nombre de colonne
M = x.Columns.Count
 
'boucle sur les colonnes pour chaque entreprise
For j = 1 To M
    For i = 1 To N
        If Cells(i, j) < y Then
        somme = somme + 1
        GoTo suite
        Else
        End If
    Next
 
suite:
 
Next
 
classeBrownien = somme
 
End Function

Quelqu'un pour me filer un coup de main svp?

[Pierre Fauconnier]

Salut.

1. Est-ce un exercice scolaire?
2. Peux-tu reformuler plus précisément ce que tu souhaites obtenir? C'est quoi la valeur de l'entreprise?

Dans ta boucle, tu ajoutes 1 chaque fois qu'une cellule est supérieure à y, mais pour toutes les entreprises...

De plus, il n'est pas nécessaire de boucler pour compter les cellules qui correspondent à la condition (=> d'où ma question sur l'exercice).

Donc, merci de préciser ce que tu souhaites, éventuellement avec une image jointe.

[bilou_12]

Bonjour,

C'est un exercice scolaire car c'est une anticipation d'un exercice d'u exam! Je joins un fichier excel où vous pouvez voir comment le tableau se présente. Il y a 21 entreprises.On simule leur capital réglementaire pendant 10 périodes.

Ensuite, on souhaite attribuer la note AAA à celle dont le capital reste au dessus de 100 (= valeur initiale), BBB à celle dont le capital ne tombe pas en dessous de 80 etc...

Ce que je souhaite calculer est le nombre de AAA puis de BBB etc dans l'échantillon.

Dans ta boucle, tu ajoutes 1 chaque fois qu'une cellule est supérieure à y, mais pour toutes les entreprises...

C'est pas lorsque une cellule est inférieure à y plutôt?

N'hésitez pas à me redemander des explications si je ne suis toujours pas clair!

Merci d'avance!

Par rapport à ce que tu as ajouté, je viens de voir NB.SI!

Mais peux-tu quand même m'expliquer ce qui ne va pas dans le code stp?

[Pierre Fauconnier]

Si tu comptes les valeurs <100, tu comptes aussi toutes les valeurs <80, etc...

Si ta cote est attribuée par rapport à un plancher et un plafond, tu dois tester que la valeur se trouve entre ces deux bornes...

[bilou_12]

Merci Pierre Fauconnier!
Je pensais à la base faire des différences mais tu as raison c'est pas top! Par contre, j'ai le même problème avec ce code dans lequel j'ai rajouté un plafond et un plancher:

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
30
Function classeBrownien(x As Range, y As Integer, z As Integer)
 
'déclaration des variables
Dim i As Integer
Dim j As Integer
Dim somme As Integer
 
'comptage du nombre de ligne
N = x.Rows.Count
 
'comptage du nombre de colonne
M = x.Columns.Count
 
'boucle sur les colonnes pour chaque entreprise
For j = 1 To M
    For i = 1 To N
        If y < Cells(i, j) < z Then
        somme = somme + 1
        GoTo suite
        Else
        End If
    Next i
 
suite:
 
Next j
 
classeBrownien = somme
 
End Function

Je trouve 21 entreprises AAA (entre 100 et 150), 21 BBB (entre 80 et 100) et 21 CCC (entre 50 et 80)...

Je pense que c'est ma somme qui a un pb mais j'arrive pas à voir lequel...