XL 2019 Convertir nombre en plusieurs chiffres

zaazaa23 · 25 Avril 2021

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 · 25 Avril 2021

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" :

VB:

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 · 25 Avril 2021

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 · 25 Avril 2021

Bonjour @ tous,
en B1 :

VB:

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

@ tirer vers la droite puis vers le bas

Cordialement

XL 2019 Convertir nombre en plusieurs chiffres

zaazaa23

XLDnaute Nouveau

soan

XLDnaute Barbatruc

Pièces jointes

zaazaa23

XLDnaute Nouveau

R@chid

XLDnaute Barbatruc

Discussions similaires