Comment affecter des images à des boutons

Résolu
Signaler
Messages postés
1277
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
28 mars 2021
-
Messages postés
1277
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
28 mars 2021
-
Bonjour,

J'ai trouvé sur le net une méthode que j'ai essayé de modifier pour affecter une image à un bouton de commande Excel en VBA:
For i = 1 To 30
Set ctrl = ActiveSheet.OLEObjects("CommandButton" & i)

ctrl.Object.Picture = Range("A" & i).Value

CB1.Picture = LoadPicture("C:\image1.bmp")
ou
CB1.Picture = loadPicture("Sheets(classe).
Range("A1")")
Next

J'ai 30 boutons à affecter, je voudrais savoir comment je peux faire car cela ne fonctionne pas.

Quelqu'un peut-il m'aider SVP? Merci

5 réponses

Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
35
Bonjour,

Tu étais pas loin
For i = 1 To 30
  Set ctrl = ActiveSheet.OLEObjects("CommandButton" & i)
  ctrl.Object.Picture = LoadPicture(Range("A" & i).Value)
Next


_____________
Kenji
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
35
Tu peux faire comme tu veux :

ctrl.Object.Picture = LoadPicture("C:\image1.bmp")


_____________
Kenji
Messages postés
1277
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
28 mars 2021

Bonjour et encore merci Charles Racaud!
Messages postés
1277
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
28 mars 2021

J'ai cependant encore une interrogation SVP:
Faut-il que l'image soit dans la colonne "A" ou puis-je y mettre le chemin d'accès à cette image ?

Merci à vous.
Messages postés
1277
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
28 mars 2021

Super merci ! ça marche super bien.

Même si ça met du temps pour charger je suis très satisfait.

Merci.