Chèn hình vào 1 ô khi 1 ô khác có điều kiện

[lamho27]

chào các bạn
Nhờ các bạn giúp giùm 1 vấn đề như sau : ở sheet " saisie(2)" ô D5 nếu em cho 1 số thì ô C9 sẽ cho 1 hình tương ứng theo điều kiện ở sheet " Image 1 "

Cám ơn các bạn nhiều

 

[tvxdgt]

chào các bạn
Nhờ các bạn giúp giùm 1 vấn đề như sau : ở sheet " saisie(2)" ô D5 nếu em cho 1 số thì ô C9 sẽ cho 1 hình tương ứng theo điều kiện ở sheet " Image 1 "

Cám ơn các bạn nhiều

Đây bạn, mình cũng đọc bài trên diễn đàn rồi sữa lại đoạn code cho phù hợp với dử liệu của bạn thôi. Nguồn lấy từ code của anh Ndu.

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Rng As Range, PicName As String
  Application.ScreenUpdating = False
  On Error Resume Next
  If Not Intersect([D5], Target) Is Nothing Then
    Set Rng = Sheet1.Range(Sheet1.[B1], Sheet1.[B65536].End(xlUp))
    PicName = Rng.Resize(, 1).Find(Target, LookAt:=xlWhole).Offset(, 2)
    ActiveSheet.Shapes("Pic").Delete
    With ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & PicName)
     .Name = "Pic"
     .Left = [C9:D9].Left: .Top = [C9:D9].Top
     .Width = [C9:D9].Width: .Height = [C9:D9].Height
   End With
  End If
End Sub

Bạn xem file đính kèm.