message erreur = beug des macros

[kinkalero]

bonjour,

Mon classeur possède plusieurs macros et quand il y a une erreur, j'arrive à faire afficher une textbox avec On Error GoTo....
mais après avoir clické OK jarrive sur un message d'erreur N°... et donc on me laisse soit le choix fin ou débogage.
Est ce qu'il y a une solution pour que seule ma textbox gère l'erreur et que je puisse retourner à mon application sans tt redémarer svp?

Merci
Cordialement
Kinké

 

[porcinet82]

Re : message erreur = beug des macros

Salut Kinkalero,

Si tu veux que ta macro s'arrete dès l'erreur, tu rajoute un Exit For, ce qui devrait te donner un truc du genre :
'.... du code
On error goto message
'.... du code
message:
Exit sub

Sinon tu peux peut etre te servir du On Error Resume Next qui te permet de sauter le code qui pose problème.

En faite, tout depend de ton application, de ce que tu veux faire, et si tu as besoin de l'information qui pose problème dans la suite du traitement.

Sinon, tu n'as pas moyen de gerer l'erreur d'une autre manière? Peut etre qu'un exemple de ton code serait plus parlant.

@+

 

[kinkalero]

Re : message erreur = beug des macros

..........

 

[kinkalero]

Re : message erreur = beug des macros

en fait voici mon code :

Private Sub ComboBox1_Change()
Dim ligne As Integer

On Error GoTo VerificationErreur
Dim DocName As String


VerificationErreur: 'si une erreur se produit dans le code, ca vient ici
If Err.Number = 91 Then
MsgBox "Impossible de trouver la Personne, cliker sur OK, Fin, puis Menu pour recommencer votre demande."

End If

'on recherche la ligne correspondant au choix de la combobox
With Sheets("list")

ligne = .Range("annu").Find(ComboBox1).Row

'on remplit les textbox
TextBox1 = .Cells(ligne, "E")
TextBox2 = .Cells(ligne, "F")

End With

End Sub

Et si je tape un faux nom, il me fait un beug....
Que dois-je faire???
Merci

 

[Hervé]

Re : message erreur = beug des macros

bonjour

j'ai pas bien compris comment ton code allais fonctionner, mais tu peux peut etre t'inspirer de ceci :

Private Sub ComboBox1_Change()
Dim ligne As Range
Dim DocName As String


'on recherche la ligne correspondant au choix de la combobox
With Sheets("list")

Set ligne = .Range("annu").Find(ComboBox1)
If ligne Is Nothing Then
    MsgBox "Impossible de trouver la Personne, cliker sur OK, Fin, puis Menu pour recommencer votre demande."
    Exit Sub
End If
'on remplit les textbox
TextBox1 = .Cells(ligne.Row, "E")
TextBox2 = .Cells(ligne.Row, "F")

End With


End Sub

salut

 

[kinkalero]

Re : message erreur = beug des macros

Merci Hervé sa fonctionne super bien!!