isoler

astralon · 14 Décembre 2006

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é · 14 Décembre 2006

Re : isoler

bonjour

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

Code:

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 · 14 Décembre 2006

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 · 14 Décembre 2006

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 · 14 Décembre 2006

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 · 14 Décembre 2006

Re : isoler

rebonjour a tous

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

isoler

astralon

XLDnaute Occasionnel

Hervé

XLDnaute Barbatruc

astralon

XLDnaute Occasionnel

ODVJ

XLDnaute Impliqué

GIBI

XLDnaute Impliqué

Pièces jointes

astralon

XLDnaute Occasionnel

Discussions similaires

isoler

astralon

XLDnaute Occasionnel

Hervé

XLDnaute Barbatruc

astralon

XLDnaute Occasionnel

ODVJ

XLDnaute Impliqué

GIBI

XLDnaute Impliqué

Pièces jointes

astralon

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency