Comment affecter des images à des boutons [Résolu]

Signaler
Messages postés
1274
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
28 avril 2020
-
Messages postés
1274
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
28 avril 2020
-
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
30
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
30
Tu peux faire comme tu veux :

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


_____________
Kenji
Messages postés
1274
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
28 avril 2020

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

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
1274
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
28 avril 2020

Super merci ! ça marche super bien.

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

Merci.