Bonjour,

j'ai un code qui me permet de sélectionner un à un les mots d'un texte pour pouvoir ensuite les inscrire dans un tableau :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
        For iCar = 1 To lgTexte
            car = Mid(LCase(TextBox4.Text), iCar, 1)
            If Not marqMot And InStr(1, LETTRE, car) > 0 Then '1ère lettre d un mot
                nbMots = nbMots + 1
                marqMot = True
            ElseIf marqMot And InStr(CAR_SEP, car) > 0 Then  '1er caractère derrière un mot
                marqMot = False
            End If
            If InStr(1, LETTRE, car) <> 0 Then
                ReDim Preserve Mots(0 To nbMots)
                Mots(nbMots) &= car 'lit le mot et le met dans le tableau
            End If
	 Next
Le problème est qu'il ne respecte pas la casse et que j'aimerai conserver les majuscules. Auriez-vous une solution à m'apporter? Merci d'avance,

Arsene