extraction d'un chiffre au milieu de texte

R@chid

XLDnaute Barbatruc

Supporter XLD

• 3 Mars 2015

• #2

Re : extraction d'un chiffre au milieu de texte

Bonjour,
en J3 :

Code:

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

@ tirer vers le bas

@ + +

 

Vote positif 0 Vote négatif

S

sri75

XLDnaute Occasionnel

• 3 Mars 2015

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Mars 2015

• #4

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

Code:

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

 

Dernière édition: 4 Mars 2015

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 4 Mars 2015

• #5

Re : extraction d'un chiffre au milieu de texte

Bonjour,

Possible également avec une fonction personnalisée :

Code:

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

 

Vote positif 0 Vote négatif

S

sri75

XLDnaute Occasionnel

• 4 Mars 2015

• #6

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

 

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 4 Mars 2015

• #7

Re : extraction d'un chiffre au milieu de texte

Bonjour,

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

 

Pièces jointes

• numero (1).xlsm

  18.8 KB · Affichages: 58

Vote positif 0 Vote négatif

excfl

XLDnaute Barbatruc

• 4 Mars 2015

• #8

Re : extraction d'un chiffre au milieu de texte

Bonjour le forum,

1.

Code:

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

2.

Code:

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

 

Pièces jointes

• Extraction.xlsx

  10.3 KB · Affichages: 65
• Extraction.xlsx

  10.3 KB · Affichages: 68
• Extraction.xlsx

  10.3 KB · Affichages: 69

Dernière édition: 4 Mars 2015

Vote positif 0 Vote négatif

S

sri75

XLDnaute Occasionnel

• 4 Mars 2015

• #9

Re : extraction d'un chiffre au milieu de texte

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

 

Vote positif 0 Vote négatif

excfl

XLDnaute Barbatruc

• 4 Mars 2015

• #10

Re : extraction d'un chiffre au milieu de texte

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

Code:

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

 

Vote positif 0 Vote négatif