Thank you for your rapid answer, but i don't know how to obtain cancelling.
Example
Dim nd As NumberDialog
nd.Digits = 2
nd.Number = 45
nd.Decimal = 0
nd.ShowSign = False
ret = nd.Show("Entrez la longueur du col en mm", "OK", "", "Cancel", Bmp)
col = nd.number 'Valeur recuellie par le NumberDialog
If col < 5 OR col > 50 Then 'Erreur si mauvais mesure col
Msgbox("la longueur du col doit être entre 5 et 50 mm", "Attention")
Return
End If
Il I click on "OK" or on "Cancel" i obtain the same result, nd.number. I want when I click on "Cancel" a result null and NumberDialog disappears.
Excuse my bad english, i'm french.