Vba insérer couleur dans plusieurs cellules Résolu

Question

Bonjour,

J'ai trouvé ce code pour insérer une couleur sur une ligne sous condition mais malheureusement c'est toute la ligne qui est colorisé, j'ai besoin uniquement de la couleur de A à P, j'utilise déjà les 3 mises en forme conditionnelle sous format mais il m'en manque une 4ème pas dipo avec la version Excel que j'ai (Excel 2007)
Quelqu'un peut-il m'aider ?

Sub controleLigne()
Dim ws As Worksheet
Dim i As String

    Set ws = Worksheets("Feuil3")   'nom de la feuille où le contrôle doit se faire
    With ws
        i = 3      'Numéro de la première ligne à tester
        While .Range("a" & i).Value <> ""
            If .Range("a" & i).Value = "pas reçu" Then
                .Rows(i).Interior.Color = RGB(255, 0, 0)
            End If
        i = i + 1
        Wend
    End With
            End Sub

Bidouilleu_R · Answer

je suppose que tu veux utiliser ta macro,  donc
j' l'ai corrigée.

Je souhaiterai cependant ajouter qu'une mise en forme conditionnelle
serait sans doute plus adaptée.
Selon tes besoins tu dis...
A+
le code ci-dessous



Sub controleLigne()
Dim ws As Worksheet
Dim i As String

Set ws = Worksheets("Feuil3") 'nom de la feuille où le contrôle doit se faire
With ws
        i = 3 'Numéro de la première ligne à tester
        While .Range("a" & i).Value <> ""
                  If .Range("a" & i).Value = "pas reçu" Then
                  .Range("A" & i & ":P" & i).Interior.Color = RGB(255, 0, 0)
                  End If
                  i = i + 1
         Wend
End With
End Sub

Bidouilleu_R · Answer

Ben faut partir en week end alors!  

^^

Vba insérer couleur dans plusieurs cellules

2 réponses

Discussions similaires

Newsletters