XL 2010 Créer une forumle pour garder que les nombres et supprimer les lettres

Tony.R · 6 Août 2021

Bonjour,

J'essaye de trouver une formule ( et non un vba) pour supprimer les lettres et garder que les chiffres.

Voici un exemple de ce dont j'ai et ce à quoi je veux tendre:

ACR65 -> 65
CAX303 -> 303
gxqk0580 -> 580
acr54L42 -> 54
VADcr82 -> 82
54 -> 54
00000ACR -> rien
A -> rien
ACR -> rien

Comme vous pouvez le voir il peut y avoir des Majuscules comme des minuscules, si des chiffres se trouvent après une série de chiffre puis des lettres comme dans l'exemple acr54L42 dans l'idéale, je voudrais garder que les 54 (si cela n'est pas possible alors 5442 serait bon aussi)

J'ai besoin d'une formule et non d'un VBA.

Merci par avance pour votre aide rapide.
Cdt Tony

Jocelyn · 6 Août 2021

Bonjour le Forum
Bonjour Tony.R

un essai en fichier joint

Cordialement

Tony.R · 6 Août 2021

Jocelyn à dit:
Bonjour le Forum
Bonjour Tony.R

un essai en fichier joint

Cordialement

Merci Jocelyn pour ton retour,

Cette formule à l'air de fonctionner mais pas totalement j'ai un soucis pour l'image ci-dessous. J'aurais dû avoir 180 - 180 -189

et pour le cas de figure 00000ACR je dois rien avoir or là j'ai "0".

Le "0" au début ne doit pas être concidéré comme un chiffre c'est pour cela que dans mes exemple 00ACR180 je dois me retrouvé avec 180.

Merci pour ton retour

Cdt

Jocelyn · 6 Août 2021

re,

Peut être comme cela alors toujours en matricielle

Cordialement

Tony.R · 6 Août 2021

Jocelyn à dit:
re,

Peut être comme cela alors toujours en matricielle

Cordialement

On y est presque

C'est bizarre, pour les 6 premières ligne je devrais avoir 180 - 180 - 189 -190 -300 -302 .
Pourtant pour le reste ça à l'air bon comme par exemple les 3 dernières ligne où j'ai bien 180 - 180 - 18000.

En gros les 0 avant l'existant pas mais les 0 après existe :
exemple : 0123 = 123
1230 = 1230

Cdt

Dranreb · 6 Août 2021

Bonjour

Tony.R à dit:
J'ai besoin d'une formule et non d'un VBA.

L'un n'empêche pas l'autre et ceci est quand même plus court :

Code:

=NumExtrait(A1)

Avec, dans un module standard :

VB:

Function NumExtrait(ByVal Txt As String) As Double
   Dim P As Integer
   For P = 1 To Len(Txt)
      If Mid$(Txt, P, 1) <> "0" Then Exit For
      Next P
   If P > Len(Txt) Then Exit Function
   If P > 1 Then Txt = Mid$(Txt, P)
   For P = 1 To Len(Txt)
      If Mid$(Txt, P, 1) Like "#" Then Exit For
      Next P
   NumExtrait = Val(Mid$(Txt, P))
   End Function

Tony.R · 6 Août 2021

Dranreb à dit:

Bonjour

L'un n'empêche pas l'autre et ceci est quand même plus court :

Code:

=NumExtrait(A1)

Avec, dans un module standard :

VB:

Function NumExtrait(ByVal Txt As String) As Double
   Dim P As Integer
   For P = 1 To Len(Txt)
      If Mid$(Txt, P, 1) <> "0" Then Exit For
      Next P
   If P > Len(Txt) Then Exit Function
   If P > 1 Then Txt = Mid$(Txt, P)
   For P = 1 To Len(Txt)
      If Mid$(Txt, P, 1) Like "#" Then Exit For
      Next P
   NumExtrait = Val(Mid$(Txt, P))
   End Function

Merci pour ton retour, j'ai réellement besoin de formule et non de VBA c'est une donnée importante.

De plus ta formule ne fonctionne pas …

cdt

Dranreb · 6 Août 2021

Mais c'est une formule, mais qui utilise une fonction perso écrite en VBA, et non une macro VBA à exécuter si c'était seulement ça que vous ne vouliez pas ! Évidemment si c'est le contexte qui empêche l'utilisation de toute forme de programmation VBA … Mais pourquoi ?

Tony.R · 6 Août 2021

Dranreb à dit:
Mais c'est une formule, mais qui utilise une fonction perso écrite en VBA, et non une macro VBA à exécuter si c'était seulement ça que vous ne vouliez pas ! Évidemment si c'est le contexte qui empêche l'utilisation de toute forme de programmation VBA … Mais pourquoi ?

Car je vais transcrire cela en web intelligence

Tony.R · 6 Août 2021

Jocelyn à dit:
re,

Peut être comme cela alors toujours en matricielle

Cordialement

Si nous pouvons continuer car nous y sommes vraiment presque

Jocelyn · 6 Août 2021

re,
Bonjour Dranreb,

Dranreb oui bien plus court mais bon comme d"hab je fais des formules capillotractées

Tony.r en considérant que tu dis que seules les 6 premieres lignes ne donnent pas le bon résultat sans fichier joint je ne vois pas ce qu'il faudrait corriger
Sur l'image je ne vois que le résultat et en aucunes manière la raison qui peut générer une erreur

Cordialement

Tony.R · 6 Août 2021

Jocelyn à dit:
re,
Bonjour Dranreb,

Dranreb oui bien plus court mais bon comme d"hab je fais des formules capillotractées

Tony.r en considérant que tu dis que seules les 6 premieres lignes ne donnent pas le bon résultat sans fichier joint je ne vois pas ce qu'il faudrait corriger
Sur l'image je ne vois que le résultat et en aucunes manière la raison qui peut générer une erreur

Cordialement

Voici le fichier joint. Seule les premières lignes ne fonctionnent pas à moins que j'ai moi même fait une erreur …

Cdt

Jocelyn · 6 Août 2021

re,

en testant sur le fichier que je t'ai envoyé je crois avoir trouvé le soucis alors une formule encore plus longue et encore plus capillotractée

Cordialement

Tony.R · 6 Août 2021

Jocelyn à dit:
re,

en testant sur le fichier que je t'ai envoyé je crois avoir trouvé le soucis alors une formule encore plus longue et encore plus capillotractée

Cordialement

Il reste plus qu'un seul qui n'a pas fonctionné ….

Jocelyn · 6 Août 2021

re

Nouvel essai si cela ne fonctionne pas j'essairai de regarder ce week-end ou lundi pas ce soir je déco

Cordialement

XL 2010 Créer une forumle pour garder que les nombres et supprimer les lettres

Tony.R

XLDnaute Nouveau

Jocelyn

XLDnaute Barbatruc

Pièces jointes

Tony.R

XLDnaute Nouveau

Jocelyn

XLDnaute Barbatruc

Pièces jointes

Tony.R

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Tony.R

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Tony.R

XLDnaute Nouveau

Tony.R

XLDnaute Nouveau

Jocelyn

XLDnaute Barbatruc

Tony.R

XLDnaute Nouveau

Pièces jointes

Jocelyn

XLDnaute Barbatruc

Pièces jointes

Tony.R

XLDnaute Nouveau

Pièces jointes

Jocelyn

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

XL 2010 Créer une forumle pour garder que les nombres et supprimer les lettres

XLDnaute Nouveau

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Barbatruc

​

XLDnaute Nouveau

​

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

Discussions similaires