Décomposition de cellules

laurent · 3 Octobre 2003

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 · 3 Octobre 2003

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 · 4 Octobre 2003

Bonsoir,

Sur 1101 lignes moins de 10 secondes. Merci

Celeda

Décomposition de cellules

laurent

Guest

michel

Guest

Celeda

Guest

Discussions similaires