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

Question

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.   


Configuration: Windows XP 2002 SP3   
Excel 2002    
    
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!

Mytå · Answer

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)]

mod77 · Answer

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.

eriiic · Answer

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

mod77 · Answer

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

mod77 · Answer

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!

VBA: Comment afficher,en serie, une photo sur des boutons

5 réponses

Discussions similaires