Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim lmax As Integer Dim i As Integer lmax = CInt(List10.List(0)) For i = 1 To List10.ListCount - 1 If CInt(List10.List(i)) > lmax Then lmax = CInt(List10.List(i)) Text1.Text = CStr(lmax) End If Next i
Dim lmax as Integer, valeur as Integer Dim i As Integer lmax = Val(List10.List(0)) For i = 1 To List10.ListCount - 1 valeur = Val(List10.List(i)) If valeur > lmax Then lmax = Val(List10.List(i)) Text1.Text = Cstr(lmax) End If Next i
je continue a regarder et j écoute malgré ce que beaucoup pense
Dim lmax as Integer, valeur as Integer Dim i As Integer lmax = Val(List10.List(0)) For i = 1 To List10.ListCount - 1 valeur = Val(List10.List(i)) If valeur > lmax Then lmax = Val(List10.List(i)) Text1.Text = Cstr(lmax) End If Next i
'valeur maxi Dim lmax As Integer, valeur As Integer Dim i As Integer lmax = Val(List10.List(0)) For i = 1 To List10.ListCount - 1 valeur = Val(List10.List(i)) If valeur > lmax Then lmax = Val(List10.List(i)) Text1.Text = CStr(lmax) End If Next ij espere que c est cela maintenant
il faut juste expliquer correctement
encore merci a VB95 qui lui ce mets au niveau des moins doue c est cela etre bénévoles et c est comme cela que l'on avance
8 févr. 2019 à 19:06
Que contient exactement ta liste : des valeurs entières (Integer) comme 10 puis 14 puis 225 puis 47 ou alors des valeurs décimales comme 12, 54 puis 27,45 puis 145, 12 par exemples ?