Discussion :

[scor07]

Bonjour,
pouvez vous m'aider à résoudre le problème suivant:
La cellule A1 contient un texte dont la taille varie je veux qu'il soit subdivisé en caractères qui le compose et prenne place dans les cellules A2,A3,A4... selon la longueur du texte???
Merci

[Attrox]

Je pense que comme dans la plus par des langages de programmation les variables string en vba peuvent être traité comme des tableaux

Exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
dim maVariable as String
maVariable=salut
 
 
maVariable[0] //sera égale a 's'
maVariable[1] //sera égale a 'a'
maVariable[2] //sera égale a 'l'
maVariable[3] //sera égale a 'u'
maVariable[4] //sera égale a 't'

[scor07]

Merci de votre réponse mais j'ai deux questions:
- comment insérer ce code dans ma feuille?
- la valeur "salut" que vous avez avez proposé varie elle saisie par l'utilisateur dans la cellule A1?
Merci de vouloir préciser les étapes avec précision?

[Attrox]

il faut que tu mette la cellule A1 dans ta variable maVariable.
Ensuite tu fait une boucle de type for i=0 to tailleDeMaVariable qui écrit maVariable[i] dans les cellules A i+2.

[scor07]

Je ne comprend pas bien je n'ai jamais fais de code vba veuillez s'il vous plait me décrire avec plus de détaille toutes les étapes et merci beaucoup

[scor07]

Je suis arrivé à créer un bouton au quel j'ai associé le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
Dim maVariable As String
Dim j As Integer
Dim taille As Integer
maVariable = Range("A1")
taille = Len(maVariable)
For j = 0 To taille
Range(Aj + 2).Value = maVariable [j]
Next j
End Sub

mais je reçois erreur de syntaxe au niveau de maVariable [j]
j'ai changé les crochets par des parenthèses et je reçois un message erreur de compilation tableau inattendu!!

[SilkyRoad]

bonjour,

un autre exemple, à adapter, qui découpe une chaine de caractères sans couper les mots :

http://silkyroad.developpez.com/VBA/...racteres/#LI-U

bonne journée
michel

[scor07]

Merci Infiniment pour vos proposition qui m'ont aidé à résoudre mon pb et merci à developpez.com de nous avoir donné l'occasion d'échanger et dévolpper nos connaissance en programmation et autre.

[zina_alger]

en a1 le texte
en a2 la formule suivante :=STXT(A1;1;1)
en a3 la formule suivante :=STXT($A$1;NBCAR(A2)+LIGNE()-2;1)
puis tu recopie la formule palce en a3 dans toutes la longueur de la colonnes