Macro pour qu'un bouton activex insére une image

Bonjour,

• j'ai crée un fichier excel qui contient plusieurs bouton activex
• j'aimerai qu'en cliquant sur chaque bouton, une photo de mon ordinateur apparaisse sur la plage de cellules (U3:AG27) en supprimant la précédente.
• les photos à importer font la même taille que la plage de cellules (U3:AG27) donc je suppose que si l'import se fait en U3 sans redimenssionnement ce serait parfait.

-jusque la j'ai réussi à créer une macro qui insert les photos mais elles ne se places pas au bon endroit et la précédente n'est pas supprimé:

Private Sub bouton_2000_click()

Dim Fichier As String

Fichier = "C:\Users\NORMAN\Desktop\11.png"

Feuil1.Pictures.Insert Fichier

End Sub

Voilà si quelqu'un peut m'aider ça serait fort sympa, merci

Bonjour LA SOLUS, le forum,

Un essai....à tester

Private Sub bouton_2000_click()

        Dim image As Variant
        Dim L As Single, T As Single, W As Single, H As Single

     For Each s In ActiveSheet.Shapes    'effacement de l'image
    If Not Intersect(s.TopLeftCell, Range("U3:AG27")) Is Nothing Then
       s.Delete
    End If
  Next s

        L = Range("U3:AG27").Left
        T = Range("U3:AG27").Top
        W = Range("U3:AG27").Width
        H = Range("U3:AG27").Height

        'image = Application.GetOpenFilename    'choix de l'image
        image = "C:\Users\NORMAN\Desktop\11.png"
        If image <> False Then
            Feuil1.Shapes.AddPicture image, True, True, L, T, W, H
        End If

End Sub

Bonjour,

La réponse apportée solutionne-t-elle ton problème ?

Cordialement,

bonjour, merci pour la réponse mais elle ne règle pas mon probleme, j'ai trouvé la solution sur un autre forum merci quand même

Bonjour LA SOLUS,

Merci pour ton retour.

Peux-tu me dire en quoi cela ne répondait pas à ta demande ?

j'ai trouvé la solution sur un autre forum

Ce serait sympa de poster la solution afin d'en faire profiter ce forum,

Cordialement,

Private Sub bouton_2_click()

Dim MonImage As Picture

Dim CelluleDAncrage As Range

Dim sh As Shape

For Each sh In ActiveSheet.Shapes

If (sh.Type = msoLinkedPicture Or sh.Type = msoPicture) And sh.Name = "MaBelleImage" Then sh.Delete

Next sh

With ActiveSheet

Set CelluleDAncrage = .Range("U13")

Set MonImage = .Pictures.Insert("C:\SPIN RANGE\3 HANDED\BTN\BTN\1.bmp")

With MonImage

.Placement = xlMoveAndSize

.Left = CelluleDAncrage.Left

.Top = CelluleDAncrage.Top

.Name = "MaBelleImage"

End With

End With

Bonjour LA SOLUS,

Merci pour la "soluce" ,

Cordialement,