format couleur colone

[erka2]

bonsoir à tous
voila mon problème
j'ai créé un tableau et je souhaite que toute ma colone se colore d'une couleur lorsque la premiere cellule de cette colone comporte la lettre "T" et d'une autre couleur lorsqu'elle porte la lettre "Y"
Merci d'avance pour votre aide

Erka2

 

[RENATO]

bonjour ERKA2

Voici une première solution :

Sub Colorcolumns()
For Each C In Range("A1:IV1")
If C = "T" Then
C.EntireColumn.Interior.Color = vbYellow
C.Select
End If
Next
For Each D In Range("A1:IV1")
If D = "Y" Then
D.EntireColumn.Interior.Color = vbGreen
D.Select
End If
Next
End Sub

Au revoir

Rénato

 

[RENATO]

Oups.....j'ai juste oublié de te préciser que tes étiquettes de colonnes doivent se trouver en ligne 1

Mais cela aussi c'est modulable.

A+

Rénato

 

[erka2]

merci pour ta réponse Rénato
mais ... car il y a un mais peu tu décomposer ta solution car je ne connais pas trop la macro et je suis un peu perdu.
merci encore pour ton aide

 

[RENATO]

Re bonsoir Erka2,

Peux-tu me faire passer ton fichier ?
j'intégrerai les quelques lignes ci-dessus, puis te retournerai le tout avec qq commentaires si necessaire.

Bonne nuit le forum.

Rénato

 

[Gérard DEZAMIS]

Bonjour Erka2 et les forumiens matinaux ...

un petit essai avec un format conditionnel
Peut-être est-ce suffisant ?

Bonne nuit à tous

@+ GD

 

[erka2]

Merci à tout les deux

ce coup ci j'ai bien compris, le format conditionnnel est bien approprié à mon tableau.

@+ sur ce forum


Erka2