plus grand élément dans un tableau

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour , je dois écrire une fonction qui me renvoie le plus grand élément du tableau parmi ceux qui sont strictement inférieurs à un nombre n passé en paramètres . La fonction renvoie "erreur" si il n'y a pas de plus grand élément.

Voici mon idée d'algorithme : On déclare une variable X qui par définition est égale au 1er élément du tableau .

Si la case du tableau contient une valeur inférieure à n Ensuite

Si la case du tableau contient une variable plus petite que X , alors on passe à la case suivante ,
SINON
X est égal à la valeur de la case .
Fin du 1er if

SINON
on passe à la case suivante
FIN

J'ai tenté d'écrire un code qui dans un 1er temps ne s'occupe pas du erreur , juste du n et de la recherche du 1er élément , mais il fonctionne pas bien , le voici :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Function plusGrand(ByVal n As Long) As Single Dim plage As Range Dim i As Integer, X As Integer Set plage = Range(Cells(1, 1), Cells(20, 1)) X = plage.Cells(1, 1).Value For i = 2 To 20 If plage.Cells(i, 1).Value < n Then If plage.Cells(i, 1).Value < X Then i = i + 1 Else X = plage.Cells(i, 1).Value i = i + 1 End If i = i + 1 End If Next i plusGrand = X End Function
J'ai l'impression que c'est parce que je parcours mal le tableau , qu'en pensez vous?

Merci .

Pourquoi tu passe par plage?
Pourquoi tu défini X en entier alors que ta fonction est un réelle, deplus tu eux te passer du X et directement utiliser plusgrand dans ton code

Tu n'as pas besoin de faire i=i+1 puisque next i le fait ton code saute une ligne a chaque fois (a mon avis c'est ca qui ta posé problème)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Function plusGrand(ByVal n As Long) As Single Dim i As Integer, X As Single plusGrand = Cells(1, 1).Value For i = 2 To 20 If Cells(i, 1).Value < n Then If Cells(i, 1).Value > plusGrand Then plusGrand = Cells(i, 1).Value End If End If Next i End Function

en colonne 1 , de la ligne 13 à 19 j'ai cette série de nombres :

8,96
10,03
8,16
13,60
7,31
8,75
10,24

Voici le code de la fonction que j'ai modifié grâce à ton aide :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Function plusGrand(ByVal n As Integer) As single Dim i As Integer plusGrand = Cells(13, 1).Value For i = 14 To 19 If Cells(i, 1).Value < n Then If Cells(i, 1).Value > plusGrand Then plusGrand = Cells(i, 1).Value End If End If Next i plusGrand = Cells(i, 1).Value End Function
Je l'ai testé pour n = 12 , elle devrait me renvoyer 10,24 , mais elle me renvoie à la place #VALEUR! , c'est étrange qu'en penses tu ?

Code:

1 2 3 4 5 6 7 8 9 10 11 Function plusGrand(ByVal n As Integer) As single Dim i As Integer plusGrand = Cells(13, 1).Value For i = 14 To 19 If Cells(i, 1).Value < n Then If Cells(i, 1).Value > plusGrand Then plusGrand = Cells(i, 1).Value End If End If Next i End Function
tu faisiat ta boucle et a la fin comme ca pour rire alors que i n'a plus vraiment de valeur
plusGrand = Cells(i, 1).Value
:roll:

enlève le et tu verra ca ira tout seul :king:

Pour résoudre ce genre de problème fait tourner ton code en pas a pas (touche F8) en affichant les variable local ca permet de suivre chaque modif des variables et de voir ou ca "coince"

09/04/2009, 17h22
shaku

ok , ça a l'air de coller , mais parfois dans l'une des cases j'ai une lettre , c'est donc une donnée de type string , je ne peux pas la comparer aux nombres , tu saurais comment faire pour ne pas tenir compte des cases qui contiennent des lettres ?

en fait je cherche depuis tt à l'heure mais comment trouver le plus grand élément dans ce tableau ci :

A
A
8,16
13,60
7,31
A
10,24

Tu vois si on tombe sur A il faut passer à la case suivante , mais mon algo tombe à l'eau car il se base justement sur la définition d'une valeur dès le début...
09/04/2009, 17h58
casefayere

Bonsoir,
Je pense que, de toute façon, ton code que j'ai essayé n'est pas rédigé correctement.
En reprenant exactement tes chiffres, j'ai donné la valeur 8 à ta fonction, regardes le résultat, il est faussé

mais ce que j'en dis.....:cry:

a +

sinon, pour vérifier qu'il s'agit d'un chiffre, tu peux, entre autres, utiliser ce code

Code:

If Application.WorksheetFunction.IsNumber(Cells(i, 1).Value) = True Then
09/04/2009, 18h08
shaku

Je n'ai pas le droit à worksheet...mais le IsNumber me parait pas mal .

Je dois trouver le plus grand élément dans ce tableau :

A
A
8,16
13,60
7,31
A
10,24

Pour ça il faut que je saute les A , que j'enregistre le 8,16 comme 1ere valeur et que j'utilise mon algo tout en sautant les A :)

Je ne sais pas remplacer le worksheetfunction mais pour moi ton code est là

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function plusGrand(ByVal n) As Single
Dim i As Integer
    For i = 13 To 19 ' ici je commence à ligne 13
'reste ci-dessous à voir
    If Application.WorksheetFunction.IsNumber(Cells(i, 1).Value) = True Then
       If Cells(i, 1).Value < n Then
            If Cells(i, 1).Value > plusGrand Then
                plusGrand = Cells(i, 1).Value
            End If
        End If
        End If
    Next i
 
End Function

Salut,

à essayer avec plage :

Code:

1
2
3
4
5
6
7
 
Function plusGrand(Plage) As Double
    Dim C As Range
    For Each C In Plage
      If IsNumeric(C) And C.Value > plusGrand Then plusGrand = C.Value
    Next
End Function

Remarque : le type SINGLE ne donne pas la même réponse !

Bonsoir Ordonc, re shaku

Je ne comprends pas pourquoi plage mais isnumeric est la solution

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Function plusGrand(ByVal n) As Single
Dim i As Integer
    For i = 13 To 19
    If IsNumeric(Cells(i, 1).Value) = True Then
       If Cells(i, 1).Value < n Then
            If Cells(i, 1).Value > plusGrand Then
                plusGrand = Cells(i, 1).Value
            End If
        End If
        End If
    Next i
 
End Function

09/04/2009, 18h37
shaku

case ton code je ne l'ai pas testé , mais il me semble manquer quelque chose :

Code:

If Cells(i, 1).Value > plusGrand Then

plusGrand tu ne l'as initialisé nulle part ....
09/04/2009, 18h41
OrDonc

Re,

j'ai choisi =plusGrand(A13 :A20) pour avoir aussi une sélection directe avec la souris comme tant d'autres fonctions mais, bien sûr, on peut faire autrement !

Tu as raison, je crois devoir changer quelque chose :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Function plusGrand(ByVal n) As Single
Dim i As Integer
    For i = 14 To 19
    If IsNumeric(Cells(i, 1).Value) = True Then
       If Cells(i, 1).Value < n Then
            If Cells(i, 1).Value > Cells(i-1, 1).Value Then' voir ici
                plusGrand = Cells(i, 1).Value
            End If
        End If
        End If
    Next i
 
End Function

J'espere que ceci devrait aller

Excuses, mais je viens de tester, ça va pas,

Je regarde mieux

Par contre, ce code marche
Inutile de donner une valeur à plusgrand au départ si tu commence le test à la ligne 13

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Function plusGrand(ByVal n) As Single
Dim i As Integer
    For i = 13 To 19
    If IsNumeric(Cells(i, 1).Value) = True And Cells(i, 1).Value < n Then
            If Cells(i, 1).Value > plusGrand Then
                plusGrand = Cells(i, 1).Value
            End If
        End If
 
    Next i
 
End Function

09/04/2009, 18h57
shaku

il m'est malheureusement impossible d'utiliser ton code car dans ma feuille excel toutes les autres cases sont remplies d'informations , je dois vraiment écrire la fonction uniquement pour la plage où il y a les valeurs .

Re,

j'aurais plutôt écrit cela :
Code:

1 2 3 4 5 6 7 Function plusGrand(ByVal n) As Double Dim i As Integer For i = 13 To 19 If IsNumeric(Cells(i, 1) And Cells(i, 1) > plusGrand Then plusGrand = Cells(i, 1) Next End Function
avec, comme appel, =plusGrand(Moi), Moi n'étant pas un des caractères interdis !

Avez-vous comparé Double et Single ?

09/04/2009, 18h59
shaku

vos codes ne peuvent pas convenir mais je viens d'avoir une idée , utiliser 2 boucles , l'une pour stocker une valeur et l'autre pour comparer . Je vais bosser sur cette idée .
09/04/2009, 19h01
casefayere

regardes ce fichier test et essayes le

désolé case je n'accepte pas les fichiers joints ne le prends pas mal . J'ai écrit un code qui peut marcher je crois mais j'ai juste un soucis avec la boucle , regardez :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Function plusGrand(ByVal n As Integer) As Single Dim i As Integer For i = 14 To 19 If IsNumeric(Cells(i, 1).Value) And Cells(i, 1).Value < n Then plusGrand = Cells(i, 1).Value End If Exit For Next i For i = i To 19 If IsNumeric(Cells(i, 1).Value) And Cells(i, 1).Value < n Then If Cells(i, 1).Value > plusGrand Then plusGrand = Cells(i, 1).Value End If End If Next i End Function
Vous voyez , dans la 1ere boucle , je stocke la 1ere valeur numérique pour la comparer ensuite dans la seconde boucle . Juste le probleme : cette fonction me renvoie uniquement la 1ere valeur numérique du tableau , comme ci elle bouclait pas...
Ma seconde boucle doit reprendre où la 1ere se termine en fait .

mon dernier code marchait mais pour le tien, j'ai corrigé comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function pg(ByVal n As Integer) As Single
Dim i As Integer, x As Integer
    For i = 13 To 19
        If IsNumeric(Cells(i, 1).Value) And Cells(i, 1).Value < n Then
        pg = Cells(i, 1).Value
        x = i
        Exit For
        End If
    Next i
    For i = x + 1 To 19
        If IsNumeric(Cells(i, 1).Value) And Cells(i, 1).Value < n Then
            If Cells(i, 1).Value > pg Then
            pg = Cells(i, 1).Value
            End If
        End If
    Next i
End Function

il faudra prévoir une autre condition :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function pg(ByVal n As Integer) As Single
Dim i As Integer, x As Integer
    For i = 14 To 19
        If IsNumeric(Cells(i, 1).Value) And Cells(i, 1).Value < n Then
        pg = Cells(i, 1).Value
        x = i
        Exit For
        End If
    Next i
if x<19 then
    For i = x + 1 To 19
        If IsNumeric(Cells(i, 1).Value) And Cells(i, 1).Value < n Then
            If Cells(i, 1).Value > pg Then
            pg = Cells(i, 1).Value
            End If
        End If
    Next i
end if
End Function

09/04/2009, 19h26
shaku

génial ça marche , ah on a bien bossé ensemble je trouve ça fait plaisir :) . Ta technique pour ma double boucle est très bien et j'ai appris le isnumeric que je ne connaissais pas merci :) .
Il manque juste une petite chose à apporter à ma fonction : si jamais les 2 plus grandes valeurs sont égales , il n'y a pas de plus grande valeur et dans ce cas la fonction me renvoie "erreur" , c'est faisable de mettre cette option ?

Voir 40 message(s) de cette discussion en une page