Activation Vlookup problème

[tibtelcom]

Bonjour,
J'ai un problème avec la commande vlookup et si vous avez le temps, je serais très heureux que vous arriviez à me trouver une solution.

j'ai une procédure worksheet_change qui s'active quand je modifie une des cellules de la plage b9:b60
à la modification de cette cellule je fais appel à vlookup pour remplir les cellules présentes sur la même ligne. Cependant cela bug de temps en temps et je ne trouve pas la solution.

J'arrive à rentrer dans la procédure mais vlookup ne s'active pas.

Voici mon code

Private Sub Worksheet_Change(ByVal Target As Range)

'Insertion automatique du libellé lorsqu'une référence est saisie
If Intersect(Range(Target.Address), Range("b9:b60")) Is Nothing Then Exit Sub

On Error Resume Next
If Target.Count > 1 Then Exit Sub


Dim chemin1, chemin2, fichier1, fichier2, var As String

chemin1 = "C:\bd1.xls"
chemin2 = "C:\bd2.xls"


    If Dir(chemin1) <> "" And IsNumeric(Target) = True Then
  
        fichier1 = "'C:\[bd1.xls]Feuil1'!$A$1:$D$1000"
        Application.EnableEvents = False
        Target.Offset(, 2).Formula = "=VLOOKUP(" & Target & "," & fichier1 & ",4,FALSE)"
        Target.Offset(, 1).Formula = "=VLOOKUP(" & Target & "," & fichier1 & ",3,FALSE)"
        If Application.IsNA(Target.Offset(, 2)) Then _
        MsgBox "Nom inconnu": Target.Offset(, 2) = "": Target.Select
        Target.Offset(, 2).Value = Target.Offset(, 2).Value
        
    
    
    ElseIf Dir(chemin2) <> "" And IsNumeric(Target) = False Then


       'Affectation du libellé si la référence est du texte
        var = UCase(Target)
        fichier2 = "'C:\[bd2.xls]Feuil1'!$A$1:$B$100"
        Application.EnableEvents = False
        Target.Offset(, 2).Formula = "=VLOOKUP(""" & var & """," & fichier2 & ",2,FALSE)"
        
        If Application.IsNA(Target.Offset(, 2)) Then _
        MsgBox "Nom inconnu": Target.Offset(, 2) = "": Target.Select
        Target.Offset(, 2).Value = Target.Offset(, 2).Value
        Target.Offset(, 1) = ""

            
    End If
 Application.EnableEvents = True
End Sub

de temps en temps j'arrive à débugger en executant

Sub test()
Application.EnableEvents = True

End Sub

mais dernièrement ce la ne fonctionne plus.

Quelqu'un aurait-il une idée ?
Merci

 

[tibtelcom]

Re : Activation Vlookup problème

En fait j'ai trouvé, les cellules ou devait s'appliquer Vlookup étaient verrouillées et la feuille protégée donc rien ne pouvait se passer.