Décomposition de cellules

[laurent]

Bonjour,

Je pense que la solution du problème est facile mais il faut avoir de l'imagination ce que je n'ai pas ...

Dans une cellule excel jai du texte de longueur (ie nombre de caractère)connue. Ex : toto de longueur 4 dans la cellule A1.
maintenant je voudrait mettre chacun des caractères dans une colonne.
Ex: t dans la cellule B1, o dans la cellule C1, t dans la cellule D1, o dans la cellule E1
Bien évidement quelque chose d'optimisée (vade retro les boucles for)serait souhaitable car j'aurais plus de 900 cellules à décomposer comme ça !

Merci par avance

Laurent

 

[michel]

Bonsoir laurent

peux tu tester la procédure ci joint

Sub TrierLettres()
Dim cell As Range
Dim compteur As Integer
For Each cell In Range("a1", Range("a65536").End(xlUp))
For compteur = 1 To Len(cell)
cell.Offset(0, compteur) = Mid(cell, compteur, 1)
Next
Next
End Sub


je n'ai pas testé les temps de réponses pour plus de 100 lignes de calcul . j'espere que cela pourra t'aider

bonne soirée
Michel

 

[Celeda]

Bonsoir,

Sur 1101 lignes moins de 10 secondes. Merci

Celeda