Erreur sur Bouton Annuler

[zeltron24]

Bonjour à tous,

Aujourd'hui, je n'arrive pas à me concentrer, la solution est surement simple, mais je ne trouve pas.
Une erreur se produit lorsque je clique sur annuler dans ma Box alors que je voudrais faire apparaître un message.
Voici un fichier avec le code du bouton
Merci d'avance pour votre aide.
zeltron24

 

[PMO2]

Re : Erreur sur Bouton Annuler

Bonjour,

Essayez de remplacer votre code par le code suivant

Sub Bouton2_QuandClic()
Dim matricule As Variant
Do
  matricule = Application.InputBox(prompt:="Saisir le matricule", _
       Title:="Contrôle de saisie", Type:=1)
  'Sortie du module si click sur annuler
  If matricule = False Then Exit Sub
Loop Until IsNumeric(matricule)
Range("B4") = matricule
End Sub

Cordialement.

PMO
Patrick Morange

 

[kjin]

Re : Erreur sur Bouton Annuler

Bonjour le fil,

Sub Bouton2_QuandClic()
Dim m As Variant
m = Application.InputBox("Saisir le matricule", "Contrôle de saisie", Type:=1)
If m = False Then Exit Sub
Range("B4") = m
End Sub

A+
kjin

 

[zeltron24]

Re : Erreur sur Bouton Annuler

Bonsoir,
La solution de PMO2 fonctionne pour Annuler mais si on appuie sur OK avec rien dans la Box cela donne une erreur de formule.Ce qui est idem pour kjin.
Par contre ou dois je placer le MsgBox m'indiquant que m ou matricule est =""
Merci pour votre aide
A+