disocier caractere alpha de num dans cellule

[bignou77]

Bonjour,

Grace au forum et a ces membre j'avance de jour en jour.
Mais la je bloque et ne trouve pas avec l'aide recherche.
Je m'explique
dans une cellule j'ai une valeur qui change mais ce presente toujours de la meme facon : 'caractere alpha' 'caractere num' sans espace entre les 2
exemple : GG034565, EK23, AZERT3461

le nombre de lettres et le nombre de chiffres peu varier, et je peu meme avoir pire soit par exemple : FDE123/5

et ce que je recherche c'est d'extraire dans une autre cellule les caracteres alpha dans une autre cellule

pour que ca donne mpar exemple:
A1 :
FDE123/5
A2 :
FDE

ou

A1 :
EK23
A2 :
EK


Voila je pense avoir tous detailler. que ce soit en VBA ou pas pas de souci.

Merci d'avance aux membres qui prendrons le temps de regarder et de chercher une solution.

 

[dixit]

Re : disocier caractere alpha de num dans cellule

bonjour,
voici une proposition avec macro : il suffit de la lancer pour obtenir le résultat en colonne B
s'il faut des commentaires, le dire.

 

[michel_m]

Re : disocier caractere alpha de num dans cellule

Bonjour Bignou, Dixit,

Une alternative pour le fun avec les expressions régulières (c'est dimanche)

 

[Ti_]

Re : disocier caractere alpha de num dans cellule

salut

1. une solution par formule

=GAUCHE(A1;SOMMEPROD(MIN(SI(ESTERREUR(TROUVE({0;1;2;3;4;5;6;7;8;9};A1));10^4;TROUVE({0;1;2;3;4;5;6;7;8;9};A1)))-1))

Le SOMMEPROD n'est là que pour ne pas avoir à valider en matricielle.

2. Pour ceux qui veulent absolument du VBA (inutile chaque fois qu'on peut avoir la même chose en formules), il vaut mieux de toute façon privilégier une fonction personnalisée plutôt qu'une Sub à valider "à la main"

Function TraiteChaine$(ByVal Str$) 'Ti
Dim Bcle%, Idx%
For Bcle = 1 To Len(Str)
Idx = InStr(1, "0123456789", Mid$(Str, (Bcle), 1))
If Idx > 0 Then TraiteChaine = Left$(Str, Bcle - 1): Exit Function
Next Bcle
End Function

Ensuite on l'appelle directement depuis la cellule
=TraiteChaine(A1)

 

[bignou77]

Re : disocier caractere alpha de num dans cellule

Re,
Un enorme merci a vous deux, Dixit et Michel_m.

Je ne m'attendais pas a une reponse aussi rapide pour un dimanche, mais la c'est TOP.

Et avec les 2 ca le fait en plus il ne me reste plus qu'a choisir (et francement je ne sais pas encore la solution que je vais prendre)

vraiment merci a vous 2.

bon dimanche.

 

[bignou77]

Re : disocier caractere alpha de num dans cellule

Re,
Desolé Ti_, tu as du poster en meme temps que moi.
Je regarde ta soluce egalement et je choisirais apres.

Merci