marty14
Messages postés104Date d'inscriptionlundi 21 août 2006StatutMembreDernière intervention29 mai 2011
-
28 juin 2009 à 11:19
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDerniè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 ")
marty14
Messages postés104Date d'inscriptionlundi 21 août 2006StatutMembreDernière intervention29 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")