couleur ligne identique a couleur cellule

A

Alain

Guest

• 6 Juin 2003

• #2

Bonjour,


Tu peux taper le code suivant :

Sub mise_en_couleur()
Dim c As Range
Range("ta plage").Select
For Each c In Selection
With c
.EntireRow.Interior.ColorIndex = .Interior.ColorIndex
End With
Next
End Sub

Il faut remplacer "ta plage" par les cellules "A2, A..."

@+

 

Vote positif 0 Vote négatif

J

joss

Guest

• 6 Juin 2003

• #3

Merci BEAUCOUP Alain çà marche!
Mais je voudrais pas toute la ligne, car c'est à l'interieur d'un tableau.(("B8:J27") par exemple)

a+Joss

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 6 Juin 2003

• #4

Bonsoir Joss

Remplace le code par celui si:

Sub mise_en_couleur()
Dim Cell As Range
Dim L As Byte

For Each Cell In Range("A8:A27")
L = Cell.Row
Range("B" & L & ":J" & L).Interior.ColorIndex = Cell.Interior.ColorIndex
Next
End Sub

Voila

@Christophe@

 

Vote positif 0 Vote négatif

J

joss

Guest

• 7 Juin 2003

• #5

Merci Christophe,c'est exactement ce que je voulais!

@+ Joss

 

Vote positif 0 Vote négatif

M

marco

Guest

• 9 Juin 2003

• #6

couleurs dans cellules selon caratères

Bonjours à tous.

Je n'arrive pas à changer les couleurs de cellules selon le caractères écrit.

Ex : si j'écris "ca" dans une cellule, je voudrai que celle ci se color en bleu.
J'aimerais pouvoir utliser une palette dune dizaine de couleurs differentes selon les caractères.

Je suis novice, et si vous pouviez me détailler la réponse, je serais plus qu'heureux.

Je vous remercie tous de l'aide que vous pouvez m'apporter.
Merci
Marco

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 9 Juin 2003

• #7

Bonsoir Marco

Ecoute, explique moi en détail ce que tu veux exactement et je te fais la macro, parce que de cette facon on vas devoir recomencer à chaque fois

J'attends de tes nouvelles

@Christophe@

 

Vote positif 0 Vote négatif

P

pat5

Guest

• 3 Juillet 2003

• #8

Re: couleurs dans cellules selon caratères

Bonsoir tout le monde

Suffisait de demander à Ti. Tout est fait à toi de l'adapter

Salut ;o)

 

Pièces jointes

• CelCoulTi.zip

  2 KB · Affichages: 73

Vote positif 0 Vote négatif