Discussion :

[breizou]

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.

[littledoudou]

bonjour,

selon MSDN, Split renvoie toujours un tableau base 0:

Returns a zero-based, one-dimensional array containing a specified number of substrings.

il faut donc alimenter ton tableau base 1 avec le tableau base 0 du Split:

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
21
Option Explicit
Option Base 1
 
Private Sub Command1_Click()
    Dim strTableauSplit() As String
    Dim strTableauBase1() As String
    Dim strChaine As String
    Dim i As Integer
 
    strChaine = "1,2,3,4,5"
 
    strTableauSplit= Split(strChaine, ",")
    '--> strTableauSplit de 0 à 4
 
    ReDim strTableauBase1(UBound(strTableauSplit) + 1)
    '--> strTableauBase1 de 1 à 5
 
    For i = 0 To UBound(strTableauSplit)
        strTableauBase1(i + 1) = strTableauSplit(i)
    Next i
End Sub

cdlt,