isoler ou séparer des un nombres de chiffres

[JDH]

Bonjour tout le monde !



Dans une cellule j'ai une chaine de caractére. Au début de celle-ci, on a un nombre de chiffre pouvant allez de 1 à 4. Par exemple: 240Awaiting ou 0System OK ou encore 1439connec
Voici mon probléme sur excel :
J'aimerai extraire les chiffres du début variant entre 1 et 4 chiffres, ou fractionner la cellule avec d'un coté le chiffre et de l'autre les lettres.
Enfin bon .... un moyen pour isoler ces chiffres qui peuvent varier de 1 à 4 chiffres

Merci par avance.
JD

 

[Jocelyn]

Re : isoler ou séparer des un nombres de chiffres

Bonjour le Forum,
Bonjour JDH,

Un exemple en pièce jointes pour extraire des chiffres d'une cellule si ils sont placés en début de texte

Jocelyn

 

[fanfan38]

Re : isoler ou séparer des un nombres de chiffres

Bonjour
Voilà une macro qui sépare les chiffres des lettres
Sub SEPARE()
For i = 1 To Range("a65536").End(xlUp).Row
chiffre = ""
For j = 1 To Len(Range("a" & i).Value)
If IsNumeric(Mid(Range("a" & i).Value, j, 1)) Then
chiffre = chiffre + Mid(Range("a" & i).Value, j, 1)
Else
Exit For
End If
Next
Range("b" & i).Value = chiffre
Next
End Sub
Celle ci est faite pour des données dans la colonne A...

A+ François

 

[RENAUDER]

Re : isoler ou séparer des un nombres de chiffres

Bonjour,

Si tu préfères une fonction personnalisée, en reprenant et adaptant le code de Fanfan38 tu peux utiliser ceci :

Function IsoleLesChiffres(Chaine)
    For j = 1 To Len(Chaine)
        If IsNumeric(Mid(Chaine, j, 1)) Then
            Chiffre = Chiffre + Mid(Chaine, j, 1)
        Else
            Exit For
        End If
    Next
    Application.Volatile
    If Chiffre = "" Then
        IsoleLesChiffres = ""
    Else
        IsoleLesChiffres = Chiffre
    End If
End Function