XL 2019 Convertir nombre en plusieurs chiffres

[zaazaa23]

Bonjour à tous,
j'ai une demande assez particulière, de base je cherchais à le faire sur sheets mais j'ai beau cherché depuis plusieurs heures, impossibles, donc je me tourne du côté d'excel.

Je cherche à diviser le contenu d'une cellule par exemple "005130000" en plusieurs colonnes, une pour chaque chiffre.
Le problème est que la majorité des cellules que je veux convertir commence par des zéros et dans mon cas je suis obligé de les garder.

Merci du coup de main, si toutefois c'est réalisable.

 

[soan]

Bonjour zaazaa23,

bienvenue sur le site XLD !

ton fichier en retour ; tu peux voir que la feuille est vide.

* en A1, saisis "005130000" (sans les guillemets) et valide avec la touche Entrée ; vu ?

* efface ce que tu viens de saisir avec la touche Suppression ; ok ?

ça fonctionne pareil pour chaque ligne en dessous.

code VBA du module de "Feuil1" :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim vx$, n%, i%
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Column > 1 Then Exit Sub
    vx = .Value: n = Len(vx): Application.ScreenUpdating = 0
    If n = 0 Then Rows(.Row).ClearContents: Exit Sub
    For i = 1 To n: .Offset(, i) = Mid$(vx, i, 1): Next i
  End With
End Sub

si besoin, tu peux demander une adaptation.
à te lire pour avoir ton avis.

soan

 

[zaazaa23]

J'ai trouvé une solution avec la fonction mid, elle buggait sur sheets à cause d'une histoire de , et ; dans les formats usa/france...
Je vais tester ta méthode.

Merci de la réponse

 

[R@chid]

Bonjour @ tous,
en B1 :

=STXT($A1;COLONNES($B:B);1)

@ tirer vers la droite puis vers le bas


Cordialement