VBA: Dissocier des chiffres dans un texte

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:

---

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

Code:

---

1 2 3 4 5

Dim c As Range For Each c In Range("A1:IV1") If c.Value <> "" Then c.Value = Val(Mid(Trim(c.Value), InStr(c.Value, "-") + 1)) Next c Rows(1).NumberFormat = "00000"

---

Excellent, tu es un petit génie de VBA toi ;).

Code:

---

1 2 3 4 5 6 7

Dim c As Range For Each c In Range("A1:IV1") If c.Value <> "" Then c.Value = Val(Mid(Trim(c.Value), InStr(c.Value, "-") + 1)) End if Next c Rows(1).NumberFormat = "00000"

---

Explique moi juste une chose, parce que j'aime bien comprendre ce que je fais et non copier bêtement la solution.

Peux-tu m'expliquer le code suivant:

Code:

---

c.Value = Val(Mid(Trim(c.Value), InStr(c.Value, "-") + 1))

---

bonjour,

en passant, une petite fonction qui récupère les données numériques d'une chaine texte. peu importe le format.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Function ExtractNumberInString(str As String) As Long Dim Ch As String Dim Result As String Dim I   For I = 1 To Len(str) Ch = Mid(str, I, 1) If IsNumeric(Ch) Then Result = Result & Ch Next I     ExtractNumberInString = Val(Result)   End Function

---

En fait le trim n'est pas nécessaire

Code:

---

1 2 3 4 5

Dim c As Range For Each c In Range("A1:IV1") If c.Value <> "" Then c.Value = Val(Mid(c.Value, InStr(c.Value, "-") + 1)) Next c Rows(1).NumberFormat = "00000"

---

c'est le compactage de

Code:

---

1 2 3 4 5 6 7 8

For Each c In Range("A1:IV1") If c.Value <> "" Then n = InStr(c.Value, "-") 'la position du "-" dans la chaine X = Mid(c.Value, n + 1) 'x reprend les caractères de c à partir le la n+1 position c.Value = Val(X) 'F1 sur val, c'est plus clair End If Next c Rows(1).NumberFormat = "00000"

---

C'est extra! Merci!