Stopper un compteur!

[Nico]

Salut a tous! J'ai un petit soucis avec un compteur! Je vous explique:

Je rentre comme donnee, une reference produit. Je demande a mon programme de rechercher ( grace a un compteur) cette reference dans une liste et de m'indiquer les informations correspondante a ce produit. Or, Si cette reference n'existe pas, le programme bug, car mon compteur ne s'arrete pas. de plus j'aimerais voir afficher une fenetre en disant que cette reference produit n'existe pas! Comment faire!? Merci pour votre aide.

 

[Michel_M]

Bonjour Nico,

Avant de lancer ton compteur, essayes de vérifier si ta reférence existe dans la liste

par exemple

if application.countif(range("taliste");la_ref_saisie)=0 then
msgbox "réf inconnue"
exit sub
endif

A+
Michel

 

[Robert]

Bonjour Nico,
Sans le code on ne peux pas faire grand chose...

 

[Nico]

Je vous fais parvenir le code! Merci de m'aider.

 

[Michel_M]

re

a placer avant ton ordre de boucle ("do")

If Application.CountIf(Range("1:1"), Me.TextBox1.Value) = 0 Then
MsgBox "référence inconnue"
Unload Me
Exit Sub
End If

michel

 

[Nico]

Merci beaucoup michel! T'es vraiment super!

 

[Nico]

J'ai un autre petit probleme michel!

j'ai ma reference G0001235 qui existe bien dans ma base, et lorsque je rentre comme code produit dans la boite de dialogue g0001235, mon programme bug. En effet, il considere que la reference existe bien dans un premier temps, mais ensuite il ne la trouve pas dans la base! Comment eviter cela?

Jespere avoir ete clair dans mes explications! Merci encore.