Eviter une erreur et le retour au debogage [Résolu]

Signaler
Messages postés
32
Date d'inscription
mercredi 14 avril 2010
Statut
Membre
Dernière intervention
20 mai 2010
-
Zer0Termi
Messages postés
32
Date d'inscription
mercredi 14 avril 2010
Statut
Membre
Dernière intervention
20 mai 2010
-
Hey à tous,

Voilà j'ai créer un petit programme pour une entreprise en VBA qui affiche des documentations techniques....
Voici l'instruction qui me permet ceci :

Private Sub Rechercher_OK_Click()
vVAr1 = ComboBox4.Value
vVAr2 = ComboBox2.Value
vVar3 = ComboBox3.Value

For Each c In Worksheets("Listes").Range("B7", Range("B7").End(xlDown).Address)
If c vVAr1 And c.Offset(0, 1) vVAr2 And c.Offset(0, 2) = vVar3 Then
ThisWorkbook.FollowHyperlink (c.Offset(0, 3).Value)
End If
Next
End Sub

En fait, si le fichier désigné par "c.Offset(0, 3).Value" est introuvable ou autre j'aimerais afficher un message d'erreur comme un msg box et pas que le debogeur se mette en route ... Je ne sais pas comment faire .

Merci :)

2 réponses

Messages postés
1839
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
9
Salut

For Each c In Worksheets("Listes").Range("B7", Range("B7").End(xlDown).Address)
   If c vVAr1 And c.Offset(0, 1) vVAr2 And c.Offset(0, 2) = vVar3 Then
      On Error Resume Next
      ThisWorkbook.FollowHyperlink (c.Offset(0, 3).Value)
      If Not Err=0 Then Msgbox "blablablabla ! ",VbExclamation
   End If
Next



A+
Messages postés
32
Date d'inscription
mercredi 14 avril 2010
Statut
Membre
Dernière intervention
20 mai 2010

Merci bigfish_le vrai pour la rapidité et la clarté de ta réponse

Je valide!!!!! :D