Eviter une erreur et le retour au debogageRésolu

Question

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 :)

bigfish_le vrai · Accepted Answer

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+

Zer0Termi · Answer

Merci bigfish_le vrai pour la rapidité et la clarté de ta réponse

Je valide!!!!! :D

Eviter une erreur et le retour au debogage

2 réponses

Votre réponse

Discussions similaires