Bonjour,

je dois générer un tableau avec comme indice inferieur 1 et non 0. Pour cela, j'utilise l'option base 1.
J'ai fait un mini projet pour tester l'option base 1 :

****************************************
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
Option Base 1
 
Dim T() As String
Dim T1 As String
Dim i As Integer
 
Private Sub Command1_Click()
 
T1 = "1,2,3,4,5"
 
T = Split(T1, ",")
 
Debug.Print LBound(T) & " : " & UBound(T)
 
For i = LBound(T) To UBound(T)
 Debug.Print T(i)
Next i
 
End Sub
****************************************

Mon indice inférieur est toujours 0 au lieu de 1 ?!

merci de votre aide.