Cellule décomposer en plusieurs cellules

[timtof]

bonjour à tous,

je viens vers vous car je n'y arrive pas...

j'ai dans une cellule "A1" un nom "Durant", j'aimerai arriver à ce résultat par une petite macro

en "B1"= D
en "B2"= u
en "B3"= r
etc...
en "B6"= t

tout simplement mais voilà je bute...
Je vous remercie d'avance pour votre aide.

Tim

 

[Hulk]

Re : Cellule décomposer en plusieurs cellules

Hello,

Comme ceci... À coller dans un CommandButton par exemple.

    Dim nbrCaracteresMot As Long
    Dim motExplose As String

    nbrCaracteresMot = Len(Cells(1, 1).Value)
    
    For i = 1 To nbrCaracteresMot
        motExplose = Mid(Cells(1, 1).Value, i, 1)
        Cells(1, 1).Offset(i - 1, 1).Value = motExplose
    Next

Il y a pleins d'exemples sur le net.

 

[timtof]

Re : Cellule décomposer en plusieurs cellules

Merci beaucoup Hulk...
ça fonctionne parfaitement.

Je te souhaite un bon weekend.

Tim

 

[timtof]

Re : Cellule décomposer en plusieurs cellules

j'ai une autre question:

Private Sub CommandButton1_Click()
Dim nbrCaracteresMot As Long
Dim Montant As String

nbrCaracteresMot = Len(Cells(1, 1).Value)

For i = 1 To nbrCaracteresMot
motExplose = Mid(Cells(1, 1).Value, i, 1)
Cells(1, 1).Offset(i - 1, 1).Value = motExplose
Next

end sub

alors en A1=1000,00€ le résultat me donne 1000 après traitement, il oublie la virgule et les 2 décimales. Alors que j'aimerai les garder après traitement.

Si qq1 peut m'aider, ce serait gentil.

Tim