Affecter une image à un bouton formulaire

Bonjour,

je suis encore débutant VBA-Excel, je souhaite affecter une image à un bouton , j'ai utilisé le code suivant :

Set boutonSuppr = ActiveSheet.Buttons.Add(PosG, PosH, Longueur, Hauteur)

With boutonSuppr

.OnAction = "méthode1"

.Picture = LoadPicture(chemin)

End With

mais malheureusement il se bloc dans l'instruction ".Picture = LoadPicture(chemin)" .

Merci par avance pour votre aide

Bonjour Zineb,

lorsque tu crées un bouton, tu peux lui affecter une image.

Clic droit sur le bouton et choisi "Propriétés".Choisi l'onglet "Par catégorie",

Dans " image" clique sur Picture et choisi le chemin pour charger ton image.

Dans PicturePosition tu as diifrents choix pour positionner ton image dans le bouton.

Cordialement.

Salut le forum

Tu ne peut pas associé une image à un bouton issu de la boîte à outils « Formulaire »

Mytå

Effectivement, j'ai oublié de préciser que j'étais dans le cas d'un bouton dans un userform.

Re le forum

Pour créer un CommandButton avec une image sur la feuille active et le code associé.

Sub CréerBouton()
    Dim Obj As Object
    Dim Code As String

    'Crée le bouton
    Set Obj = ActiveSheet.OLEObjects.Add _
              (ClassType:="Forms.CommandButton.1", _
               Link:=False, DisplayAsIcon:=False, _
               Left:=200, Top:=100, Width:=100, Height:=35)
    Obj.Name = "BoutonTest"

    'Image du bouton
    ActiveSheet.OLEObjects(1).Object.Picture = LoadPicture("C:\Pictures\procyon.bmp")

    'Le code de la macro
    Code = "Sub BoutonTest_Click()" & vbCrLf
    Code = Code & "Call Tester" & vbCrLf
    Code = Code & "End Sub"

    'Ajoute la macro en fin de module feuille
    With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
        .insertlines .CountOfLines + 1, Code
    End With

End Sub

Mytå

Il y a une possibilité....

Voir fichier joint.

Cela peut répondre à la demande.

Cordialement.

OK, Merci patrick33 et Mytå , je crois que je dois modifier mon bouton formulaire avec un bouton CommandButton donc

ah, je viens de voir ta dernière proposition "patrick33", je crois quelle est bonne celle ci Merci :

Tu peux aussi le faire en insérant une image dans ton userform, et en utilisant l’événement (clic droit sur l'image dans le userform puis "code")

Private Sub Image1_Click()
    Ici je déroule la suite
End Sub

Voir le fichier joint

A plus