extraction d'un chiffre au milieu de texte

[sri75]

Bonjour, je cherche à extraire le numero qui est dans la parenthèse ( ici 4567 ).
Chaque ligne de mon tableau est présentée de la même façon par contre le numéro peut avoir 1 ou 5 chiffres.

je cherche une macro qui saurait lire les données situées un caractère après le ° et 1 caractère avant le ); dans mon exemple ci-dessous 5 et 4567



DITITYI.D HJHJHJH.P (n° 5) Déclaration de TVA mensuelle du 01/02/15 au 28/02/15 A saisir

GAYHJHJHJ.S LERTRTI.D (n° 4567) Déclaration de TVA mensuelle du 01/02/15 au 28/02/15 A saisir

je joins un fichier excel d'exemple.

Merci à tous pour vos conseils et astuces.

Bonne journée

Stephane

 

[R@chid]

Re : extraction d'un chiffre au milieu de texte

Bonjour,
en J3 :

=CNUM(STXT(A3;TROUVE("(n";A3)+3;TROUVE(")";A3)-TROUVE("(n";A3)-3))

@ tirer vers le bas

@ + +

 

[sri75]

Re : extraction d'un chiffre au milieu de texte

Merci, vu la taille du fichier je voudrais le faire en vba, avez vous une idée sur le code ?

Bonne journée

 

[Staple1600]

Re : extraction d'un chiffre au milieu de texte

Bonsoir à tous_____________________EDITION: Bonsoir piga25 😉

Pourquoi passer par VBA quand Données/Convertir (en deux passes) fait très bien l'affaire ?
MEO
Sélection de la colonne A (si les données sont en colonne A)
Passe 1: Données/Convertir/Délimité/Séparateur: [x] autre : °
Passe 2: Données/Convertir/Délimité/Séparateur: [x] autre : )

Si vraiment on veut du VBA, alors voici le code VBA équivalent à la procédure manuelle ci-dessus

Sub DonneesConvertir()
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
         TextQualifier:=xlDoubleQuote, Other:=True, OtherChar:="°",  FieldInfo:=Array(Array(1, 9), Array(2, 1)), TrailingMinusNumbers:=True
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
         TextQualifier:=xlDoubleQuote, Other:=True, OtherChar:=")",  FieldInfo:=Array(Array(1, 1), Array(2, 9)), TrailingMinusNumbers:=True
End Sub

 

[piga25]

Re : extraction d'un chiffre au milieu de texte

Bonjour,

Possible également avec une fonction personnalisée :

Function Isoler(Cellule, Caractère_avant, Caractère_après As String)
On Error Resume Next
Isoler = Split(Split(Cellule.Formula, Caractère_après)(0), Caractère_avant)(1)
If Err Then Isoler = ""
End Function

 

[sri75]

Re : extraction d'un chiffre au milieu de texte

Merci, je vais travailler avec la formule =CNUM(STXT(A3;TROUVE("(n";A3)+3;TROUVE(")";A3)-TROUVE("(n";A3)-3))

Si je cherche à identifier le mois concerné ( qui se situe entre les deux / ) comment adapter la formule ?

Merci d'avance

 

[piga25]

Re : extraction d'un chiffre au milieu de texte

Bonjour,

Toujours avec une fonction personnalisée, la même pour toutes vos recherches.

 

[excfl]

Re : extraction d'un chiffre au milieu de texte

Bonjour le forum,

1.

=STXT(A2;CHERCHE("(*)";A2)+4;CHERCHE(")";A2)-CHERCHE("(*)";A2)-4)

2.

=STXT(G2;CHERCHE("/*/";G2)+1;2)

 

[sri75]

Re : extraction d'un chiffre au milieu de texte

C'est exactement ce que je cherchais, merci beaucoup et bonne journée à tous

 

[excfl]

Re : extraction d'un chiffre au milieu de texte

Ou, en gardant ta présentation "spéciale" :
L2 :

=STXT(A2;CHERCHE("(*)";A2)+4;CHERCHE(")";A2)-CHERCHE("(*)";A2)-4)&"     "&STXT(A2;CHERCHE("/*/";A2)+1;2)