changer la couleur d'une cellule

Jacques87

XLDnaute Accro

• 4 Décembre 2006

• #2

Re : changer la couleur d'une cellule

Bonsoir

Est ce ceci que tu recherches ?

Bon courage

 

Vote positif 0 Vote négatif

altinea

XLDnaute Accro

• 4 Décembre 2006

• #3

Re : changer la couleur d'une cellule

non il s'agit de changer la couleur quand on clique dessus, merci pour la proposition. en efait quand je clique sur une cellule je change la couleur et quand je reclique dessus elle redevient blanche

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 4 Décembre 2006

• #4

Re : changer la couleur d'une cellule

Salut altinea, jacques87

je te joins un fichier, si j'ai compris ce que tu voulais

salutations

 

Pièces jointes

• couleur de saisie.xls

  22.5 KB · Affichages: 365

Vote positif 0 Vote négatif

altinea

XLDnaute Accro

• 5 Décembre 2006

• #5

Re : changer la couleur d'une cellule

merci, c'est deja un début, par contre j'aimerai que lorsqu'on re clique dessus elle redevienne blanche, et quelle est la macro ou formule que tu as utilisé pour cela merci encore

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 5 Décembre 2006

• #6

Re : changer la couleur d'une cellule

bonjour du matin

voici une seconde version : tu clik droit pour prendre une couleur dans ta feuille
tu bouble click dans une cellule, si elle est coloriée, elle devient blanche, sinon elle prends la couleur selectionée precedemment

la macro se trouve : tape ALT + F11, boubleclick sur feuil1

salutations

 

Pièces jointes

• couleur-de-saisie (version 2).xls

  24.5 KB · Affichages: 239
• couleur-de-saisie (version 2).xls

  24.5 KB · Affichages: 260
• couleur-de-saisie (version 2).xls

  24.5 KB · Affichages: 261

Dernière édition: 5 Décembre 2006

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 5 Décembre 2006

• #7

Re : changer la couleur d'une cellule

Bonjour le fil, bonjour le forum,

Je te propose la macro ci-dessous. Tu double-cliques sur une cellule sans couleur, elle devient rouge. Tu double-cliques sur une cellule rouge elle devient sans couleur. Tu n'as qu'à modifier la valeur 3 de ColorIndex pour changer de couleur... Macro à placer dans le composant Worksheet de l'onglet concerné, Feuil1(Feuil1) par exemple.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True 'evite le mode édition lié au double-clic
If Target.Interior.ColorIndex = 3 Then 'condition : si la couleur de la cellule est rouge
    Target.Interior.ColorIndex = xlNone 'supprime la couleur
Else 'sinon
    Target.Interior.ColorIndex = 3 'colorie la cellule de rouge
End If 'fin de la condition
End Sub

 

Vote positif 0 Vote négatif

altinea

XLDnaute Accro

• 5 Décembre 2006

• #8

Re : changer la couleur d'une cellule

merci c'est surper sympa c'est bien cela, maintenant j'aimerai savoir s'il y a une solution pour affecter uen couleur diferrente sur des colonnes.
je m'explique, idem que precedemment je clic sur colonne 1 les cellules sont rouges, je clic sur colonne 2 elles sont bleu et colonne 3 verte par exemple.
merci

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 5 Décembre 2006

• #9

Re : changer la couleur d'une cellule

resalut

voici un procedure qui utilise le n° de la colonne comme index couleur

colonne A et B masque 1 --> noir, 2 ---> Blanc

A+

 

Pièces jointes

• couleur-de-saisie (version 3).xls

  12.5 KB · Affichages: 188

Vote positif 0 Vote négatif

altinea

XLDnaute Accro

• 5 Décembre 2006

• #10

Re : changer la couleur d'une cellule

re salut, merci pour ton fichier mais il n'y a aucun élément, ou je n'arrive pas a voir ce que tu m'a envoyé dsl, merci encore

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 5 Décembre 2006

• #11

Re : changer la couleur d'une cellule

re:

c'est moi qui pete les plombs - j'ai mal sauvegardé mon fichier

voice le code

A+

 

Pièces jointes

• couleur-de-saisie (version 2).xls

  24 KB · Affichages: 200
• couleur-de-saisie (version 2).xls

  24 KB · Affichages: 205
• couleur-de-saisie (version 2).xls

  24 KB · Affichages: 216

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 5 Décembre 2006

• #12

Re : changer la couleur d'une cellule

Bonjour le fil, bonjour le forum,

Excellente idée que celle de Wilfried ! Ça donne ça :

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim col As Integer 'déclare la variable col
col = Target.Column + 2 'définit la variable col
Cancel = True 'evite le mode édition lié au double-clic
If Target.Interior.ColorIndex = col Then 'condition : si la couleur de la cellule est rouge
    Target.Interior.ColorIndex = xlNone 'supprime la couleur
Else 'sinon
    Target.Interior.ColorIndex = col 'colorie la cellule de rouge
End If 'fin de la condition
End Sub

Édition :

Ooops Wilfried ! j'avais pas actualisé pardon.

 

Dernière édition: 5 Décembre 2006

Vote positif 0 Vote négatif

altinea

XLDnaute Accro

• 5 Décembre 2006

• #13

Re : changer la couleur d'une cellule

merci, vraiment super, comme quoi quand on sait c'est plus cool. j'espere que j'aurai l'occasion de pouvoir renseigner a mon tour. merci encore.

 

Vote positif 0 Vote négatif

altinea

XLDnaute Accro

• 5 Décembre 2006

• #14

Re : changer la couleur d'une cellule

re salaut encore un ptit truc si je veux par exemple affecter cette formule juste a deux ou trois ou quatres colonnes sans qu'elles soient contigues cela est possible?

 

Vote positif 0 Vote négatif

altinea

XLDnaute Accro

• 5 Décembre 2006

• #15

Re : changer la couleur d'une cellule

j'ai un petit souci, j'ai un fichier que je voulais actualiser avec cette modification, par contre je l'avais protegé par mot de passe et je ne me souviens plus de ce mot, puis je récuperer les infos ou existe 'il une astuce pour retrouver son mot de passe merci

 

Vote positif 0 Vote négatif