Salut le forum,
je tente d'obtenir le rang d'une valeur dans un code VBA sans passer par une cellule.
Private Sub BTN_tirage_Click()
Dim v1 As Integer, v2 As Integer, v3 As Integer, v4 As Integer, v5 As Integer, v6 As Integer
Dim valeurs(1 To 6) As Long
Randomize
valeurs(1) = Int(Rnd * 100000)
valeurs(2) = Int(Rnd * 100000)
valeurs(3) = Int(Rnd * 100000)
valeurs(4) = Int(Rnd * 100000)
valeurs(5) = Int(Rnd * 100000)
valeurs(6) = Int(Rnd * 100000)
v1 = Application.WorksheetFunction.Rank(valeurs(1), valeurs, 0)
LBL_tirage_j1.Caption = v1
LBL_tirage_j2.Caption = v2
LBL_tirage_j3.Caption = v3
LBL_tirage_j4.Caption = v4
LBL_tirage_j5.Caption = v5
LBL_tirage_j6.Caption = v6
End Sub
Dans la ligne v1 = Application.WorksheetFunction.Rank(valeurs(1), valeurs, 0), le terme valeurs me cause une erreur.
Merci pour votre aide.