Colorer des boutons en série

[flamel]

Bonjour.

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 ?

Merci.

flamel

 

[Hellboy]

Bonjour flamel

J'espère que ceci va t'aider:

'    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
Private Sub 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

 

[flamel]

Merci Hellboy,

Je vais essayer.
Tu m'as bien aidé.
Je pense qu'on peut changer de couleur à chaque bouton en fonction de l'incémentation.

Cordialement.

flamel

 

[flamel]

Bonjour Hellboy et le forum,


Je cherche à mettre du code dans des commandbutton qui ont été créés automatiquement.
Je n'y arrive pas. Que faire ?

Ci-joint je genre de fichier (simplifié) en cours.
Il faudrait mettre du code dans les boutons.

Merci pour l'aide éventuelle.

flamel

 

[Hellboy]

Bonjour flamel

Ton fichier n'as pas passé. Pour joindre ton fichier suis le fil ds ma signature.

a+

 

[flamel]

Complément à mon précédent message.

La coloration marche, mais maintenant, c'est le code que je ne peux pas entrer.

J'ai voulu joindre un fichier, mais je crois qu'il n'est pas passé.
J'essaie donc à nouveau.

flamel

 

[flamel]

Dans ta sugnature, pour message privé, comment joindre un fichier ?

J'essaie encore ici.

flamel

 

[Hellboy]

re

Voici le lien pour le tutoriel
Lien supprimé

a+

 

[flamel]

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]

 

[Hellboy]

Bonsoir Flamel

Bon, on va y arrivé !

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:

[file name=xldimage_20051113003819.zip size=36371]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/xldimage_20051113003819.zip[/file]