Variable Objet Ou Variable De Bloc With Non Définir Est
Panacée06 je reçois le Erreur d'exécution '91': variable d'objet ou avec variable de bloc non définie sur ce morceau de code particulier, je ne peux pas comprendre ce qui ne va pas... 'Booking Number Validation With Sheets("New Enquiries") Dim r As Set r = ("A:A")(, LookAt:=xlWhole, MatchCase:=False) If r = Then MsgBox ("Booking Number already exists. ") Call UserForm_Initialize Else MsgBox ("Enquiry has been added. Variable objet ou variable de bloc with non définie erreur 91. ") End If End With je reçois l'erreur en ligne If r = Then Le but de ceci est de regarder lors de l'ajout de données via le formulaire utilisateur, si le numéro de réservation existe déjà, en informer l'utilisateur puis initialiser le formulaire utilisateur, s'il n'existe pas, ajoutez les données et confirmez la saisie. EDIT: sur la base de la réponse de YowE3K, j'ai modifié son code et j'ai proposé ce qui suit; If r Is Nothing Then MsgBox "Enquiry has been added. " If = Then MsgBox "Booking Number already exists. " YoE3K Vous ne vérifiez pas si la valeur existe déjà avant d'essayer d'utiliser la plage: 'Find was not successful - do whatever you want in that situation '... 'Find was successful 'You shouldn't ever reach this spot because you were searching 'for, so should be equal to it Sur la base du code révisé du PO, la solution finale peut être simplifiée pour: Cet article est collecté sur Internet, veuillez indiquer la source lors de la réimpression.
Variable Objet Ou Variable De Bloc With Non Définir Action
Il pourrait ne pas être un ActiveWorkbook si votre add-in est le seul classeur chargé... Original L'auteur Santhi Kabir | 2013-07-17
innerText en cas d'erreur goto 0 Si Srd27 <> "" alors ("D27"). Value = Srd27 Autre ("D27"). Value = "Produit non trouvé" fin si "répéter pour le reste du code Et bien sûr, j'encourage toujours à utiliser Option Explicit et à déclarer toutes les variables.