VBA: Comment afficher,en serie, une photo sur des boutons [Résolu/Fermé]

Signaler
Messages postés
1273
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
2 février 2020
-
mod77
Messages postés
1273
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
2 février 2020
-
Bonjour,

J'ai fais la boucle ci-dessous pour attribuer une photo à mes 30 boutons activeX,
mais je ne trouve pas l'erreur qui empêche cette affectation.
Il semble que ça bloque au niveau de la partie en gras.

Private Sub ComboBox1_Change()
Dim i As Integer
classe = ComboBox1.Value 'Récupère la classe

For i = 1 To 30
("CB" & i).Caption = Sheets(classe).Range("B" & i)
Next i

End Sub

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




Savoir dire NON est un devoir et une force! N'ayez pas peur! L'union fait la force!

Passez en résolu si ça l'est!

5 réponses

Messages postés
2995
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
748
Salut le forum

Tu ne peux pas le faire directement, il faut utiliser LoadPicture
CommandButton1.Picture = LoadPicture("C:\Pictures\procyon.bmp")
Mytå

Quelle prétention de prétendre que l'informatique est récente
Adam et Eve avaient déjà un Apple ! [MsProject 2003(FR), Excel 2003-2007(FR)]
Messages postés
1273
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
2 février 2020
44
Bonjour Myta ,

Je te remercie pour ta proposition mais je ne peux pas l'utiliser car je ne peux pas incrémenter le nom du bouton de commande et les photos sont rangées dans une feuille "classe" et dans une colonne"B" .

Y a-t-il une autre solution STP ? merci.
Messages postés
23273
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
26 février 2020
5 935
Bonjour,

au bout du 544ème post tu devrais savoir qu'un fichier est le bienvenu sans qu'on est besoin de le demander...
Sans réponse parfois comme ici, ce qui n'encourage pas non plus à te répondre.
eric
Messages postés
1273
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
2 février 2020
44
Bonjour Eriiic,

Désolé, mais j'ai essayé de me débrouiller seul, ce qui fait que j'ai laissé ce précédent poste pour poser ma question autrement. J'ai d'ailleurs joints le fichier à un autre poste.
Je ne pensais pas qu'il faille le faire systématiquement, mais seulement sur demande.

Voila donc qui éclairera donc le souci dans mon travail: https://www.cjoint.com/?BJvqOGukZmS

Merci à vous
Messages postés
1273
Date d'inscription
vendredi 10 juillet 2009
Statut
Membre
Dernière intervention
2 février 2020
44
Comme on m'a donné la réponse, je la partage:

Set ctrl = ActiveSheet.OLEObjects("CommandButton" & i)
ctrl.Object.Picture = LoadPicture(Sheets("feuil1").Cells(y,x).Value)

merci à tous!