Extraire les chiffres

bonjour,

J'ai une chaîne de caractères comme celui par exemple 1-0-1-1-10-0-1-0-02-1-0-0-1-2, je souhaiterais extraire uniquement les chiffres et me débarrasser des traits d'union qui les sépare.

Si c'est possible merci de me filer le tuyau

A vous relire

Merci

Bonjour,

Avec une petite fonction :

Sub Test()

    Dim Chaine As String

    Chaine = "1-0-1-1-10-0-1-0-02-1-0-0-1-2"

    MsgBox SupprimerTiret(Chaine)

End Sub

Function SupprimerTiret(Chaine As String) As String

    Dim Tbl
    Dim Texte As String
    Dim I As Integer

    Tbl = Split(Chaine, "-")

    For I = 0 To UBound(Tbl)
        Texte = Texte & Tbl(I)
    Next I

    SupprimerTiret = Texte

End Function

Hervé.

Bonjour @ tous,

Pourquoi pas,

Données/ Convertir/ Délimité/ et cocher le "-" comme séparateur...

@ + +

Bonjour Rachid, avec ta méthode les chiffres s'étalent sur plusieurs cellules or je souhaiterais garder mes chiffres dans une cellule;

Theze, merci pour ta fonction, je l'insère comme un code vba? je l'ai fait, j'ai crée un bouton quand je clique dessus j'obtiens un message box avec une série de chiffres mais rien ne se passe.

Dans l'attente de vous relire, merci

Bonjour,

Tu n’étais pas clair depuis le début,

Si tu veux les garder sur les mêmes cellules d'origine :

Sélectionner ta plage contenant les chaines

Rechercher/Remplacer

Ou bien sur les cellules adjacentes,

Si la chaine est en A1, alors en B1,

=SUBSTITUE(A1;"-";)

@ tirer vers le bas

@ + +

Merci beaucoup, ça marche

A +