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

Messages postés
32
Date d'inscription
mercredi 14 avril 2010
Statut
Membre
Dernière intervention
20 mai 2010
- - Dernière réponse : Zer0Termi
Messages postés
32
Date d'inscription
mercredi 14 avril 2010
Statut
Membre
Dernière intervention
20 mai 2010
- 27 avril 2010 à 10:02
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 :)
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
1839
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
8
3
Merci
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+

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 188 internautes nous ont dit merci ce mois-ci

Commenter la réponse de bigfish_le vrai
Messages postés
32
Date d'inscription
mercredi 14 avril 2010
Statut
Membre
Dernière intervention
20 mai 2010
0
Merci
Merci bigfish_le vrai pour la rapidité et la clarté de ta réponse

Je valide!!!!! :D
Commenter la réponse de Zer0Termi