Calvus
XLDnaute Barbatruc
Bonjour le forum,
Je sèche depuis plusieurs heures sur un problème que je n'arrive pas à résoudre.
Un œil neuf me serait bien utile.
En fonction des fichiers testés; les occurrences varient de 2 à 5 résultats positifs, malgré la même macro... Bizarre...
Le code se trouve évidemment dans la feuille 1.
Merci de votre aide.
Je sèche depuis plusieurs heures sur un problème que je n'arrive pas à résoudre.
Un œil neuf me serait bien utile.
En fonction des fichiers testés; les occurrences varient de 2 à 5 résultats positifs, malgré la même macro... Bizarre...
VB:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("E4:E" & Cells(Rows.Count, 5).End(xlUp).Row), Target) Is Nothing And Target.Count = 1 Then
Target.Offset(, 1).Value = Application.Index(Feuil3.Range("A2:B" & Cells(Rows.Count, 2).End(xlUp).Row), Application.Match(Target.Value, Feuil3.Range("A2:A" & Cells(Rows.Count, 2).End(xlUp).Row), 0), 2)
End If
End Sub
Le code se trouve évidemment dans la feuille 1.
Merci de votre aide.