Changement couleur cellule EXCEL en fonction du texte

**kikaillo** · 13/04/2006, 17h51

Bonjour, je suis débutant complet sur l'utilisation de macro, vba,...sur excel, voila pourquoi je vous demande conseil.

J'ai une colonne remplie de A, B et C.
Je souhaite qu'à chaque ouverture de mon tableau, une macro mette :
- toutes les cellules de la colonne avec le texte A en vert
- toutes les cellules de la colonne avec le texte B en orange
- toutes les cellules de la colonne avec le texte C en rouge

Est-ce posiible , compliqué?

Merci par avance...
Bonne fin de journée.

**random** · 13/04/2006, 17h58

si je cliques sur le a de la colonne a puis fait format cellule police couleur
pas trop

c'est facile d'avoir une feuille qui ressemble à un perroquet avarié

**kikaillo** · 13/04/2006, 18h02

Merci, hi hi hi

Je souhaiterai automatiser ceci par une macro qui parcourt toute la colonne à l'ouverture. Puis en fonction du texte de la cellule lui attribue une certaine couleur..

Ca devient plus compliqué là...

**kikaillo** · 13/04/2006, 18h20

J'essaye ça mais il veut pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub aaa()
Range("K1").Select
Do While ActiveCell <> ""
If ActiveCell = "OK" Then
ActiveCell.Offset(0, 1).Select
Selection.Interior.ColorIndex = 4
ActiveCell.Offset(1, -1).Select
Loop
End If
End Sub

**random** · 13/04/2006, 18h24

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub aaa() 
dim ou as integer
ou =0
Range("K1").Select 
Do While ActiveCell <> "" 
ou=ou+1
If ActiveCell = "OK" Then 
ActiveCell.Offset(0, ou).Select 
Selection.Interior.ColorIndex = 4 
ActiveCell.Offset(1, -1).Select 
Loop 
End If 
End Sub

**kikaillo** · 13/04/2006, 18h29

Merci mais il me met le même message - boucle sans do - je comprends pas...
arf...

**ouskel'n'or** · 13/04/2006, 18h30

Code :

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

1
2
3
4
    Range("B1:B32").Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""OK"""
    Selection.FormatConditions(1).Interior.ColorIndex = 44

Te peint en orange les cellules B1 à B32 contenant OK

A+

**kikaillo** · 13/04/2006, 18h34

Merci mais ca bug, c étrange, comment je peux lui dire de commencer à la cellule K10, et de faire tte celle en dessous?

**ouskel'n'or** · 13/04/2006, 19h20

Ou tu connais ta dernière ligne ou tu la connais pas.
Tu la connais, dans mon exemple remplace Range("B1:B32").Select
par K10:K...Ta dernière ligne
Tu ne la connais pas, et tu la cherches

Code :

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

DernièreLigne = Cells(65535, 11).End(xlUp).Row

et tu fais

Code :

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

Range(Cells(10,11),Cells(DernièreLigne,11)).Select

11 pour K

A+

**ouskel'n'or** · 13/04/2006, 19h23

Ce qui donne

Code :

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

1
2
3
4
5
    DernièreLigne = Cells(65535, 11).End(xlUp).Row
    Range(Cells(10,11),Cells(DernièreLigne,11)).Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""OK"""
    Selection.FormatConditions(1).Interior.ColorIndex = 44

A+

Edit
Et si ce n'est pas OK, ton critère, tu remplaces par une variable

**kikaillo** · 13/04/2006, 20h55

Merci beaucoup, ca marche nickel....
Du coup, j'ai avancé et depuis, évidemment des nouveau problèmes.
J'ai mis ma macro en auto_open , elle démarre des l'ouverture et met les couleurs qui vont bien.

Mais , imaginons une case A=Bleu. Je remplace le A par un B(=vert):et ben la couleur change pas, est ce kil y a un moyen de résoudre ce problème???

Merci par avance.

**AlainTech** · 13/04/2006, 22h35

Me paraît bien compliquer de faire du VBA pour ça alors que le Format conditionnel d'Excel convient parfaitement.

Edit -> Je viens de voir que c'est Mise en forme conditionnelle.

**AlainTech** · 13/04/2006, 22h58

Alors, ousk, on persiste en VBA?

**ouskel'n'or** · 13/04/2006, 23h37

Pour chaque valeur tu changes la condition du format (FormatConditions(n) ) en l'indexant

Code :

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

1
2
3
4
5
6
7
8
9
10
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""A"""
    Selection.FormatConditions(1).Font.ColorIndex = xlAutomatic
    Selection.FormatConditions(1).Interior.ColorIndex = 4
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""B"""
    Selection.FormatConditions(2).Font.ColorIndex = xlAutomatic
    Selection.FormatConditions(2).Interior.ColorIndex = 7
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""C"""
    Selection.FormatConditions(3).Font.ColorIndex = xlAutomatic
    Selection.FormatConditions(3).Interior.ColorIndex = 8

A+

**Megaxel** · 14/04/2006, 12h25

Très franchement, je rejoins Alain... Y'a la mise en forme conditionnelle, pour faire ça.

**AlainTech** · 14/04/2006, 13h53

D'autant que c'est vite fait.

On sélectionne toute la colonne.

On va dans le menu.

On met les 3 conditions.

Fini.

**Megaxel** · 14/04/2006, 13h54

Ben ouais !

**ouskel'n'or** · 14/04/2006, 14h22

Par soft, c'est exactement ce que j'ai fait en enregistrant la macro. Sauf que le format peut ainsi être appliqué à une plage variable.
S'il s'agit d'une plage fixe (NoColonne et première ligne invariables) je pense comme vous.

A+

Changement couleur cellule EXCEL en fonction du texte

Macros et VBA Excel

Discussions similaires

Partager

Partager