Dim rep As String
Do While rep = ""
rep = InputBox("Entrez une valeur")
Loop
Private Sub Userform_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub
[COLOR=NAVY]Dim[/COLOR] Rep [COLOR=NAVY]As Variant
Do[/COLOR]
Rep = Application.InputBox("Entrez un nombre", [COLOR=NAVY]Type[/COLOR]:=1)
[COLOR=NAVY]Loop Until Not[/COLOR] VarType(Rep) = vbBoolean
[COLOR=NAVY]Dim[/COLOR] R [COLOR=NAVY]As Variant
Dim[/COLOR] Rep [COLOR=NAVY]As Long
Do[/COLOR]
R = Application.InputBox("Entrez un nombre", [COLOR=NAVY]Type[/COLOR]:=1)
[COLOR=NAVY]Loop Until Not[/COLOR] VarType(R) = vbBoolean
Rep = R