Extraire premier caractères si numeric.

[Hulk]

Hello tout le monde,

En colonne A j'ai :

AAAA -> AAAA
AAAAA -> AAAAA
AA -> AA
12AAADDDD -> AAADDD
234QQQQ2 -> QQQQ2
08 DDD FF11 -> DDD FF11
21. FFF HH DDD EE.4 -> FFF HH DDD EE.4

Ce que je souhaîte, c'est supprimer que les premiers caractères si ce sont : un nombre, un espace, ou autre qu'une lettre.

En vert le résultat souhaîté dans la colonne B.

C'est terrible, j'arrive à faire le contraire, mais pas ça 😡

Si quelqu'un a la gentillesse de m'aider...

Cdt, Hulk.

 

[MJ13]

Re : Extraire premier caractères si numeric.

Bonjour Hulk

Regarde ce fichier pour les chiffres:

 

[CISCO]

Re : Extraire premier caractères si numeric.

Bonjour à tous

Une solution, que tu sauras certainement adapter à ton cas (en ajoutant les SUBSTITUE, les () et les 5, 6, 7...), pour éliminer tous les chiffres contenus dans une expression :

=SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(A1;0;"");1;"");2;"");3;"");4;"")

@ plus

 

[job75]

Re : Extraire premier caractères si numeric.

Bonjour Hulk 🙂 Michel 🙂

Une solution par formule matricielle (à valider par Ctrl+Maj+Entrée), le texte étudié en A1 :

=SUPPRESPACE(STXT(A1;MIN(SI(ESTERR(1*STXT(A1;LIGNE($1:$1000);1));LIGNE($1:$1000)));1000))

Edit : salut CISCO 🙂 + attention, un vilain espace s'était glissé dans ma formule...

A+

 

[BOISGONTIER]

Re : Extraire premier caractères si numeric.

Bonjour,

=SUPPRESPACE(STXT(SUPPRESPACE(A1);EQUIV(FAUX;ESTNUM(--(STXT(SUPPRESPACE(A1);LIGNE($1:$255);1)));0);999))

valider avec maj+ctrl+entrée

JB

 

[Hulk]

Re : Extraire premier caractères si numeric.

Re,

Désolé pour le retard.

J'ai vu vos propositions et je ne comprends pas pourquoi la version Boigontier ne joue pas ?

Alors que la tienne Job joue, mais ily a quand même des morceaux qu'il ne capte pas, exemple les .wav !

Dans tous les cas, merci de votre aide, je vais continuer de tâcher de comprendre et réparer 😀

Mj, je regarde ton fichier plus tard et Cisco, avec le Substitue j'avais essayé, mais laissé tombé car il y a aussi des 3 sur ".mp3" et pas creusé plus..

Merci encore vous tiens au courant.

Cdt, Hulk.

 

[CISCO]

Re : Extraire premier caractères si numeric.

Bonsoir à tous, bonsoir Hulk

Il faut valider la formule de Boisgontier (toujours aussi efficace) avec ctrl+maj+entrer, car il s'agit d'un calcul matriciel (à cause de LIGNE($1:$255)).


Rem : J'avais bien vu que ma proposition supprimait aussi les chiffres à l'intérieur, pas seulement ceux du début, mais j'avais espéré que cela ne poserait pas de problème...

@ plus

 

[Hulk]

Re : Extraire premier caractères si numeric.

Re,

Autant pour moi, j'avais oublié de valider les deux formules avec le Ctrl+Shift 😱

Mj, je préfère les formules sur ce coup là...

Merci encore à tous !

Bonne soirée, Hulk.

 

[BOISGONTIER]

Re : Extraire premier caractères si numeric.

Bonsoir,

Voir PJ

Avec fonction perso

Function TrimNum(chaine)
  i = 1
  Do While Asc(Mid(chaine, i, 1)) < 65 And i < Len(chaine)
   i = i + 1
  Loop
  TrimNum = Mid(chaine, i)
End Function

JB

 

[ROGER2327]

Re : Extraire premier caractères si numeric.

Bonsoir à tous

Une autre fonction personnalisée ?

[COLOR="DarkSlateGray"]Function nettoie(s As String) As String
Dim k As Long, c As String, j As Integer, aCl
   aCl = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", ".", "-", " ", "_")
   Do
      j = j + 1
      c = Mid$(s, j, 1)
      For k = 0 To UBound(aCl)
         If c = aCl(k) Then Exit For
      Next k
   Loop Until k > UBound(aCl)
   nettoie = Right$(s, Len(s) - j + 1)
End Function[/COLOR]

Le tableau aCl contient les caractères indésirables en début de chaîne.​

ROGER2327

 

[job75]

Re : Extraire premier caractères si numeric.

Bonsoir à tous,

Je n'avais même pas ouvert le fichier de l'ami Hulk, et le point m'avait échappé, désolé.

Une solution qui repère la position de la 1ère lettre :

=STXT(A1;MIN(SI(ESTNUM(CHERCHE(CAR(LIGNE($65:$90));A1));CHERCHE(CAR(LIGNE($65:$90));A1)));999)

Formule matricielle évidemment (valider par Ctrl+Maj+Entrée).

A+