Discussion :

[chloe_t]

Bonjour a tous,

Je dispose d'un classeur excel avec des numeros de commandes.
Un numero de commande a la forme suivante :
AA 12345-67-89

Je souhaiterais pouvoir faire une macro pour ne garder que les 9 derniers chiffres, sans tiret : 123456789 et copier cette valeur dans une nouvelle cellule.

Je suis un peu perdue quant a la demarche a adopter... si quelqu'un avait une petite idee pour m'aider, ce serait super !

Merci d'avance,

Chloe

[kiki29]

Salut, en VBA
Replace n'existant pas sous 97 une adaptation est faite en créant Replace97

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
 
Sub Tst()
Dim sStr As String
    sStr = Trim$(Feuil1.Range("A1"))
    sStr = Replace97(sStr, "-", "")
    sStr = Mid(sStr, 4, Len(sStr) - 3)
 
    Feuil1.Range("B1") = sStr
End Sub
 
Private Function Replace97(sChaine As String, sOld As String, sNew As String) As String
Dim Pos As Long, sOut As String
    sOut = sChaine
    Pos = InStr(1, sOut, sOld)
    If Pos = 0 Then Exit Function
    Do
        sOut = Left$(sOut, Pos - 1) & sNew & Mid$(sOut, Pos + Len(sOld))
        Pos = InStr(1, sOut, sOld)
    Loop While Pos > 0
 
    Replace97 = sOut
End Function

[chloe_t]

C'est plus qu'une petite idee, merci

Quand je lance la macro, j'ai cette erreur qui s'affiche :
Invalid procedure call or argument

Cela concerne la ligne :
sStr = Mid(sStr, 4, Len(sStr) - 3)

Je ne suis pas bien sure de comprendre...


Edit : j'ai lance la macro sur une autre feuille (ma feuille initiale contenait d'autres donnees, j'ai du lancer la macro sur une mauvaise cellule) et cela marche tres bien ! Merci beaucoup, je vais economiser beaucoup de temps !

[GuyXL]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Tst()
Dim sStr As String
    sStr = Trim(Cells(1, 1))
    sStr = Replace97(sStr, "-", "")
    sStr = Mid(sStr, 4, Len(sStr) - 3)
    Cells(1, 2) = sStr
End Sub

Sinon la fonction que de mon post précédent est peut-être plus universelle, sous réserve que IsNumeric marche sous 97, auquel cas je pourrai modifier (quelques lignes de plus). Cordialement

R

[mercatog]

Je ne sais pas si les RegExp existent dans la version 97
Une proposition qui nécessite d'activer la référence Microsoft VBScript Regular Expressions 1.0
Ci-joint fonction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
'Activer la référence Microsoft VBScript Regular Expressions 1.0
Function Remplace(ByVal Str As String) As String
Dim Rg As New VBScript_RegExp_10.RegExp
 
With Rg
    .Pattern = "[^0-9]"
    .Global = True
    Remplace = .Replace(Str, "")
    'Remplace = Right(.Replace(Str, ""), 9) 'Au cas ou seuls les 9 chiffres à droite
End With
Set Rg = Nothing
End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=Remplace("678A3004A 12-9-1")

Donne 67830041291

[GuyXL]

bonjour Chloé,

Une solution sans macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=CNUM(SUBSTITUE(DROITE(A1;11);"-";""))

Une solution fonction vba :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function KeepNumber(s$) As Long
Dim t$
For i = 1 To Len(s)
    If IsNumeric(Right(Left(s, i), 1)) Then
        t = t & Right(Left(s, i), 1)
    End If
Next i
KeepNumber = t
End Function

Cordialement

R

Edit : bonjour Kiki29