Style

Bonjour à tous

Je souhaiterai sans passer par le MFC une mise en couleur à partir du "style".

J'ai commencé une macro, mais je n'arrive pas à trouver la solution.

Si quelqu'un pouvait m'aider la dessus se serai gentil

Merci d'avance de votre aide

Amicalement

Noel

PJ Fichier

Bonjour

Tu peux tester cela:

Sub MiseCouleur()
'
' MiseCouleur Macro
' Macro enregistrée le 9/11/2008 par Noel CHANE-FO
    Dim ligne As Integer
    Dim colonne As Integer
    'Boucle du tableau
    For ligne = 5 To 45 Step 1
       For colonne = 2 To 6 Step 1
        Cells(ligne, colonne).Select
            If Cells(ligne, colonne) <> "" Then
                 ActiveCell.Interior.ColorIndex = 6
            Else
                ActiveCell.Interior.ColorIndex = xlNone
            End If
       Next colonne
    Next ligne
End Sub

Re,

bonjour CB60,

`J'ai bien reçu ton code mais cela met toutes les cellules pleines en jaune.

Alors que je désirerai avoir les cellules remplies "A1 - A2" en orange et les cellules remplies par "GSI" en vert.

C'est un commencement. Même les cellules avec les dates changent de couleur

Merci

@+

Amicalement

Noel

re

Pour les couleurs et les explications je pense que tu es un peu limite, je ne pouvais pas savoir ce que tu souhaité coloré et les conditions!!

Regarde si cela te convient?

Sub MiseCouleur()
'
' MiseCouleur Macro
' Macro enregistrée le 9/11/2008 par Noel CHANE-FO
    Dim ligne As Integer
    Dim colonne As Integer
    'Boucle du tableau
    For ligne = 5 To 45 Step 1
       For colonne = 2 To 6 Step 1
        Cells(ligne, colonne).Select
            If Cells(ligne, colonne) = "A1 - A2" Then
                 ActiveCell.Interior.ColorIndex = 45
            Else
                ActiveCell.Interior.ColorIndex = xlNone
            End If
            If Cells(ligne, colonne) = "GSI" Then ActiveCell.Interior.ColorIndex = 4
       Next colonne
    Next ligne
End Sub

Re,

C'est bien ce que que voulais.

Merci de ton aide

@+

Amicalement

Noel