j'ai une macro qui compare le texte saisi en colonne A et va chercher ce qui lui correspond dans un autre fichier à l'aide de vlookup. (merci Youki)
mon problème est que lorsque la donnée saisie comporte une lettre, elle devient du texte et non un nombre et je ne sais pas pourquoi mais ce code ne fonctionne plus.
il faudrait, je pense, changer l'architecture de la ligne
Chemin1 = "X:\communication_interne\gestion_temps\Références classées avn.xls"
If Dir(Chemin1) <> "" Then
fichier = "'C:\[bd1.xls]Feuil1'!$A$1:$B$65000"
Application.EnableEvents = False
Target.Offset(, 1).Formula = "=VLOOKUP(" & Target & "," & fichier & ",2,FALSE)"
MsgBox Target.Offset(, 1).Formula
If Application.IsNA(Target.Offset(, 1)) Then _
MsgBox "Nom inconnu": Target.Offset(, 1) = "": Target.Select
Target.Offset(, 1).Value = Target.Offset(, 1).Value
mon problème est que lorsque la donnée saisie comporte une lettre, elle devient du texte et non un nombre et je ne sais pas pourquoi mais ce code ne fonctionne plus.
il faudrait, je pense, changer l'architecture de la ligne
qu'en pensez-vous ?Target.Offset(, 1).Formula = "=VLOOKUP(" & Target & "," & fichier & ",2,FALSE)"