Couleur remplissage d'1 cell selon ctenu ds 1 autr

Jacques87

XLDnaute Accro

• 27 Février 2006

• #2

Bonjour Claire

En VBA

If range('B1').Value = 'toto' Then Range('A1').Interior.ColorIndex = 3

If range('B2');Value = 'titi' Then Range('A2').Interior.ColorIndex = (index du bleu que tu trouveras dans l'aide)

A ta disposition

 

Vote positif 0 Vote négatif

M

michel_m

XLDnaute Accro

• 27 Février 2006

• #3

Bonjour Claire Jacques

Pour compléter la réponse de Jacques, ci joint un panorama des codes de couleurs qui avait été communiqué sur l'ancien forum par notre ami Eric C

A+
Michel_M [file name=COULEUR.zip size=8421]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/COULEUR.zip[/file]

 

Dernière édition: 20 Juillet 2007

Vote positif 0 Vote négatif

E

eduper

Guest

• 27 Février 2006

• #4

Bonjour Jacques,

Merci infiniment.
J'abuse encore un peu, est-il possible de demander à VB de faire une recherche dans toute la colonne B, pour être plus précise :

si dans la colonne B tu trouves 'tel texte' alors en A = telle couleur de remplissage.

Ceci pour éviter de saisir chaque référence de cellule.

Mille mercis,
Claire

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 27 Février 2006

• #5

Oui Claire, voici le code

Dim derlign As Integer
Dim I As Integer

derlign = Range('B65536').End(XlUp).Row

For I = 1 To derlign
If Range('B' & I).Value = 'toto' Then Range('B' & I).Interior.ColorIndex = 3
Next I

avec ce bout de code tu vas balayer toute la colonne B de la première ligne à la dernière qui contient quelquechose, et si le contenu est 'toto' la cellule se mettra en rouge
Bon courage

 

Vote positif 0 Vote négatif

E

eduper

Guest

• 27 Février 2006

• #6

Jacques,

Cela fonctionne à merveille. Encore merci.

DERNIERE QUESTION :
Comment puis-je faire pour que la couleur change à la validation d'une cellule B sans avoir à retourner dans le code pour exécuter la macro ???

Claire

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 27 Février 2006

• #7

Re:Couleur remplissage d'1 cell selon ctenu ds 1 a

bonjour
pourquoi n'utilises tu pas la MFC et tu tire la formule vers le bas
en a1 =si(b1='toto';vrai;'')
et tu choisis le format

Message édité par: pascal21, à: 27/02/2006 16:14

 

Vote positif 0 Vote négatif

E

eduper

Guest

• 27 Février 2006

• #8

Re:Couleur remplissage d'1 cell selon ctenu ds 1 a

Bonjour Pascal,

Non il ne s'agit pas d'une MFC.
Ce que je souhaite c'est :
- Si B1 = 'toto' alors A1 = couleur de remplissage rouge
- Si B2 = 'titi' alors A2 = couleur de remplissage bleu, etc...

Si je tape toto en B1, j'aimerais que la cellule A1 se remplisse d'une couleur en automatique.
Etc pour les autres cellules.

Merci,
Claire

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 27 Février 2006

• #9

Re:Couleur remplissage d'1 cell selon ctenu ds 1 a

claire , pour répondre à ta question en utilisant une macro, voici ce que tu peux écrire

Dim derlign As Integer
Dim I As Integer, nom As String

nom = InputBox('indiquez le nom à repérer')

derlign = Range('B65536').End(XlUp).Row
C = ActiveCell.Interior.ColorIndex
For I = 1 To derlign
If Range('B' & I).Value = nom Then Range('B' & I).Interior.ColorIndex = 3
Next I

A ta disposition

 

Vote positif 0 Vote négatif