Sub Test()
HexaOuPas = ValideNombreHexa(0)
End Sub
Public Function ValideNombreHexa(ByVal chaine As String) As Boolean
Dim validite As Boolean
Dim Valeur As String
Dim i As Integer
chaine = InputBox("entrer une valeur hexadecimal")
validite = False
For i = 1 To Len(chaine)
Valeur = Val(Asc(UCase(Mid(chaine, i, 1))))
If (Valeur >= 48 And Valeur <= 57) Or _
(Valeur >= 65 And Valeur <= 70) Then
validite = True
Else
validite = False
End If
Next i
ValideNombreHexa = validite
End Function