image selon valeur cellule dans même classeur

Question

Bonjour voilà j'ai trouver un code qui me permet d'afficher une image selon cellule et dans le même classeur, cependant est il possible de faire référence à une cellule dans une autre feuille
explication: classeur 3 feuilles (feuil1=infos / feuil2=annexe / feuil3=images
pour le moment la cellule de sélection est dans la même feuille que l'image qui apparaît, maintenant j'aimerais que quand je saisie en C2 de la feuil1 la valeur 1, l'image qui correspond à ce numéro ce trouvant dans la feuil3, s'affiche dans la feuil2 même chose pour 2,3,4, etc...
merci pour votre aide
  
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column 10 And Target.Count 1 Then
    '-- suppression
        For Each s In ActiveSheet.Shapes
            If s.Type = 13 Then
                If s.TopLeftCell.Address = Target.Offset(0, 1).Address Then
                    s.Delete
                End If
            End If
        Next s
    '--
        If Target <> "" Then
            On Error GoTo Pas_Image
            Sheets("Images").Shapes(Target).Copy
            On Error GoTo 0
            Target.Offset(0, 1).Select
            ActiveSheet.Paste
            Selection.ShapeRange.Left = ActiveCell.Left + 9
            Selection.ShapeRange.Top = ActiveCell.Top + 32
            Target.Select
        End If
    End If
Pas_Image:
    If Error = "L'élément portant ce nom est introuvable." Then Exit Sub
End Sub

mjpmjp · Answer

bonjour
tu peu expliquer : "l'image qui correspond à ce numéro..."

if Sheets("feuil1").Range("C2").value = "1" Then _
Sheets("feuil2").ImageCible1.Picture = Sheets("feuil3").Image1.Picture 

ça pourrait peut etre quelque chose comme çà...

@+JP

centrino34 · Answer

d&#8217;abord merci pour votre réponse rapide.
y à t'il un moyen pour que je puisse vous envoyer mon classeur
cela sera plus simple pour vous
merci

Image selon valeur cellule dans même classeur

2 réponses

Votre réponse

Discussions similaires