Ne garder que les nombres de cellules textes

Bonjour forum,

grâce à une macro, je récupère des informations sur le WEB. L'une des colonnes récupérées comporte des cellules avec un nombre suivi de texte (et d'autres nombres). Dans la macro, je voudrait garder seulement les premiers nombres. Auriez-vous un bout de code à me suggérer pour me débarrasser du texte?

J'ai joint un fichier où le résultat désiré de la col. A est indiqué dans la col. B.

Je vous remercie en avance

Emil

Bonjour

Une formule en colonne C

Cela te convient-il ?

Bye !

Bonjour gmb,

je te remercie de me répondre aussi promptement. J'ai regardé ta solution. Je figure que je pourrai adapter la formule dans l'enregistreur de macro.

Cependant, il y a un petit pépin: les nombres de 1000 et plus ont une espace dans le nombre qui crée problème. Par exemple, voir la cellule C5. C'est justement là où je bloque. Une solution?

Merci

Emil

Bonjour et bonne année !

Nouvel essai à tester.

Bye !

Bonjour,

Bonjour à toutes et tous, et bonne année.

Un exemple VBA.

Cdlt.

Private Sub CommandButton1_Click()
Dim tbl, arr()
Dim I As Long

    tbl = Me.Cells(1).CurrentRegion.Value
    ReDim arr(1 To UBound(tbl, 1))
    For I = 1 To UBound(tbl)
        arr(I) = Val(Split(tbl(I, 1), "c")(0))
    Next I

    With Me.Cells(2).Resize(UBound(arr))
        .Value = Application.Transpose(arr)
        .NumberFormat = "#,##0"
    End With

End Sub

Bonjour Jean-Eric et GMB,

Suite aux pistes fournies par GMB, je suis péniblement parvenu à ré-écrire la formule de sous forme VBA. Par contre, je constate que la solution fournie par Jean-Eric est encore plus "clean" que la mienne.

Je vous remercie tous les deux

Bonne année

Émil

Rechercher des sujets similaires à "garder que nombres textes"