copie couleur de cellule

[poipoi]

bonjour à tous
je cherche à copier la couleur d'une cellule pour l'affecter à une plage de cellules (sur la même feuille).. la manip serait de sélectionner la plage et de pointer vers la cellule dont on souhaite la couleur de fond
ou alors une barre d'outils avec les couleurs directement
avez-vous une petite idée..
grand merci à vous

 

[Efgé]

Re : copie couleur de cellule

la manip serait de sélectionner la plage et de pointer vers la cellule dont on souhaite la couleur de fond
ou alors une barre d'outils avec les couleurs directement
avez-vous une petite idée..

Euh Arrétez moi si je me trompe 😎, je n'ai peut être pas compris le problème, mais (sous 2003):
Click droit sur la barre d'outil / Personnaliser / Onglet commande / Catégorie (format). Vous déplacer "Couleur de remplissage" vers votre barre d'outil et le tour est joué...
Cordialement

 

[CBernardT]

Re : copie couleur de cellule

Bonjour poipoi et Efgé,

Dans la barre d'outil Mise en forme, il y a la commande Couleur de remplissage (Le bidon incliné ) qui après sélection de la plage à colorer permet de la colorer directement.

 

[poipoi]

Re : copie couleur de cellule

Bonjour Efgé
heu.. oui ça je connaissais !! alors c'est certainement que je me suis mal fait comprendre:
disons que je voudrais une barre d'outils juste pour sélectionner 5 ou x couleurs et qui permettrait en cliquant sur l'icone associé à une couleur de remplir directement la cellule..
heu.. c'est peut être pas mieux expliqué en fait..

 

[poipoi]

Re : copie couleur de cellule

bonjour CBernardT et merci
je n'ai pas eu le temps de répondre à ton message car il a croisé celui de Efgé
mais ma demande est spécifiée dans le post précédent.

 

[poipoi]

Re : copie couleur de cellule

alors je me lance dans la création d'une barre d'outils uniquement réservée aux couleurs que j'aurai déterminées:
une erreur simple à vous tous qui connaissez les macros:

Dim c As Range
For Each c In Selection
With Selection.Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Next c


End Sub


en fait je n'arrive pas à faire que pour toutes les cellules sélectionnées le fond soit rouge

ensuite je recopierai pour d'autres couleurs et créerai ainsi une barre d'outils...
ça peut jouer non?

 

[poipoi]

Re : copie couleur de cellule

non ça y est.. c'est tout bon...
bonne journée à vous