Bonjour,

Je suis nouveau en devellopement, surtout pour les expressions régulières.

Je dois écrire un programme de tournées chauffeur en VBA sur Excel. Dans un User form, je dois vérifier que l'utilisatuer à bien rentré les km sur une boite de texte, soit une série de chiffre. j'ai écrit cette fonction (voir ci-dessous).

Mais quand je l'appel il me retourne toujours false da, ns les message box, même quand je rentre bien des série de 1 à n chiffre. Si vous pouvez m'aider.

Merci

Function formRégulièreKm(kmDebut, kmFin, chauffeur) As Boolean

Dim test1 As String
Dim test2 As String

test1 = kmDebut
test2 = kmFin

formRégulièreKm = ((test1 Like "^[0-9]+$") Or (test2 Like "^[0-9]+$"))

MsgBox kmFin & " / " & (test2 Like "^[0-9]+$")
MsgBox kmDebut & " / " & (test1 Like "^[0-9]+$")

If (formRégulièreKm = False) Then
MsgBox "Le format des km du camion : " & chauffeur & " n'est pas bon"
Exit Function
End If


End Function