Affiche image interne d'une feuille sur survol cellule

Bonjour à tous et toutes,

Voilà je bloque sur une fonction pour mon fichier excel. J'ai pas mal cherché sur le net et les forums mais pas vraiment trouvé la fonction adéquate.

Je vous pose mon problème si l'un de vous avait une solution cela serait super

j'ai à la base un fichier excel contenant 2 onglets :

- un onglet armée et un onglet image.

L'onglet armée contient les champs que je veux passer en survol et le lieu ou je veux voir apparatre les images.

L'onglet image contient 1 ou 2 images à chaque fois pour un nom donné.

Exemple de ce que je veux faire :

Quand sur l'onglet "armée" je passe la souris sur le champ C6 (Romeo Exxet) je voudrais voir apparaître dans les champs L7 et N7 les images (B1 et C1) en rapport avec le même nom que la colonne A1 (Romeo Exxet) de l'onglet images..

J'espère avoir été clair, ci-joint un fichier exemple pour plus de facillité car perso je ne trouve toujours pas comment faire.

Nek.

Cordialement

Personne n'as une idée ?

Bonjour

A tester

Bonjour,

Pour le problèmes de taille des box, je vais les réduire mais j'ai malgré tout une erreur, une 1004.

Cordialement

Bonsoir

Tu me poses une colle

Je ne sais pas pourquoi

Chez moi j'affiche bien le 2 premières images lors de la sélection de C6

et la zone de texte si je sélectionne C7

Une histoire de version peut-être, mais dans ce cas je ne vais pas t'aider beaucoup plus

Désolé

Quel version de Excel utilise tu ?

Si quelqu'un à une idée ?

Je suis en 2007 et j'ai une erreur sur cette ligne qui sur surligne en jaune apparement.

Set Cel = Sheets("images").Columns(1).Find(what:=Target, LookIn:=xlValues, LookAt:=xlWhole)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Lig As Long
Dim Col As Integer
Dim Sh As Shape
Dim Cel As Range
Dim ColRecep As Integer

Application.ScreenUpdating = False
  If Not Intersect(Range("C6:C30"), Target) Is Nothing And Target.Count = 1 Then
    On Error Resume Next
    ActiveSheet.Shapes("monimage1").Delete
    ActiveSheet.Shapes("monimage2").Delete
    On Error GoTo 0
    If Target <> "" Then
      [color=#0000BF][b]Set Cel = Sheets("images").Columns(1).Find(what:=Target, LookIn:=xlValues, LookAt:=xlWhole)[/b][/color]
      If Cel Is Nothing Then
        MsgBox "Nom inconnu " & Target
        Exit Sub
      End If
      Lig = Cel.Row
      ColRecep = 12
      For Col = 2 To 3
        For Each Sh In Sheets("Images").Shapes
          If Sh.TopLeftCell.Address = Cells(Lig, Col + Abs(Col = 3)).Address Then
            Sh.Copy
            Cells(7, ColRecep).Select
            ActiveSheet.Paste
            Selection.Name = "monImage" & Col - 1
            Selection.ShapeRange.Left = ActiveCell.Left
            Selection.ShapeRange.Top = ActiveCell.Top
            Exit For
          End If
        Next Sh
        ColRecep = 14
      Next Col
    End If
    Target.Select
  End If
End Sub

Bonjour

Comme mon profil l'indique je suis avec 2003

Cette ligne provoque le message d'erreur que tu as envoyé en image ?

Bizarre et pour moi incompréhensible

Quelqu'un va tester avec 2007 et apportera une réponse

Chez moi il y a rien qui s'affiche mais par contre j'ai pas d'erreur!

Je suis en version 2010 d'excel