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!