isoler

[astralon]

je bloque ...

j'ai en colone A, un code alpha numérique de 10 chiffres ou il y a des chiffres et des lettres mélanger

1a22eff741
feb88546xl

je voudrais isoler les chiffres de mes lettres

122741 aeff
88546 befxl

est-ce possible ?

 

[Hervé]

Re : isoler

bonjour

il me semble que c'est possibe par formule, mais je sais pas faire, sinon, une solution vba :

Sub Bouton1_QuandClic()
Dim c As Range
Dim i As Byte
Dim car As String, t As String
Dim num As Long

For Each c In Range("a1:a" & Range("a65536").End(xlUp).Row)
    For i = 1 To Len(c)
        t = Mid(c, i, 1)
        If IsNumeric(t) Then
            num = num & t
        Else
            car = car & t
        End If
    Next i
    c.Offset(0, 1) = num: num = 0
    c.Offset(0, 2) = car: car = ""
Next c
    
End Sub

dans ton exemple, que fait tu du "feb" dans "feb88546xl" ?

salut

 

[astralon]

Re : isoler

je l'avais oublier 😉

Merci
j'essaye ton programme

Top cool, super le résultat.....cependant, si ca existe en formule, je suis aussi preneur

 

[ODVJ]

Re : isoler

Bonjour à tous

avec l'aide de MCONCAT() de la bibliothèque Morefunc de Laurent Longre, ça donne :

=MCONCAT(SI(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)<"A";STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1);""))
et
=MCONCAT(SI(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)>"9";STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1);""))

en matriciel bien sûr

A+

 

[GIBI]

Re : isoler

Salut,

Pour rire j'ai fait le dispatching avec la fonction "substitue" (Pour info le nombre de fonction est limité dans une formule) :

Solution 1 voir fichier joint

Avec 2 "formule" on obtient la partie numérique
=SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE($A4;"1";"");"2";"");"3";"");"4";"");"5";"");"6";"");"7";0);"8";"")
=SUBSTITUE(SUBSTITUE(D4;"9";"");"0";"")

--------------------------

Solution 2 : faire une fonction perso
-------------------------------------------
Function Eclater(Source As String, T As Integer) As String

' t= 0 ==> numerique sinon alpha
Dim I As Long
Dim Num, Car As String

For I = 1 To Len(Source)
If IsNumeric(Mid$(Source, I, 1)) Then
Num = Num & Mid$(Source, I, 1)
Else
Car = Car & Mid$(Source, I, 1)
End If
Next
If T = 0 Then
Eclater = Num
Else
Eclater = Car
End If
End Function



Bon courage

 

[astralon]

Re : isoler

rebonjour a tous

trop cool vos solutions, mais la soluce avec substitue c'est bien, mais c'est long et lourds 🙂