plus grand élément dans un tableau

Version imprimable

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

essayes ce code, excuses-moi, j'ai appelé ta fonction pg pour ne pas détruire l'autre

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, 19h39
shaku

cette fonction ne peut pas marcher pour 2 raisons car en fait :

1. La note doit etre STRICTEMENT inférieure à n , et si n vaut 10 et que j'ai 2 notes égales à 8 je pense que ton code ne marchera pas :)

à mon avis il faut rajouter ça , en dessous de cette ligne :

Code:

If Cells(i, 18).Value > pg

If Cells(i, 18).Value = pg then

pg = "erreur"

tt simplement non ?
09/04/2009, 19h47
casefayere

tu as raison pour ta reflexion mais ce que tu préconises

Code:

If Cells(i, 18).Value = pg then

pourquoi 18, ceci est la colonne "R",
quelque chose m'échappe
09/04/2009, 19h58
shaku

dsl erreur de frappe pour le 18 , mais mon idée ne marche pas en tt cas :)
09/04/2009, 20h02
casefayere

il faudrait savoir si tu trouves 2, 3, 4 valeurs égales et maxi, la réponse que tu veux donner à ta fonction, à partir de là, il doit etre possible de modifier le code
09/04/2009, 20h02
shaku

si 2 valeurs sont égales ça suffit amplement

regardes ce que donne ce code à adapter

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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
            MsgBox "plusieurs valeurs": Exit Function
            End If
            If Cells(i, 1).Value > pg Then
            pg = Cells(i, 1).Value
 
            End If
        End If
    Next i

09/04/2009, 20h28
shaku

ça devrait aller , je te remercie infiniment pour ton aide :)

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