bonjour, quelques modifs après un détour sur les forums.
grand merci pour ton aide
@Hieu, j'y serais pas arrivé tout seul.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set wf = WorksheetFunction
Set f = Sheets("STOCKS")
On Error Resume Next
test = wf.Match(Target, f.Range("C4:C1000"), 0)
Range("B4:AL58").ClearComments
If IsEmpty(Target) Or IsEmpty(test) Then Exit Sub
If Not Intersect(Target, Range("B4:AL58")) Is Nothing Then
t1 = wf.Index(f.Range("B4:B1000"), wf.Match(Target, f.Range("C4:C1000"), 0))
t2 =
"Quantité" & " " & ":" & " " & wf.Index(f.Range("H4:H1000"), wf.Match(Target, f.Range("C4:C1000"), 0))
Sheets("MAGASINS").Unprotect
Target.AddComment
Target.Comment.Visible = True
Target.Comment.Shape.TextFrame.AutoSize = True
Target.Comment.Text Text:=t1 & Chr(10) & t2
End If
End Sub