AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 12 05 14:37:25
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : On error goto lablel [ Archives Visual Basic / VBA ] (TRAX44)

vendredi 24 octobre 2003 à 16:28:07 | On error goto lablel

TRAX44
Salut,
j'ai un petit problème avec On Error goto label
si Il ya deux erreur dans le même module ou function la seconden'est pas gérer ce qui créer un erreur fatal qui interrompe le programme.
PS Je ne veux pas utiliser On Error resume next.
TRAX
trax is alive
vendredi 24 octobre 2003 à 18:06:24 | Re : On error goto lablel

ludo24

effectivement, un seul On Error est permis...PAR FONCTION.

La seule astuce consiste alors à s'arranger pour appeler autant de fonctions (ou procédures) que tu as besoin de On Error.
En plus, c'est beaucoup plus propre.
samedi 25 octobre 2003 à 14:46:43 | Re : On error goto lablel

fuck
Par exemple tu fais une fonction comme celle ci (par exemple bien sûr) :

Public Function Rechercher(String1 As String, String2 As String, MotEntier As Boolean, RespectCase As Boolean, debut As Long) As Long

On Error GoTo Fuck1 ' erreur motentier=Null
If MotEntier = True Then
On Error GoTo Fuck2 ' erreur RespectCase=Null
If RespectCase = True Then
On Error GoTo Fuck3 ' erreur strings=null
Rechercher = InStr(debut, UCase(Chr(0) & String1 & Chr(0)), UCase(Chr(0) & String2 & Chr(0)))
Else
Rechercher = InStr(debut, Chr(0) & String1 & Chr(0), Chr(0) & String2 & Chr(0))
End If
On Error GoTo Fuck1 ' erreur motentier=Null
Else
On Error GoTo Fuck2 ' erreur RespectCase=Null
If RespectCase = True Then
On Error GoTo Fuck3 ' erreur strings=null
Rechercher = InStr(debut, UCase(String1), UCase(String2))
Else
Rechercher = InStr(debut, String1, String2)
End If
End If
Exit Function
Fuck1:
MsgBox "Mot Entier n'a pas de valeur", 16, "Erreur : Fuck1"
Exit Function
Fuck2:
MsgBox "Respecte Case n'a pas de valeur", 16, "Erreur : Fuck2"
Exit Function
Fuck3:
MsgBox "String1 ou string2 n'est pas une string ou debut est égale à 0", 16, "Erreur : Fuck2"

End Function


En fait Fuck1 est le premier label et des qu'il y a une erreur ca vas directement a ce label grace a "On error goto Fuck1

Pareil pourles autres Fuck

N'ayant point VbA tester ce code ( il marche sous vb6 )
vendredi 8 décembre 2006 à 10:58:24 | Re : On error goto lablel

v.massip

Membre Club
Un "On Error Goto label" ne permet de gérer effectivement qu'une erreur par fonction ou procédure.

Pour remédier à cela sans utiliser de "On Error Resume Next", il faut utiliser l'appel "On Error Resume label".

Le resultat est le même qu'un "On Error Goto label" mais il y a remise à zéro de la gestion des erreurs et donc possibilité de gérer plusieurs erreur dans une même fonction ou procédure...

 


Cette discussion est classé dans : erreur, error, goto, trax, lablel

Répondre à ce message

Sujets en rapport avec ce message

gestion des erreur [ par lu6fer ] je voudrai faire une gestion d'erreur sur un bouton au debut je me suis dit avec un On Error Goto ca pourait marcher masi le pb c que l'etiquette du O On Error Goto avant un Form_Load ? [ par Linkuff ] Salut à tous !J'ai programmé un logiciel dont l'une des form (en l'occurence la premiere form chargée) utilise un form transparent disponible avec "Mi probleme pour les "on error goto ..." [ par hasen ] Bonjour a tous,J'ai un probleme en ce qui concerne mes fonctions en vba. Pour gérer le mieux possible les erreurs eventuelles, j'utilise la fameuse li on error goto probleme 2eme passage [ par uasu ] Voilà un code completement stupide mais qui resume le probleme que j'ai --------------------------------------------Private Sub Command1_Click()Do Wh Erreur [ par papi jim ] Bonjour, ya aurait-il une âme charitable pour me fournir qq explications sur la gestion d'erreurs et les label, ou me passer un lien l'expliquant (je Probleme avec On Error Goto blabla: [ par Number32 ] Salut a tous !! Bon voilla apres plusieurs année  a aprendre le Php ... J'me suis lancé au Vb ... J'essayes de créé un logiciel qui ce connect a uns Instruciotn On error [ par ricomiracle ] Bonjour, Voila mon problème: J'utilise l'instruction On error goto pour gérer une erreur dans une fonction que l'on appelera fonction1. Cette fonction On error Goto et On local error Goto [ par XGuarden ] Qui est capable de me dire la différence "entre on error goto" et "on local error goto" J'ai pas trouvé de cas ou sa bien pu faire une différence. Arrêter un On Error GoTo... [ par pjouy ] BonjourDans mon programme, j'ai intégré des "On Error GoTo" ... je ne peux pas faire autrement.Je souhaite que ce gestionnaire d'erreur n'affecte qu'u Très urgent gestion erreur [ par bigboy2g15 ] Bonjour,Voila, je voudrai résoudre le seul et dernier bug ( connu ) de mon projet de stage ( qui se fini vendredi )Je voudrai savoir s'il y a un moyen


Nos sponsors

Sondage...

CalendriCode

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,421 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.