Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

séparer des caractères

  • Initiateur de la discussion Essouabni
  • Date de début
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
 
E

Essouabni

Guest
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
 
B

Baroude

Guest
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
 
J

Jean-Marie

Guest
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
 
M

Mytå

Guest
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é
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…