Vba insérer couleur dans plusieurs cellules
Résolu
coco
-
Bidouilleu_R Messages postés 1181 Date d'inscription Statut Membre Dernière intervention -
Bidouilleu_R Messages postés 1181 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Vba insérer couleur dans plusieurs cellules
- Insérer vidéo dans powerpoint - Guide
- Excel cellule couleur si condition texte - Guide
- Excel compter cellule couleur sans vba - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Insérer signature word - Guide
2 réponses
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
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
coco
vraiment merci j'ai cru devenir folle hier avec ça...
