Erreur d'exécution '91
Bonjour j'ai un userform avec une combobox et un textbox.
Le combobox fait référence à une plage sur une autre feuille et cela fonctionne
Le soucis est que si je saisie une valeur qui n'existe pas dans cette plage j'ai l'erreur d'exécution '91' qui arrive
"Variable objet ou variable de bloc With non définie "
Comment faire pour éviter ça ?
Je souhaiterais que rien ne se passe si la valeur n'existe pas ! ou alors un MsgBox pour m'avertir!
Merci de votre aide.
Bonjour,
De la même façon que tu as résolu ton sujet précédent !
bonjour,
fais un test pour vérifier que la valeur existe bien. Si elle existe lance la suite des opérations sinon affiche un msgbox.
je t'invite à lire le rappel dans ma signature.
je vois que Mferrand,que je salue, a déjà répondu.
Visiblement à vous lire j'ai du faire quelque chose qui ne vous plait pas!
Bonjour
Et si au moins tu joignais ton fichier ???
Merci
Relis ton sujet précédent, le même en fait !
Bonjour
Private Sub ComboBox1_AfterUpdate()
On Error GoTo pb
ln = WS.Range("A:A").Find(ComboBox1, lookat:=xlWhole).Row
TextBox1 = ComboBox1
ComboBox2 = WS.Cells(ln, 2)
TextBox3.Value = 0
pb:
MsgBox "Cet ingrédient n'existe pas."
End Subet AfterUpdate plutôt que Change qui se déclenche à chaque caractère saisi
Bye
Merci Pattty5046 , le soucis est que le MsgBox se lance a chaque "ingrédients";présent ou pas.
Re
Oui bien sûr , j'ai fait une erreur
Private Sub ComboBox1_AfterUpdate()
On Error GoTo pb
ln = WS.Range("A:A").Find(ComboBox1, lookat:=xlWhole).Row
TextBox1 = ComboBox1
ComboBox2 = WS.Cells(ln, 2)
TextBox3.Value = 0
Exit Sub
pb:
MsgBox "Cet ingrédient n'existe pas."
End SubJe pense que c'est cela
Bye
Formidable Patty5046!
Merci à toi
Re
Contente pour toi
Et mon petit coeur pour montrer que tu es satisfait
Merci Bonne soirée
Bonjour,
Visiblement à vous lire j'ai du faire quelque chose qui ne vous plait pas!
il très difficile de solutionner un problème de macro si tu ne mets pas le fichier, si tu ne mets pas la macro, si tu ne réponds pas aux questions qui te sont posées... Choses que j'ai voulu te rappeler en te renvoyant au message à lire avant de poster