Couleur boutons

bonjour

Etant donné que le forum ma sauvé pour ma première demande je me permets de revenir vers vous car je n'arrive pas a changer la couleurs de mes boutons lorsque je fais une macro.

Est ce que je dois d'abord passer par des formes avant d'associer mes macros ou la fonction boutons le permet(encodage VBA??)

et , enfin est ce que quelqu'un saurait faire la macro de sortie de excel avec pour particularité que le dossier se recouvre sur la page d'accueil.

Merci d'avance

Bonjour,

je n'arrive pas a changer la couleurs de mes boutons lorsque je fais une macro.

à copier sur le Module1

Sub Bouton1_Cliquer()
With ActiveSheet.Shapes(1).OLEFormat.Object.Interior
 .Color = RGB(0, 255, 0)
End With
End Sub

la macro de sortie de excel avec pour particularité que le dossier se recouvre sur la page d'accueil.

à copier sur la page ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Accueil").Activate
ThisWorkbook.Save
End Sub

MERCI, MERCI , MERCI

Est ce que vous auriez une solution du coup pour que mon boutons 2 change la couleur de tous les boutons de mon fichier ... ?

J'arrive uniquement à changer la couleur des boutons de l'accueil.. ?

De plus la fonction Palette n'apparait pas... est ce que vous savez comment la faire apparaître ?

Merci d'avance sincèrement

Bonjour,

Pour colorer tous les Shapes du classeur,

Sub Couleur_Shapes()
For Each Ws In Worksheets
  For Each shp In Ws.Shapes
    With shp.OLEFormat.Object.Interior
     .Color = RGB(0, 255, 0)
    End With
  Next shp
Next Ws
End Sub

pour la palette de couleur, je n'ai pas mac,

alors je vous propose ce fichier de Mathier

incroyable, je me demande comment vous arrivez a sortir des formules comme ca !!!!

Par contre il me marque erreur exécution 438.. et le debogage me dit ça!!

merci d'avance

Bonjour,

pour colorier tous les shapes "Rectangle"

voulez-vous colorier les Bouton aussi ?

Sub Couleur_Shapes()
For Each Ws In Worksheets
  For Each shp In Ws.Shapes
   x = Left(shp.Name, 6)
   If x <> "Bouton" And x <> "Drop D" Then
     With shp.OLEFormat.Object.Interior
      .Color = RGB(0, 255, 0)
     End With
   End If
  Next shp
Next Ws
End Sub

Je souhaite colorier les boutons et les rectangles de liste deroulante... oui dans l'idéal..

Mais vu ma capacité...

«Drop d»? Cela correspond a quoi?

A la place de x .. je rentre le bouton de ma macro.?

Merci .. avec votre aide . Je vais tout démonter à ma soutenance..

Bonjour,

A ma connaissance il n'y a pas moyen de modifier la couleur d'un bouton issu du menu Formulaires, il faut utiliser un bouton issu du menu ActiveX, il n'est pas possible non plus de modifier la couleur des flèches de liste déroulante.

Le mieux est d'utiliser les shapes, comme vous l'avez déjà fait.

OK , en tout cas merci beaucoup pour votre aide...

Bonne continuation