jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 29 nov. 2008 à 10:15
Salut,
Tiens regarde ce que tu peux faire de cela.
'on va passer tout les labels en revue.
'On part du principe qu'il contiennent effectivement
'des chiffre (pas de test)
Dim i As Integer
Dim NumIdx As Integer
Dim MaxVal As Integer
MaxVal = 0
For i = 0 To 9
If Val(Label_prix(i).Caption) > MaxVal Then
NumIdx = i
MaxVal = Label_prix(i).Caption
End If
Next
MsgBox " La somme la plus élevée est: " & MaxVal & vbNewLine & " c'est Label_prix(" & NumIdx & ")"