Réalisation d'une macro pour afficher des images Excel 2007

Bonjour à tous,

Dans le cadre de mon stage en entreprise, j'ai été chargé de concevoir un fichier excel servant à créer automatiquement des Notices au poste de travail (NPT) en fonction des produits chimiques utilisés. Pour chaque produit correspond un ou plusieurs pictogrammes. J'ai réussi à faire un sorte que le nom des pictos s'affiche correctement dans la bonne case (cellules en jaune) mais le but serait que ce soit l'image du picto et non le nom qui apparaisse dans ces cellules

Tout les pictogrammes et leur nom se trouvent dans une autre feuille que la notice (feuille images)

J'aimerais donc savoir si quelqu'un sait comment y parvenir via une macro (Je suis malheureusement novice sur VBA)

Je vous remercie d'avance pour votre aide !

voici le fichier en question, pour le produit "z" par exemple, toutes les cellules en jaunes doivent être occupées par un pictogramme

Alex.

A mettre dans le module de la feuille NPT

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G5")) Is Nothing Then
    For Each sh In ActiveSheet.Shapes
        sh.Delete
    Next sh

    For i = 1 To 10
        On Error Resume Next
        If Cells(13, i) <> "" Then
            Sheets("images").Shapes(Cells(13, i)).Copy
            Cells(13, i).Offset(2, 0).Select
            ActiveSheet.Paste
            Selection.ShapeRange.Left = Cells(13, i).Left 'à adapter
            Selection.ShapeRange.Top = Cells(13, i).Top
        End If
        If Cells(16, i) <> "" Then
            Sheets("images").Shapes(Cells(16, i)).Copy
            Cells(16, i).Offset(2, 0).Select
            ActiveSheet.Paste
            Selection.ShapeRange.Left = Cells(16, i).Left 'à adapter
            Selection.ShapeRange.Top = Cells(16, i).Top
        End If
    Next i
End If
End Sub

Je l'ai essayé, en ajustant et en peaufinant un tout petit peu, ça marche à merveille!

Merci beaucoup !!!

Bien joué! J'ai remarqué des erreurs sur les noms des images ne correspondant pas; mais je me disais que tu aurais su le faire. Un stagiaire proactif ça ne court pas les rues! Bon stage!

Rechercher des sujets similaires à "realisation macro afficher images 2007"