Convertir une cellule avec des lettres et des chiffres en deux cellules

Version imprimable

09/10/2009, 15h28
phagri

Convertir une cellule avec des lettres et des chiffres en deux cellules

Bonjour à toutes et à tous,

Je voudrais arriver à convertir une cellule avec une ou deux lettres suivi d'un nombre en deux cellules distinctes (une avec la ou les lettres et l'autre avec le nombre.
Il s'agit de références cadastrales.
Exemple dans la meme colonne, j'ai:

ad230
b159
ae38
f1258

et je voudrai obtenir:
ad;230
b;159
ae;38
f;1258

La fonction "convertir" du menu données ne convient pas car je n'ai pas de champ fixe ni d'espace ou de ;.
Merci d'avance pour vos réponses.
Cordialement

Bonjour,

une solution en vba :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
For i = 1 To Range("A65536").End(xlUp).Row
    texte_depart = Cells(i, 1).Value
    texte = ""
    longueur = Len(Cells(i, 1))
    For j = 1 To Len(Cells(i, 1))
        'texte = Left(Cells(i, 1), j)
        'MsgBox Mid(Cells(i, 1), j, 1)
            If Not IsNumeric(Mid(Cells(i, 1), j, 1)) Then
                texte = texte & Mid(Cells(i, 1), j, 1)
            Else
                Exit For
            End If
    Next j
    Cells(i, 1).Value = texte
    Cells(i, 2).Value = Right(texte_depart, longueur - Len(Cells(i, 1)))
Next i

Ce code fonctionne si les données sont en colonne A et commencent à la première ligne.

Attention : pas de gestion d'erreur.

@+

09/10/2009, 17h18
alsimbad

EN cherchant bien
un peu compliqué mais on y arrive
en supposant que n'as forcément que 1 ou 2 lettres
ta reference en A1
en B1 extraction des lettres

Citation:

=SI(SI(ESTNUM(CNUM(STXT(A1;2;1)));VRAI;FAUX);GAUCHE(A1;1);GAUCHE(A1;2))

en C1 extraction des chiffres

Citation:

=SI(SI(ESTNUM(CNUM(STXT(A1;2;1)));VRAI;FAUX);DROITE(A1;NBCAR(A1)-1);DROITE(A1;NBCAR(A1)-2))

tu dis si ça te vas
09/10/2009, 18h05
Nad-Dan

Bonjour

Pour extraire les lettres de gauche, quel que soit leur nombre :

Code:

=GAUCHE($A1;EQUIV(0;(ESTERREUR(STXT($A1;LIGNE(INDIRECT("1:"&NBCAR($A1)));1)*1)*1);0)-1)

Pour extraire les chiffres, quel que soit leur emplacement :

Code:

=STXT($A1;EQUIV(0;(ESTERREUR(STXT($A1;LIGNE(INDIRECT("1:"&NBCAR($A1)));1)*1)*1);0);NBCAR($A1)-SOMME((ESTERREUR(STXT($A1;LIGNE(INDIRECT("1:"&NBCAR($A1)));1)*1)*1)))

Ces deux formules sont MATRICIELLES : à valider avec CTRL+MAJ+ENTREE

Amicalement
Nad