[résolu] Supprimer des lettres devant des chiffres

[klorane]

bonsoir à tous,

est il possible par une macro de faire supprimer des lettres devant des chiffres.

ex dans la colonne "E" j'ai des valeurs

E3 : 7080
E4 : Z5642
E5 : 4721VL
E6 : MR94136

Apres le passage de la macro que les caractères placés devant les chiffres disparaissent :
(on garde par contre les caractères placés après)

se qui donnerait pour l'exemple ci dessus:

E3 : 7080
E4 : 5642
E5 : 4721VL
E6 : 94136

Techniquement es ce possible?

Merci

Klorane

 

[JCGL]

Re : Supprimer des lettres devant des chiffres

Bonjour à tous,

Sont-ce toujours des majuscules qui commencent la valeur ?
Combien de lettres au maximum peuvent commencer la valeur ?

A+ à tous

 

[klorane]

Re : Supprimer des lettres devant des chiffres

Bonsoir Jean-Marcel,

une erreur de ma part ;-) Corrigé

Klorane

 

[david84]

Re : Supprimer des lettres devant des chiffres

Bonsoir, Jean-Claude, Jean Marcel,
à tester :

Sub Epure()
Dim oRegExp As Object, Pl As Range, c As Range, Matches As Object
Set Pl = Range(Range("A1"), Range("A1").End(xlDown))
Set oRegExp = CreateObject("vbscript.regexp")
oRegExp.ignorecase = True
oRegExp.Pattern = "^[a-z]+(\d+)"
For Each c In Pl
    If oRegExp.test(c) Then
    Set Matches = oRegExp.Execute(c)
        c(1, 2) = oRegExp.Replace(c, Matches(0).submatches(0))
    Else
        c(1, 2) = c.Value
    End If
Next c
End Sub

A+

 

[klorane]

Re : Supprimer des lettres devant des chiffres

Bonsoir JCGL,

pour te répondre, se sont toujours des majuscules qui commence la valeur.

3 lettres maximum peuvent commencer la valeur.

Klorane

 

[BOISGONTIER]

Re : Supprimer des lettres devant des chiffres

Bonsoir,

=STXT(A1;EQUIV(VRAI;ESTNUM(--(STXT(A1;LIGNE($1:$255);1)));0);99)
Valider avec maj+ctrl+entrée

JB

 

[david84]

Re : Supprimer des lettres devant des chiffres

Re

pour te répondre, se sont toujours des majuscules qui commence la valeur.

3 lettres maximum peuvent commencer la valeur.

On peut donc simplifier le motif :

Sub Epure2()
Dim oRegExp As Object, Pl As Range, c As Range
Set Pl = Range(Range("A1"), Range("A1").End(xlDown))
Set oRegExp = CreateObject("vbscript.regexp")
oRegExp.Pattern = "^[A-Z]{1,3}"
For Each c In Pl
    If oRegExp.test(c) Then c(1, 2) = oRegExp.Replace(c, "") Else c(1, 2) = c.Value
Next c
End Sub

 

[klorane]

Re : Supprimer des lettres devant des chiffres

Bonsoir David et les autres,

J'ai opté David, pour ta derniere macro.

ça fonctionne très bien.

Merci

Bonne nuit!

Klorane