Je désirerais colorer automatiquement les boutons d'une feuille en série, éventuellement en changeant les couleurs.
Je n'y arrive pas avec For Each...Next.
Comment le faire ?
' J'ai créé trois boutons sur une feuille et un de ces boutons a cette macro ' qui va colorier tous les boutons avec la même couleur PrivateSub CommandButton3_Click() Dim cmbBouton As Byte For cmbBouton = 1 To Worksheets('Feuil1').Shapes.Count
Worksheets('Feuil1').Shapes(cmbBouton).DrawingObject.Object.BackColor = 200 Next cmbBouton End Sub
J'ai fait les manoeuvres indiquées ?...
Je recommence.
Serait-ce le tiret qui était dans le titre qui bloque ?
[file name=Classeur01.zip size=16816]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur01.zip[/file]
Je te joint une image pour que tu puisse mieux visualiser ce que je vais te donner comme réponse.
L'endroit pour mettre ton code qui va répondre par exemple a un clicK de un de tes boutons; se met directement dans Le Module de ta feuille ou se retrouve tes boutons: