ne pas être obligé d'entrer un chiffre sans erreurs

[L.Patrick]

slt, j'aimerais savoir en utilisant cette ligne de commande :
ActiveSheet.Range("D17") = CLng(UserForm1.Txtnumader)
je voudrais ne pas être obligé d'entrer un chiffre car si je laisse la case vide, il se produit une erreure. Merci d'avance

 

[vincent]

Bonsoir

je pense que le plus simple serai de rajouter un if :

if isnumeric(UserForm1.Txtnumader)=true then ActiveSheet.Range("D17") = CLng(UserForm1.Txtnumader)

Bonne soirée

@+Vincent

 

[L.Patrick]

Merci beaucoup Vincent à plus