isoler ou séparer des un nombres de chiffres

JDH · 29 Avril 2008

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 · 29 Avril 2008

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 · 29 Avril 2008

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 · 29 Avril 2008

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 :

Code:

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

isoler ou séparer des un nombres de chiffres

JDH

XLDnaute Nouveau

Jocelyn

XLDnaute Barbatruc

Pièces jointes

fanfan38

XLDnaute Barbatruc

RENAUDER

Nous a quitté

Discussions similaires