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

Statistiques des forums

Discussions
314 017
Messages
2 104 577
Membres
109 081
dernier inscrit
Vio21