Extraire un caractère en VBA
farell23
-
ratikuss Messages postés 1996 Date d'inscription Statut Membre Dernière intervention -
ratikuss Messages postés 1996 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai un petit problème sur un devoir en vba...
Je doit placer chaque caractère d'une chaine dans un tableau, mais ça ne marche pas...
Voilà un bout de mon code :
*************************************************
Public Sub FindTheWord()
Dim unword As String
Dim tabw(4) As String
Dim i, j As Integer
...
i = 0
j = 1
For i = 0 To 4 Step 1
tabw(i) = Mid(unword, j, [1])
j = j + 1
Next
**************************************************
La chaine unword est composé de 5 caractère (j'utilise la fonction len pour le vérifier).
Aucune lettre n'est placé dans le tableau. Quelqu'un pourrait-il m'aider un peu ?
J'ai un petit problème sur un devoir en vba...
Je doit placer chaque caractère d'une chaine dans un tableau, mais ça ne marche pas...
Voilà un bout de mon code :
*************************************************
Public Sub FindTheWord()
Dim unword As String
Dim tabw(4) As String
Dim i, j As Integer
...
i = 0
j = 1
For i = 0 To 4 Step 1
tabw(i) = Mid(unword, j, [1])
j = j + 1
Next
**************************************************
La chaine unword est composé de 5 caractère (j'utilise la fonction len pour le vérifier).
Aucune lettre n'est placé dans le tableau. Quelqu'un pourrait-il m'aider un peu ?
A voir également:
- Extraire un caractère en VBA
- Caractère ascii - Guide
- Extraire une video youtube - Guide
- Caractère spéciaux - Guide
- Caractere speciaux - Guide
- Extraire le son d'une vidéo - Guide
6 réponses
J'ai fait ça et ça marche de mon coté.
j'ai mis une chaine de caractère dans la case D1 et ensuite ça me met les 5 caractères de A1 à A5.
Dim unword As String
Dim tabw(4) As String
Dim i, j As Integer
unword = Range("D1")
i = 0
j = 1
For i = 0 To 4 Step 1
tabw(i) = Mid(unword, j, [1])
j = j + 1
Cells(i + 1, 1) = tabw(i)
Next i
j'ai mis une chaine de caractère dans la case D1 et ensuite ça me met les 5 caractères de A1 à A5.
Merci pour la réponse, mais je crois que j'ai été un peu floue dans les explications. En fait je ne doit pas mettre le lettres dans les cellules d'un tableau excel, mais dans un tableau déclaré dans les variables. Il a une largeur de 5 pour contenir chacune des lettres.
Les valeurs sont déjà dans ta variable tabw(i)
Je n'ai fait que les extraire vers un tableau excel, ce qui veut dire que tabw(i) contient bien tes 5 caractères.
Je n'ai fait que les extraire vers un tableau excel, ce qui veut dire que tabw(i) contient bien tes 5 caractères.
Donc le tableau contient les valeurs même si elle ne sont pas indiqué lorsque l'on fait tourné le programme pas à pas ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question