Bonjour à tous,

Je souhaite construire une macro enfin de dissocier les chiffres dans le texte.

Ex: CC- 05677 Project Name
Je souhaite obtenir avec mon code VBA juste 05677

Avec excel, j'utilise la function gauche("CC- ", 9) puis je la retraite avec le code VBA pour replacer "CC- " par vide.

Cependant, je me casse la tête à écrire un code qui ne fonctionne pas... Donc, j'ai choisi une solution alternative qui elle fonctionne mais n'est pas adéquate. En effet, quelquefois j'ai "CC-" ou "CC - " ou "CC- ":

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
24
25
26
27
28
29
30
Sub clear_Tally_DC()
 
'Unmerge cells
Cells.Select
Cells.UnMerge
 
 
'Replacing "." by "," 
Cells.Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Cells.NumberFormat = "#,##0"
 
Range("A1,IV1").Select
Selection.Replace What:="CC- ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
For i = 3 To 255 Step 2
    a = Cells(1, i)
 
    c = Left(a, 5)
    'b = len(a) for test
    Cells(2, i) = c
    Cells.NumberFormat = "00000"
 
Next i
 
End Sub
Merci de vos suggestions