Fonction convertir

JeanMarie

XLDnaute Barbatruc

• 1 Juin 2006

• #2

Bonjour

Essaye cette formule en A2, puis recopie vers le bas

Code:

=SI(LIGNES($A$2:$A2)<=NBCAR(A$1);1*STXT(A$1;NBCAR(A$1)+2-LIGNE();1);'')

@+Jean-Marie

 

Vote positif 0 Vote négatif

JC de Lorient

XLDnaute Impliqué

• 1 Juin 2006

• #3

salut à tous
une autre possibilité en VBA
si tes données sont en colonne A
Sub essai()
Dim cel As Range
Dim x, y As Byte
For Each cel In Range('a1:a' & Range('a65536').End(xlUp).Row)
y = 1
For x = Len(cel) To 1 Step -1
cel.Offset(0, y) = Mid(cel, x, 1)
y = y + 1
Next
Next
End Sub

 

Vote positif 0 Vote négatif

A

andré

XLDnaute Barbatruc

• 1 Juin 2006

• #4

Salut,

Petite variante à la formule de JeanMarie :

=SI(LIGNE()-1>NBCAR(A$1);'';STXT($A$1;NBCAR(A$1)-LIGNE()+2;1))

Â+

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 1 Juin 2006

• #5

Resolu:Fonction convertir

Bonsoir le Forum,Jean Marie,JC de Lorient et André
Formidable, j'ai fais des test avec les trois formules et en plus ça 'Marche', petit bémol pour celle de JM qui m'indique valeur si j'ai moins de 9 chiffres.
C'est Super!!!!
Bruno

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 1 Juin 2006

• #6

Re:Resolu:Fonction convertir

Re...

Je viens de tester, je ne vois pas le message d'erreur que tu signales.

Le message ne peut provenir que si tu as dans la valeur A1, un caractère non numérique. Ma formule retourne des valeurs numériques, celle d'André retourne des caractères sous formes de texte, et le code VBA retourne sous forme horizontale les caractères.

Soit plus précis la prochaine.

@+Jean-Marie

Message édité par: JeanMarie, à: 01/06/2006 19:03

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 1 Juin 2006

• #7

Re:Resolu:Fonction convertir

Re,
Jean Marie je ne sais pas si je me suis mal exprimé, mais ta formule fonctionne et je t'en remercie et je ne sais pas pourquoi l'erreur que je te montre si dessous apparait.
=SI(LIGNES($B10:$B10)<=NBCAR(A$4);1*STXT(A$4;NBCAR(A$4)+2-LIGNE();1);'')
CLEF ETIQUETTE
N° ETIQUETTE
12 345 678
8
7
6
5
4
3
2
1
#VALEUR!
J'ai peut être mal adapté ton code?
Merci à vous trois

 

Vote positif 0 Vote négatif