format couleur colone

R

RENATO

Guest

• 29 Avril 2004

• #2

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

 

Vote positif 0 Vote négatif

R

RENATO

Guest

• 29 Avril 2004

• #3

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

 

Vote positif 0 Vote négatif

E

erka2

Guest

• 29 Avril 2004

• #4

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

 

Vote positif 0 Vote négatif

R

RENATO

Guest

• 29 Avril 2004

• #5

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

 

Vote positif 0 Vote négatif

G

Gérard DEZAMIS

Guest

• 30 Avril 2004

• #6

Bonjour Erka2 et les forumiens matinaux ...

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

Bonne nuit à tous

@+ GD

 

Pièces jointes

• ERKA2.zip

  1.9 KB · Affichages: 17

Vote positif 0 Vote négatif

E

erka2

Guest

• 30 Avril 2004

• #7

Merci à tout les deux

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

@+ sur ce forum


Erka2

 

Vote positif 0 Vote négatif