sarmerou08
XLDnaute Junior
à tous,
Help, erreur 13!!!!
je souhaite fermer un inputbox j'ai fait une recherche dans le forum j'ai trouver ce code mais il m'affiche un message d'erreur quand je clic le boutton annulé.
merci de votre aide.
Sub EntrésDonnées()
'
Dim ValeurDébit As Long
ValeurDébit = Replace(InputBox("Entrez la valeur du débit :", _
"Demande de valeur"), ".", ",")
Cells(8, 3) = ValeurDébit
If ValeurDébit = vbBoolean Then
MsgBox " opération annulée"
Exit Sub
End If
MsgBox ValeurDébit
End Sub
Help, erreur 13!!!!
je souhaite fermer un inputbox j'ai fait une recherche dans le forum j'ai trouver ce code mais il m'affiche un message d'erreur quand je clic le boutton annulé.
merci de votre aide.
Sub EntrésDonnées()
'
Dim ValeurDébit As Long
ValeurDébit = Replace(InputBox("Entrez la valeur du débit :", _
"Demande de valeur"), ".", ",")
Cells(8, 3) = ValeurDébit
If ValeurDébit = vbBoolean Then
MsgBox " opération annulée"
Exit Sub
End If
MsgBox ValeurDébit
End Sub