Cellule décomposer en plusieurs cellules

Re : Cellule décomposer en plusieurs cellules

Hello,

Comme ceci... À coller dans un CommandButton par exemple. Il y a pleins d'exemples sur le net.

Re : Cellule décomposer en plusieurs cellules

Merci beaucoup Hulk...
ça fonctionne parfaitement.

Je te souhaite un bon weekend.

Tim

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