XL 2016 Fonction pour une cellule

[Grégory1313]

Bonjour tout le monde,

J'ai besoin de vous car je galère à trouver une formule pour éliminer les lettres ou les chiffres dans une série de cellules.
J'ai dans une cellule par exemple DRAP1245, et je ne veux garder que DRAP ou 1245. Comment faire avec une fonction ?
Elément important sinon ça ne serait pas drôle, le nombre de lettre ou de chiffres n'est pas fixe. Donc les GAUCHE, DROITE, … ne fonctionnent pas

Par avance merci de votre aide

 

[Jocelyn]

Bonjour le Forum,
Bonjour Grégory1313,

Un exemple par formule matricielle

Cordialement

 

[bcharef]

Bonjour Grégory1313
Bonjour à toutes et à tous.

Voici un essai le texte en A1 et la formule en B1

=--STXT(A1;MIN(SI(ESTNUM(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)*1)*
LIGNE(INDIRECT("1:"&NBCAR(A1)))<>0;ESTNUM(STXT(A1;LIGNE(INDIRECT("1:"&
NBCAR(A1)));1)*1)*LIGNE(INDIRECT("1:"&NBCAR(A1)))));MAX(ESTNUM(STXT(A1;
LIGNE(INDIRECT("1:"&NBCAR(A1)));1)*1)*LIGNE(INDIRECT("1:"&NBCAR(A1))))-MIN(SI(
ESTNUM(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)*1)*LIGNE(INDIRECT("1:"&
NBCAR(A1)))<>0;ESTNUM(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)*1)*LIGNE(
INDIRECT("1:"&NBCAR(A1)))))+1)

Formule matricielle à valider par CTRL + MAJ + ENTREE

Salutations.

Edit : Bonjour Jocelyne

 

[Grégory1313]

Bonjour Jocelyn,

Merci de ta réponse, mais quand je copie colle ta fonction, que je mets ma cellule de référence qui pour moi est E2 par exemple j'ai message d'erreur valeur
Pourquoi ?

 

[Grégory1313]

Bonjour bcharef

Merci à toi aussi pour ton retour, mais quand je colle ta formule il me laisse du texte il ne fait pas une formule

 

[Jocelyn]

re,
Bonjour bcharef,

ma formule doit etre validée en appuyant simultanément sur les touche CTRL, Maj (au dessus de CTRL) et entrée tout comme celle de bcharef

tu mets ta formule dans la cellule qui te convient en modifiant les cellules de référence et en laissant ton curseur dans la barre de formule tu fais la validation indiquée au dessus

Cordialement

 

[Grégory1313]

Vous êtes tous des bêtes …..
Merci effectivement ça fonctionne.

J'en profite tant qu'on est en ligne, maintenant que j'ai récupérer ces chiffres, il me faut leur rajouter devant tous le code interne pour moi OG. On fait comment ?

 

[Jocelyn]

re,

revoilà le fichier avec la modification de la formule toujours matricielle

Cordialement

 

[Grégory1313]

Tu es un killer
Merci tu m'as fait gagner un temps précieux ce matin

 

[Modeste geedee]

Bonsour®

Tu es un killer
Merci tu m'as fait gagner un temps précieux ce matin

une formule pour éliminer les lettres ou les chiffres

envisagez l'usage d'une fonction personnalisée :

Function Alpha_Num(Target As Range, Optional Quoi As Boolean)
Dim i As Integer, Chaine As String, Extract As String
Dim Alpha As String, Nume As String
Chaine = Target.Text
For i = 1 To Len(Chaine)
        Extract = Mid(Chaine, i, 1)
        If IsNumeric(Extract) Then
                Nume = Nume & Extract
        Else
                Alpha = Alpha & Extract
        End If
Next
Alpha_Num = IIf(Quoi = True, Alpha, Nume)
End Function