Bonjour Man.403030, le Forum,
@X cellus malheureusement dans ce sujet ça propose d'extraire uniquement une valeur alors que pour ma part j'en ai deux
Et bien c'est que tu as fermé un oeil...
Sub Enleve()
Der = Range("A" & Rows.Count).End(xlUp).Row
For Lig = 1 To Der
For C = 1 To Len(Range("A" & Lig))
Mot = Range("A" & Lig): ch = Mid(Mot, C, 1)
If ch < "A" Then Range("B" & Lig) = Range("B" & Lig) & ch
Next C
Next Lig
End Sub
Maintenant tu peux adapter pour séparer tes 2 chiffres.
Sub Enleve()
Der = Range("A" & Rows.Count).End(xlUp).Row
'Recherche 1ier nombre
For Lig = 1 To Der
For C = 1 To Len(Range("A" & Lig))
Mot = Range("A" & Lig): ch = Mid(Mot, C, 1)
If ch < "A" Then Range("B" & Lig) = Range("B" & Lig) & ch:Prem=1
if Prem=1 and ch>="A" then exit For
Next C
'Recherche 2ième nombre
ch=""
For D = C To Len(Range("A" & Lig))
Mot = Range("A" & Lig): ch = Mid(Mot, D, 1)
If ch < "A" Then Range("C" & Lig) = Range("C" & Lig) & ch
Next D
Next Lig
End Sub
Ceci en supposant que tes données sont en colonne A pour être récupérées modifiées en colonne B et C