Gestion erreur

marty14 Messages postés 104 Date d'inscription lundi 21 août 2006 Statut Membre Dernière intervention 29 mai 2011 - 28 juin 2009 à 11:19
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 28 juin 2009 à 11:54
Bonjour,
J'ai besoin de votre aide pour la gestion des erreurs en vb.
Dans ma source il se peut que B ou C ou D etc... soit en erreur car inexistant, comment faire pour dire si B ou C etc.. = erreur remplacer par InStr(1, gg, "fin de page")
Par avance merci

Voila mon code:
b = InStr(1, gg, "Réunion 1 ")
c = InStr(b, gg, "Réunion 2 ")
d = InStr(c, gg, "Réunion 3 ")
e = InStr(d, gg, "Réunion 4 ")
f = InStr(e, gg, "Réunion 5 ")
g = InStr(f, gg, "Réunion 6 ")
h = InStr(g, gg, "Réunion 7 ")
i = InStr(h, gg, "Réunion 8 ")
j = InStr(h, gg, "Réunion 9 ")

Merci beaucoup

3 réponses

PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
28 juin 2009 à 11:27
re salut,


l'erreur n'est pas de B (par exemple), mais de l'utilisation de instr depuis zéro


B va retourner le position du "R". tu ne trouveras pas le mot "Réunion" dans "éunion"
il te suffit donc juste de commencer à B + 1 (ou même B + 10)

<hr size="2" width="100%" />
0
marty14 Messages postés 104 Date d'inscription lundi 21 août 2006 Statut Membre Dernière intervention 29 mai 2011
28 juin 2009 à 11:40
Re Pcpt,
En fait je me sert de instr et de Mid pour detecter et afficher un contenu a partir d'un mot dans un textbox comme ceci :

c = InStr(b, gg, "Réunion 2 ")
d = InStr(c, gg, "Réunion 3 ")
Text2.Text = Mid(textbox, c, d - (c + 27))

le probleme est que "réunion 3" peut exister aujourd'huis mais ne pas apparaitre demain et que si il n'apparait pas , le contenus entre c et d n'apparait pas et donc si d "réunion 3" n'existe pas donner une autre valeur à d
ex:
d= InStr(c, gg, "fin de page")
0
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
28 juin 2009 à 11:54
c'est bien ce que je dis, +1 évite l'erreur

après, mid, c'est une autre question
à toi de rester le résultat (position trouvée) avant d'aller lire l'écart

c = InStr(b, gg, "Réunion 2 ")

d = InStr(c+1, gg, "Réunion 3 ")

if d then Text2.Text = Mid$(gg, c+10, d - (c + 27))

(c étant évidemment testé avant, de la même manière)
0