Discussion :

[PICHOUX]

Bonjour,
Je voudrais bien pouvoir faire des Copier-Coller de la couleur seulement par un ou deux clics, Mais apparemment ce type de collage spécial n'existe pas.
Quelqu'un saurait-il comment faire.
J'ai trouvé la solution suivante :
Par exemple pour copier la couleur de fond de C1 dans les cellules D23:F35
1 - Copier la plage de cellules D23:F35
2 - Les coller (pour les mémoriser) par Collage "fx" là où il y a des cellules vides (et sans formules dépendantes)
3 - Copier la cellule C1
4 - Collage spécial "sans bordures" dans D23:F35
5 - Copier la plage de mémorisation de D23:F35
6 - Faire Collage "fx" sur la plage D23:F35
7 - terminer en effaçant la plage de mémorisation

Evidemment, si quelqu'un connaît plus simple, je suis preneur et merci d'avance.

[clementmarcotte]

Bonjour,

Ce qui se rapproche le plus du collage spécial de la couleur; c'est le collage spécial de la mise en forme seulement. Si la mise en forme se limite à la seule couleur, cela ne cause pas de problème. Si tu as des couleurs et des bordures, le plus simple c'est coller la mise en forme, de sélectionner toute la plage et d'enlever les bordures. Sauf horreur de ma part, l'enlèvement des bordures se fera en même temps sur toutes les cellules sélectionnées.

[Menhir]

Si c'est pour une seule cellule, tu sélectionnes ta cellule source
> Tu cliques sur l'icone couleur > Personnaliser > Tu cliques sur OK sans rien modifier.
Ensuite, tu peux utiliser l'icone couleur pour placer cette couleur "enregistrée" où tu souhaites d'un seul clic.

Sinon, il est possible de le faire en VBA avec deux macro : "copier spécial" et "coller couleur".
"copier spécial" va simplement donner un nom à la zone que tu auras sélectionné (histoire de conserver la référence).
"coller couleur" va scruter la zone nommée cellule par cellule pour donner les mêmes couleurs aux cellules de la zone sélectionnée.

[PICHOUX]

Bonjour,
A Clément je réponds que le collage spé "Mise en forme" ne me plaît pas car il détruit les mises en formes existantes (bordures, position du texte, et la catégorie "Nombre") qui sont donc à re-paramétrer.

A Menhir concernant le premier paragraphe, je ne trouve pas comment faire "Personnaliser" (pas de bouton, pas de sous menu).

Oui, j'ai pensé à une macro, mais je voulais savoir si cette possibilité était incluse dans Excel.
Je vais donc en créer une pour connaître le code couleur de la cellule modèle,
et une 2ème pour appliquer un remplissage d'un code couleur donné (celui extrait ci-dessus) à une sélection à définir.

Merci pour votre contribution.

[Menhir]

je ne trouve pas comment faire "Personnaliser" (pas de bouton, pas de sous menu).

Je me suis trompé : ce n'est pas "Personnalisé" mais "Autre couleur".

Oui, j'ai pensé à une macro, mais je voulais savoir si cette possibilité était incluse dans Excel.
Je vais donc en créer une pour connaître le code couleur de la cellule modèle,
et une 2ème pour appliquer un remplissage d'un code couleur donné (celui extrait ci-dessus) à une sélection à définir.

Le problème, c'est pour conserver l'information entre les deux macros.
D'où mon conseil de conserver plutôt la référence de la source en nommant les cellules sources, ce qui permet de conserver leur référence.

De plus, ta méthode à la défaut de ne transmettre qu'une seule couleur. Dans ce cas, la méthode que je t'ai donnée en premier paragraphe en fait autant.

[PICHOUX]

Ben oui, c'est ce matin en me rasant qu'une solution a émergé.
Je reprécise le titre (car mon premier texte n'est peut-être pas assez clair) :
Il s'agit d'appliquer à une sélection la couleur de remplissage d'une cellule choisie comme référence ("CouleurModèle") .

Procédure (très rapide) :
1 - Sélectionner la/les cellules dans lesquelles on veut appliquer le remplissage par une "CouleurModèle"
2 - Lancer la macro ci-après.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub CopierCollerCouleur()
 
Dim CouleurModèle As Range
 
    Set CouleurModèle = Application.InputBox(prompt:="Sélectionner une cellule qui contient la couleur de remplissage (CouleurModèle)", Type:=8)
CodeCouleur = CouleurModèle.Interior.Color
    Selection.Interior.Color = CodeCouleur
 
    MsgBox "Code de la couleur  = " & CouleurModèle.Interior.Color
 
End Sub

J'ai positionné le bouton de lancement de la macro dans la "barre d'outils Accès rapides"

La dernière ligne me permet d’utiliser aussi cette macro pour connaître le code de la "CouleurModèle" en cas de besoin dans l'élaboration d'autres macros, elle peut être supprimée ou mise en « remarque ».

Je trouve cette solution beaucoup plus légère que d'avoir à chaque fois à ouvrir la table des couleurs dans laquelle on s'enquiquine à détecter la couleur déjà choisie. La proposition des couleurs standard ne me suffit pas, et les couleurs utilisées récemment, qui sont propres au différents dossiers ne me conviennent pas non plus (je sais que je suis exigent ... voire un peu toqué !)

En espérant cette proposition utile à certains ......à+