j'ai ceci
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B2:B21"), Target) Is Nothing And Target.Count = 1 Then
Recherche Target.Value, Target.Row
End If
End Sub
et ceci
Option Explicit
Sub Recherche(Nom As String, Ligne As Long)
Dim Cel As Range
Dim Depart As String
Dim Ws As Worksheet
Range("C" & Ligne & ":D" & Ligne).ClearContents
For Each Ws In Sheets(Array("Rangées 1", "Rangées 2", "Rangées 3"))
Set Cel = Ws.Cells.Find(what:=Nom, LookIn:=xlValues, lookat:=xlWhole)
If Not Cel Is Nothing Then
Range("C" & Ligne) = Cel.Offset(0, 1)
Range("D" & Ligne) = Ws.Name
Exit Sub
End If
Next Ws
MsgBox "Produit non trouvé"
End Sub
vous penser que c'est possible de convertir ?