Sub testMinMax()
Dim Tabtemp As Variant
Dim L As Integer, L2 As Integer
Dim Tmp As Variant, Tmp1 As Variant, Tmp2 As Variant, Tmp3 As Variant
Tabtemp = Range("A2: D" & Range("A65536").End(xlUp).Row).Value 'pas d'espace entre : et D
For L = 1 To UBound(Tabtemp, 1)
For L2 = L + 1 To UBound(Tabtemp, 1)
If Tabtemp(L2, 3) < Tabtemp(L, 3) Then
Tmp = Tabtemp(L, 1): Tabtemp(L, 1) = Tabtemp(L2, 1): Tabtemp(L2, 1) = Tmp
Tmp1 = Tabtemp(L, 2): Tabtemp(L, 2) = Tabtemp(L2, 2): Tabtemp(L2, 2) = Tmp1
Tmp2 = Tabtemp(L, 3): Tabtemp(L, 3) = Tabtemp(L2, 3): Tabtemp(L2, 3) = Tmp2
Tmp3 = Tabtemp(L, 4): Tabtemp(L, 4) = Tabtemp(L2, 4): Tabtemp(L2, 4) = Tmp3
End If
Next
Next
'ici affichage du Max et de la ligne
MsgBox "Le Maxi est: " & Tabtemp(UBound(Tabtemp, 1), 3) & Chr(13) & Chr(13) & "Ligne :" & Tabtemp(UBound(Tabtemp, 1), 4), , "Le Maximun"
'ici affichage du Min et de la ligne
MsgBox "Le Minimun est :" & Tabtemp(LBound(Tabtemp, 1), 3) & Chr(13) & Chr(13) & "Ligne :" & Tabtemp(LBound(Tabtemp, 1), 4), , "Le Minimun"
'ici différence des deux voltages Ligne Max et ligne Max moins 1
MsgBox "La différence Voltage : " & Tabtemp(UBound(Tabtemp, 1), 2) - Tabtemp(UBound(Tabtemp, 1) - 1, 2)
End Sub