Copier UNIQUEMENT la couleur d'une cellule ou reconnaitre la couleur hors palette d'une cellule sans macro

Version imprimable

13/05/2015, 15h02
Denis_67

Copier UNIQUEMENT la couleur d'une cellule ou reconnaitre la couleur hors palette d'une cellule sans macro

Bonjour

Une petite question toute bête.
est-il possible de copier coller uniquement la couleur d'une cellule.
le "collé spécial" inclut tout le format et pas que la couleur.

Autre alternative capturer par une pipette la couleur pour la mettre dans le menu de remplissage.

Cela sans macro et pour les couleurs hors palette de base, car sinon il suffit de visualiser le menu de remplissage de la cellue source pour voir la couleur sélectionnée et l'appliquer en suite sur les cellues cibles.

merci pour vos suggestions
13/05/2015, 15h22
Menhir

Une méthode simple que j'utilise souvent.

Tu sélectionnes la cellule dans laquelle se trouve la couleur choisie.
Tu cliques sur la flèche de l'icone remplissage (le pot de peinture qui se renverse) pour faire afficher son menu.
Tu sélectionnes "Autre couleur" et dans la palette tu cliques simplement sur "Ok" sans rien modifier.
A partir de là, ton icone remplissage affiche dans sa partie basse la couleur que tu souhaites.

Il te suffit donc de sélectionner n'importe quelle autre cellule et de cliquer sur cette icone pour que la cellule prenne la couleur souhaitée.

C'est à peine plus compliquer qu'un copier/coller.

Merci Menhir,

simple! efficace !

j'adopte !
Denis

Petite astuce perso:
Pour avoir les couleurs de remplissage les plus courantes à disposition, je me suis créé des macros affectées chaqune à un bouton de la couleur correspondante, ce qui m'évite de passer par le menu mise en forme.
Je fais de même pour les formats M², KG etc que j'utilise régulièrement.
Bien sûr il faut vraiment se limiter aux usages fréquents sinon on sature la barre de bouton. Autant utiliser les menus.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
Sub fond_vert()
    With Selection.Interior
        .ColorIndex = 4
        .Pattern = xlSolid
    End With
End Sub
Sub fond_jaune()
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
End Sub
Sub fond_bleu()
    With Selection.Interior
        .ColorIndex = 8
        .Pattern = xlSolid
    End With
End Sub
Sub fond_orange()
    With Selection.Interior
        .ColorIndex = 45
        .Pattern = xlSolid
    End With
End Sub
Sub fond_vide()
    With Selection.Interior
        .ColorIndex = 2
        .Pattern = xlSolid
    End With
End Sub
Sub Module_rouge()
    With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
End Sub
Sub Format_ML()
'
' Format_ML Macro
'
    Selection.NumberFormat = "#,##0 ""ML"""
End Sub
Sub Format_KG()
'
' Format_KG Macro
'
    Selection.NumberFormat = "#,##0 ""Kg"""
End Sub
Sub Format_M2()
'
' Format_KG Macro
'
    Selection.NumberFormat = "#,##0 ""M²"""
End Sub

13/05/2015, 17h47
Menhir

A ta place, plutôt que

Code:

Selection.NumberFormat = "#,##0 ""Kg"""

j'aurais écrit

Code:

Selection.NumberFormat = "General ""Kg"""

Ce qui permet éventuellement de rajouter des décimales si besoin.
18/05/2015, 07h47
Denis_67

Bonjour Menhir,

Je ne comprends pas, en appliquant ma méthode, je peux ajouter les décimales et pas avec la tienne ?
Peut-être qu'il faut un autre paramètrage des décimales dans Excel/Office ?
Denis
18/05/2015, 09h31
Menhir

Citation:

Envoyé par Denis_67

Je ne comprends pas, en appliquant ma méthode, je peux ajouter les décimales et pas avec la tienne ?

Non, c'est le contraire.
18/05/2015, 09h46
Denis_67

Ben écoute, désolé, mais j'ai testé.

Donc je garde ma méthodes sur mon PC/ma configuration et je te laisse la tienne !

En tous cas merci pour la réponse initiale.

à bientôt
Denis