Discussion :

[fxfxfx]

Bonjour, je cherche à extraire des nombres contenus dans diverses chaines de caractère. Un exemple sera plus compréhensible

Chaine _______________________________Resultat souhaité

Studette 9 m²__________________________9
Studio 2 pièces 39 m²____________________39
Chambre de service 5 m² ________________ 5
Appartement 3 pièces 65 m²_______________ 65
Appart 2 pièces 45 m²___________________45

Les chaines de caractères finissent toujours par "m²" et mais les chaines de caractères avant la surface de l'appartement sont aléatoires (studios, studio, chambre, appartement, appart...)

J'avais réalisé le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Bouton1_Clic()
    Dim C As Range, Plage As Range, Txt As String, X As Variant
    With Sheets("Feuil1")
        Set Plage = .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp))
    End With
    With Sheets("Feuil2")
        For Each C In Plage
            Txt = ""
            For i = 1 To C.Characters.Count
                X = C.Characters(i, 1).Text
                If X = "," Or (X >= 0 And X <= 9) Then
                    Txt = Txt & X
                End If
            Next
            If Txt <> "" Then
                    .Cells(C.Row, 1).Value = CDbl(Txt)
                End If
        Next C
    End With
End Sub

Mais elle ne donne pas le bon résultat...
Par exemple pour "Appartement 3 pièces 65 m² ", cela renvoie 365 et non 65...

Merci beaucoup de votre aide !!

Bonne journée

[Invité]

Ci joint un code fonctionnel. Cependant la surface doit toujours être le dernier nombre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Option Explicit
Option Base 1
 
Sub Bouton1_Clic()
Dim C As Range, Plage As Range
Dim i as Integer, j As Integer
Dim strCible As String
Dim intVal() As Integer
 
    With Sheets("Feuil1")
        Set Plage = .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp))
    End With
 
    With Sheets("Feuil2")
 
        For Each C In Plage.Cells
            strCible = C.Value
            strCible = Replace(strCible, ",", ".")
            strCible = Replace(strCible, " ", "x")
 
            j = 0
            ReDim intVal(1)
            For i = 1 To Len(strCible)
                If IsNumeric(Mid(strCible, i, 1)) Then
                    j = j + 1
                    ReDim Preserve intVal(j)
                    intVal(j) = Val(Mid(strCible, i, Len(strCible) - i + 1))
                    i = i + Len(Str(intVal(j))) - 1
                End If
            Next i
 
            .Cells(C.Row, 1).Value = CDbl(intVal(UBound(intVal)))
 
        Next C
    End With
End Sub

http://silkyroad.developpez.com/VBA/...racteres/#LI-P

[Marc-L]

Bonjour,

p'tite variante renvoyant la valeur numérique précédant l'unité :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function ExtraitNum(Texte, Unité) As Long
    P& = InStrRev(Texte, Unité)
 
    If P& Then
        P& = InStrRev(Texte, " ", P& - 1)
        If P& Then ExtraitNum = Val(Mid(Texte, P&))
    End If
End Function
 
 
Sub Demo()
    For Each Lot In Split("Studette 9 m²;Studio 2 pièces 39 m²;Chambre de service 5 m²", ";")
        M$ = M$ & Lot & "  __________  " & ExtraitNum(Lot, " m²") & vbLf & vbLf
    Next
        MsgBox M$
End Sub

_______________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[BlueMonkey]

Bonsoir,
Une autre variante
S'il y a toujours un espace entre la surface et m², et que l'espace n'est pas utilisé comme séparateur de millier,
tu peux essayer, la fonction split avec l'espace comme séparateur d'élément.
Puis en considérant que l'avant dernier éléments séparé par un espace est toujours la surface :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
 
Sub Bouton1_Clic()
    Dim c As Range
    Dim Plage As Range
    With Sheets("Feuil1")
        Set Plage = .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp))
    End With
 
    Dim vals() As String
    With Sheets("Feuil2")
        For Each c In Plage
            vals = Split(c, " ")
            If UBound(vals) > 1 Then
                .Cells(c.Row, 1) = vals(UBound(vals) - 1)
            End If
        Next c
    End With
 
End Sub

[fxfxfx]

@ BlueMonkey
Merci pour ton code ! cela fonctionne sur une cellule.... pas sur une plage de cellule.. je me trompe peut etre mais je n'ai pas reussi...

[BlueMonkey]

La boucle For Each c In Plage fait que le code boucle sur toute les cellules de la plage.

je me trompe peut etre mais je n'ai pas reussi...

Pas réussi à quoi ?
Lorsque tu exécute le code en pas à pas, ça ne boucle pas sur toutes les cellules de la plage définie ?

[fxfxfx]

En fait je pense avoir trouvé le problème...
Dans mes données à traiter, il y a un espace après m²...

mes données sont de cette forme (sans les guillements)
"Appartement 3 pièces 55 m² "

et j'ai aussi des données de la forme "Appartement 3 pièces 55,4 m² "

[BlueMonkey]

et j'ai aussi des données de la forme "Appartement 3 pièces 55,4 m² "

Du moment que le prix ne comporte pas d'espace, il n'y a pas de problème.

Dans mes données à traiter, il y a un espace après m²...

Dans ce cas remplace la ligne 15 du code précédent

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Cells(c.Row, 1) = vals(UBound(vals) - 1)

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Cells(c.Row, 1) = vals(UBound(vals) - 2)