Couleur remplissage d'1 cell selon ctenu ds 1 autr

[eduper]

Bonjour,

Comment ottenir avec VB Excel, l'automatisation de la tâche suivante :

- Si B1 = 'toto' alors A1 = couleur de remplissage rouge
- Si B2 = 'titi' alors A2 = couleur de remplissage bleu, etc...

Merci pour votre aide précieuse.

Claire

 

[Jacques87]

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

 

[michel_m]

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]

 

[eduper]

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

 

[Jacques87]

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

 

[eduper]

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

 

[pascal21]

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

 

[eduper]

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

 

[Jacques87]

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