Salut MAN,
Courage 3GB, on va y arriver !
Avec un fichier, tu remarqueras, MAN, que c'est plus rapide de trouver un début de solution : inspire t'en à l'avenir !
compliqué avec tous ces espaces ! Á tester si d'autres configurations !
Y a-t-il TOUJOURS un "X" (pas une autre lettre ?) quand il faut trouve 2 nombres ?
Un double-clic sur la feuille démarre la macro qui ne peut fonctionner que dans le cadre de l'exemple fourni.
Pour d'autres événements, prière de décrire précisément ce que tu souhaites !
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim iRev%, sData$, sStr$
Cancel = True
'
Set obj = CreateObject("vbscript.regexp")
obj.Global = True
obj.Pattern = "[a-z]"
'
For x = 2 To Range("A" & Rows.Count).End(xlUp).Row
iRev = InStrRev(Cells(x, 1), " ")
iRev = IIf(iRev > 0, iRev - 1, Len(Cells(x, 1)))
sData = LCase(Left(Cells(x, 1), iRev))
MsgBox sData
iIdx = IIf(InStr(sData, "x") = 0, 1, 2)
For y = 1 To iIdx
sStr = Split(sData, "x")(y - 1)
sStr = obj.Replace(sStr, "")
If IsNumeric(sStr) Then Range("A" & x).Offset(0, y).Value = sStr
Next
Next
'
End Sub
A+
Edit : oublié d'enlever...
MsgBox sData
Déso, hein...