Fonction convertir

[CB60]

Bonsoir le Forum,
Pouvons nous convertir une chaine de caractere:
Exemple en 'A1' je peux avoir une valeur de 5 à 9 caracteres et je souhaite les décomposer dans les cellules adjacentes en commençant par le dernier caractere et non comme la fonction d'excel le permet avec le premier.c'est à dire le chiffre de 'A1' =123456789 en 'A2' je dois avoir 9 en 'A3' je dois avoir 8 .....
J'ai essayé les fonction droite, gauche, stxt.Tout cela, pour après calculer une clef informatique.
Merci
Bruno

 

[JeanMarie]

Bonjour

Essaye cette formule en A2, puis recopie vers le bas

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

@+Jean-Marie

 

[JC de Lorient]

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

 

[andré]

Salut,

Petite variante à la formule de JeanMarie :

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

Â+

 

[CB60]

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

 

[JeanMarie]

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

 

[CB60]

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