XL 2019 Convertir nombre en plusieurs chiffres

  • Initiateur de la discussion Initiateur de la discussion zaazaa23
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

zaazaa23

XLDnaute Nouveau
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.
 
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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
38
Affichages
2 K
Réponses
2
Affichages
489
Retour