Créer plusieurs boutons pour colorier des cellules

[cycou]

Bonjour

Je ne suis pas très fort en macro.

J'ai sur mon tableau déjà intégré un code couleur pour chaque ouvrier avec le calcul de la somme de chacun. Je voudrais créer un bouton pour chaque ouvrier avec son code couleur. Pour ensuite lui ajouter des quarts d'heure de travail sur sa ligne, au lieu d'aller sur le bouton couleur de remplissage est choisir la couleur de l'ouvrier.

Intégrer un bouton supprimé couleurs
Cordialement
Merci de votre aide

 

[Yaloo]

Re : Créer plusieurs boutons pour colorier des cellules

Bonsoir cycou,

Avec cette macro reliée à un bouton :

Option Explicit
Sub Couleur()
Dim Coul
Coul = Cells(ActiveCell.Row, 4).Interior.Color
ActiveCell.Interior.Color = Coul
End Sub

A+

Martial

 

[cycou]

Re : Créer plusieurs boutons pour colorier des cellules

Bonjour Yaloo

Je te remercie.
Petite question est-il possible avec un code different de pouvoir colorier un ensemble de cellules sélectionnées

Ex: Mes trois premiers ouvriers fond 8h-12h (J6 a Y8) avec leurs couleurs respectives

 

[phlaurent55]

Re : Créer plusieurs boutons pour colorier des cellules

Bonjour à tous,

Bonjour Yaloo

Je te remercie.
Petite question est-il possible avec un code different de pouvoir colorier un ensemble de cellules sélectionnées

Ex: Mes trois premiers ouvriers fond 8h-12h (J6 a Y8) avec leurs couleurs respectives

en remplaçant le code par celui-ci:

Sub Couleur()
Selection.Interior.Color = Cells(ActiveCell.Row, 4).Interior.Color
End Sub

uniquement pour une sélection multiple dans une seule et même ligne

à+
Philippe

 

[cycou]

Re : Créer plusieurs boutons pour colorier des cellules

Merci cela m'aide déjà beaucoup et me fait gagner du temps

existe-il un code pour une sélection multiple dans plusieurs lignes (en sachant que chaque ligne a sa couleur)

Merci

Cordialement

 

[phlaurent55]

Re : Créer plusieurs boutons pour colorier des cellules

Re,

existe-il un code pour une sélection multiple dans plusieurs lignes (en sachant que chaque ligne a sa couleur)

voici le code mais uniquement pour une seule sélection multiple

avec ceci:

Sub Couleur()
Dim i As Integer
For i = Selection.Row To Selection.Row + Selection.Rows.Count - 1
Range(Cells(i, Selection.Column), Cells(i, Selection.Column + Selection.Columns.Count - 1)).Interior.Color = Cells(i, 4).Interior.Color
Next i
End Sub

à+
Philippe

 

[Yaloo]

Re : Créer plusieurs boutons pour colorier des cellules

Bonsoir cycou, bonsoir Philippe,

Avec cette macro, pour une seule cellule ou, une ou plusieurs sélections multiples.

Option Explicit
Sub Couleur()
Dim Cel As Range
For Each Cel In Selection
Cel.Interior.Color = Cells(Cel.Row, 4).Interior.Color
Next
End Sub

A+

Martial

 

[cycou]

Re : Créer plusieurs boutons pour colorier des cellules

Merci beaucoup Yaloo et phlaurent 55