Discussion :

[toto2022]

Bonjour à tous,
voila je voudrais créer une fonction qui me decoupe une chaine caractère par caractère et qui me range les caractères dans un tableau (1 case pour 1 caractère).
Voila ma fonction decoupe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Function cut(chaine As String)
 
Dim i As Integer
Dim n As Integer
Dim tabInt() As String
n = 0
For i = 1 To Len(chaine) Step 1
tabInt(i) = Mid(chaine, 1 + n, 1)
n = n + 1
Next i
End Function

sauf que je ne vois pas comment faire pour qu'elle renvoie un tableau!
merci de votre aide!

[ThierryAIM]

Ben tu l'as déjà fait sans le savoir

Il te suffit de rajouter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Function cut(chaine As String)
Dim i As Integer
Dim n As Integer
Dim tabInt() As String
    n = 0
    For i = 1 To Len(chaine) Step 1
        ReDim Preserve tabInt(i) '--- Pour redimensionner le tableau
        tabInt(i) = Mid(chaine, 1 + n, 1)
        n = n + 1
    Next i
    cut = tabInt '--- Pour le retour de la Fonction
End Function

et de l'appeler par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim Montabcut() As String
Montabcut() = cut("MaChaine")
    For i = 0 To UBound(Montabcut)
        Debug.Print Montabcut(i)
    Next

pour le tableau soit renvoyé ByRef

[toto2022]

ah ouais!
merci!!