Discussion :

[Denis_67]

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

[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.

[Denis_67]

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 :

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

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

[Menhir]

A ta place, plutôt que

Code :

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

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

j'aurais écrit

Code :

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

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

Ce qui permet éventuellement de rajouter des décimales si besoin.

[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

[Menhir]

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.

[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