couleur ligne identique a couleur cellule

[joss]

Salut à tous

je cherche le moyen de copier sur une ligne (la ligne 2 par exemple).
La meme couleur que la cellule (A2).Sachant que les couleur ne sont jamais les memes.Je ne peut pas utilisé la mise en forme conditionnel car j'ai +
de 3 conditions

Merci de votre aide.
A+Joss

 

[Alain]

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..."

@+

 

[joss]

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

 

[@Christophe@]

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@

 

[joss]

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

@+ Joss

 

[marco]

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

 

[@Christophe@]

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@

 

[pat5]

Re: couleurs dans cellules selon caratères

Bonsoir tout le monde

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

Salut ;o)