Extraction Chaine de caractères vba

Staple1600

XLDnaute Barbatruc

• 13 Mars 2018

• #2

Bonsoir le fil, le forum

Formule 1
=STXT(A1;1;MIN(CHERCHE({0;1;2;3;4;5;6;7;8;9};A1&"0123456789"))-1)

Formule 2
=STXT(A1;MIN(CHERCHE({0;1;2;3;4;5;6;7;8;9};A1&"0123456789"));999)

 

Vote positif 0 Vote négatif

F

fileofish

XLDnaute Occasionnel

• 14 Mars 2018

• #3

Coucou le forum

Merci beaucoup Stapple pour ta réponse ... je vais voir ce que me donne l'enregistreur de macro
Bonne journée à tous
Philippe

 

Vote positif 0 Vote négatif

F

fileofish

XLDnaute Occasionnel

• 14 Mars 2018

• #4

fileofish à dit:

Coucou le forum

Merci beaucoup Stapple pour ta réponse si au passage tu pouvais m'expliquer une des 2 formules ca serait top !!... je vais voir ce que me donne l'enregistreur de macro
Bonne journée à tous
Philippe

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

F

fileofish

XLDnaute Occasionnel

• 14 Mars 2018

• #5

Par contre petit problème quand je souhaite adapter la formule de Staple en VBA

Sub Extraire3()
Dim c As Range
Workbooks("BC 2018.xlsm").Activate

For Each c In Range("G2:G" & Range("E" & Rows.Count).End(xlUp).Row)

Activecell.Value = MID(ActiveCell.offset(0,-1),1,MIN(SEARCH({0;1;2;3;4;5;6;7;8;9},ActiveCell.offset(0,-1)&""0123456789""))-1)


Next c
End Sub

Vous savez d'ou cela provient ?

Philippe

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Mars 2018

• #6

Bonjour le fil, le forum

@fileofish
Je te le laisse adaper cette macro (qui fonctionne chez moi, les données étant en colonne A pour le test)

VB:

Sub Macro1()
Dim DerL&
DerL = Cells(Rows.Count, 1).End(xlUp).Row
Range("B1:B" & DerL).FormulaR1C1 = _
        "=MID(RC[-1],1,MIN(SEARCH({0;1;2;3;4;5;6;7;8;9},RC[-1]&""0123456789""))-1)"
Range("C1:C" & DerL).FormulaR1C1 = _
        "=MID(RC[-2],MIN(SEARCH({0;1;2;3;4;5;6;7;8;9},RC[-2]&""0123456789"")),999)"
End Sub

 

Vote positif 0 Vote négatif

F

fileofish

XLDnaute Occasionnel

• 16 Mars 2018

• #7

Coucou Staple

Merci beaucoup t'es royal
Bon week end à tous et encore merci à vous tous qui nous aidait
Philippe

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Mars 2018

• #8

Bonjour le fil, le forum

Une version tout en VBA (sans passer par des formules)

VB:

Sub Extraire_4()
Dim plg As Range, c As Range
Set plg = Range("A1", Range("A1").End(-4121))
    For Each c In plg
        c.Offset(, 1) = Left(c, PNu(c.Text) - 1)
        c.Offset(, 2) = Mid(c, PNu(c.Text), 9 ^ 9)
    Next
End Sub
Private Function PNu(sTr$) As Integer
For PNu = 1 To Len(sTr)
If Mid(sTr, PNu, 1) Like "#" Then Exit Function
Next
PNu = 0
End Function

 

Vote positif 0 Vote négatif