Insérer une image dans une cellule

Bonjour Bonjour,

Dansla m^me cellule c'est difficile car l'image occupera toute la cellule lorsque elle sera chargée et donc, tu cliqueras sur l'image et non sur la cellule.
Si ta cellule de commande est en A3, l'image apparaissant en B3:
macro à copier-coller dans le module feuille concerné (clic droit sur nom d'onglet-visualiser le code)
tu peux insérer tout type de format: gif, bmp, jpeg...
la macro se déclenche quand tu cliques sur A3... il faut recliquer avant de fermer

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static flag As Boolean
Dim Image As Picture
Dim design As String
If flag = False Then
    If Intersect(Target, Range("A3")) Is Nothing Then: Exit Sub
    design = ThisWorkbook.Path & "\aubenas.jpg"
    Set Image = ActiveSheet.Pictures.Insert(design)
    Range("B3").Select
    With Image.ShapeRange
        .Name = "cartepost"
         .Height = Range("B3").Height
        .Width = Range("B3").Width
        .LockAspectRatio = msoFalse
    End With
    flag = True
    Range("A3") = "cacher"
Else
    ActiveSheet.Shapes("cartepost").Delete
    flag = False
    Range("A3") = "montrer"
End If
End Sub

p'tite démo
https://www.cjoint.com/?fmtbiTSlAG


Bonsoir cher Bonjour (ben oui, j'allais la louper!)

Salut!

Super c'est exactement ce que je voulais! Merci infiniment!

PS: Oui, la perche était trop grande :-) ;-)