extraire nombres

Sub Macro1()
Dim Cel As Range 'déclare la variable Cel
Dim coul As Integer 'déclare la variable Coul

For Each Cel In Selection 'boucle sur toutes les cellules de la sélection

'codition 1 : si le premier caractère de la cellule Cel est '('
'et le dernier caractère de la cellule est ')'
If Left(Cel.Value, 1) = '(' And Right(Cel.Value, 1) = ')' Then

'condition 2 : si l'avant dernier caractère est '1'
If Mid(Cel, Len(Cel.Value) - 1, 1) = '1' Then
coul = 3 'définit la variable coul
Else 'sinon
coul = 0 'définit la variable coul
End If 'fin de la condition 2

'condition 3 : si le troisième caractère de la cellule est ','
If Mid(Cel.Value, 3, 1) = ',' Then
'renvoie le premier caractère après la parenthèse d'ouverture
'converti en entier
Cel.Value = CInt(Mid(Cel.Value, 2, 1))
Else 'sinon
'renvoie les deux premiers caractères après la parenthèse d'ouverture
'convertis en entier
Cel.Value = CInt(Mid(Cel.Value, 2, 2))
End If 'fin de la condition 3

Cel.Font.ColorIndex = coul 'couleur de la police

End If 'fin de la condition 1

Next Cel 'prochaine cellule de la sélection
End Sub

Cliquez pour agrandir...