extraire chiffre

Sub Bouton1_QuandClic()
Dim tablo As Variant
Dim tablo1 As Variant
Dim c As Range
Dim i As Byte, j As Byte
Dim colonne As Byte

For Each c In Range('a1:a' & Range('a65536').End(xlUp).Row)
colonne = 1
        tablo = Split(c, ',')
        For i = 0 To UBound(tablo)
                If InStr(1, tablo(i), 'puis') Then
                        tablo1 = Split(tablo(i), 'puis')
                        For j = 0 To UBound(tablo1)
                                c.Offset(0, colonne) = numerique(tablo1(j))
                                colonne = colonne + 1
                        Next j
                Else
                        c.Offset(0, colonne) = numerique(tablo(i))
                        colonne = colonne + 1
                End If
        Next i
Next c
       
End Sub

Public Function numerique(ByVal temp As String) As Long
Dim i As Byte
        For i = 1 To Len(temp)
                If IsNumeric(Mid(temp, i, 1)) Then numerique = numerique & Mid(temp, i, 1)
        Next i
End Function

Cliquez pour agrandir...