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
de temps en temps j'arrive à débugger en executant
mais dernièrement ce la ne fonctionne plus.
Quelqu'un aurait-il une idée ?
Merci
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
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
Code:
Sub test()
Application.EnableEvents = True
End Sub
mais dernièrement ce la ne fonctionne plus.
Quelqu'un aurait-il une idée ?
Merci