séparer des caractères

  • Initiateur de la discussion Initiateur de la discussion Essouabni
  • 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 !

E

Essouabni

Guest
Bonjour,

est ce quelqu'un saurait comment récupérer les caractères d'une cellule qui ne sont pas séparés par des espaces.

Par exemple, la cellule A1 a la valeur 00111100, je voudrais l'éclater dans les colonnes qui suivent : A2 a lavaleur 0, A3 a la valeur 0, A4 a la valeur 1, .....etc

J'espère que c clair

N.B : J'ai essayé d'utiliser la propriété Characters mais ça n'a pas marché.

Merci pour vos réponses


A.Essouabni
 
précision

Juste une petite précision,


Je ne peux pas utiliser "text to column" du menu "data" car c la formule et non pas la valeur de la cellule qu'il me propose à séparer.

Y aurait-il une autre méthode??





Merci d'avance pour votre aide.


A.Essouabni
 
Hello le forum,

Par formule c'est possible :
en A2 : =STXT($A$1;LIGNE();1)

Tu recopies cette formule en autant de lignes qu'il y a de caractères dans ta cellule A1.

Explication : STXT sert à extraire une chaine de caractère dans une cellule.

=STXT(Cellule;Position Caractère Début;Nombre de caractères à extraire).

Bon courage
Baroude
 
Bonsoir,

Comme l'avait expliqué Cathy. Excel dispose d'un assistant, qui fait exactement ce que tu demande. Sélectionne la plage des cellules à convertir, clique sur le menu données/convertir, dans la boîte de dialogue tu mets largeur fixe, et clique sur suivant, mets des séparateurs aux endroits désirés, et valide.

Bonne soirée.

Encore Merci à Cathy pour m'avoir fait découvrir cet assistant.

@+Jean-Marie
 
Bonjour le forum

Voila Essouabni avec une macro

Option Explicit
Sub bin_sur_cell()
Dim i As Double, j As Double
Dim valeur As String
For i = 1 To Range("a65535").End(xlUp).Row
valeur = Cells(i, 1)
For j = 1 To Len(valeur)
Cells(i, j + 1).NumberFormat = "@"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Cells(i, j + 1) = Mid(valeur, j, 1)
Next j
Next i
End Sub

Mytå

P.S. Tu avait deja demander un exemple de se genre sur le lien
Lien supprimé
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
10
Affichages
149
Retour