1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| Private Sub Command1_Click()
Dim toto()
MsgBox "pas initialisé ====> " & lebound(Not toto, toto, "bornesup", 1)
MsgBox "pas initialisé ====> " & lebound(Not toto, toto, "borneinf", 1)
Dim titi(6, 2 To 8, 1 To 15)
MsgBox lebound(Not titi, titi, "borneinf", 1)
MsgBox lebound(Not titi, titi, "bornesup", 1)
MsgBox lebound(Not titi, titi, "borneinf", 2)
MsgBox lebound(Not titi, titi, "bornesup", 2)
MsgBox lebound(Not titi, titi, "borneinf", 3)
MsgBox lebound(Not titi, titi, "bornesup", 3)
End Sub
Private Function lebound(quoi, qui, borne As String, dimen As Integer) As Integer
Dim i As Integer, blabla As Integer
If Not quoi Then
i = 1
Do While UBound(qui, i) > 0
DoEvents
On Error Resume Next
blabla = UBound(qui, i)
If Err Then Exit Do
i = i + 1
Loop
If i - 1 >= dimen Then
Select Case borne
Case "bornesup"
lebound = UBound(qui, dimen)
Case "borneinf"
lebound = LBound(qui, dimen)
End Select
End If
End If
End Function |
Partager