CODE VBA POUR CHANGER LA COULEUR D UNE LIGNE EN FONCTION DE LA VALEUR DE LA 1ERE
Résolu
marie5858
Messages postés
8
Date d'inscription
lundi 20 septembre 2010
Statut
Membre
Dernière intervention
16 septembre 2022
-
20 sept. 2010 à 11:34
foliv57 Messages postés 420 Date d'inscription vendredi 17 novembre 2006 Statut Membre Dernière intervention 15 juillet 2014 - 20 sept. 2010 à 13:55
foliv57 Messages postés 420 Date d'inscription vendredi 17 novembre 2006 Statut Membre Dernière intervention 15 juillet 2014 - 20 sept. 2010 à 13:55
A voir également:
- CODE VBA POUR CHANGER LA COULEUR D UNE LIGNE EN FONCTION DE LA VALEUR DE LA 1ERE
- Vba msgbox retour à la ligne ✓ - Forum Visual Basic 6
- Vba couleur cellule - Forum Visual Basic 6
- Vba trouver la dernière ligne non vide - Forum Visual Basic 6
- Code ascii retour à la ligne - Forum Visual Basic
- Retour chariot Excel ✓ - Forum Visual Basic 6
1 réponse
foliv57
Messages postés
420
Date d'inscription
vendredi 17 novembre 2006
Statut
Membre
Dernière intervention
15 juillet 2014
9
20 sept. 2010 à 13:55
20 sept. 2010 à 13:55
Bonjour,
Voici une solution possible.
Placez cette sub dans "ThisWorkbook" ou dans un module :
Si par exemple votre liste commence à la ligne 2 colonne 1 et que votre liste est constituée de 4 colonnes, appelez la sub de cette manière :
Voici une solution possible.
Placez cette sub dans "ThisWorkbook" ou dans un module :
Public Sub ColorLine(FirstCode As Range, columnCount As Long)
'Couleur principale
Dim couleurPrimaire As Long: couleurPrimaire = 34
'Couleur alternative
Dim couleurSecondaire As Long: couleurSecondaire = 35
Dim couleurCourante As Long: couleurCourante = couleurPrimaire
Dim colonneDroite As Long: colonneDroite = FirstCode.Column + columnCount - 1
Dim l As Long: l = FirstCode.Row
With FirstCode.Worksheet
While (.Cells(l, FirstCode.Column).Value <> "")
'Mise en place de la couleur de ligne
.Range(.Cells(l, FirstCode.Column), .Cells(l, colonneDroite)).Interior.ColorIndex = couleurCourante
'Inverse la couleur si le code suivant est différent
If (.Cells(l, FirstCode.Column).Value <> _
.Cells(l + 1, FirstCode.Column).Value) Then
couleurCourante IIf(couleurCourante couleurPrimaire, couleurSecondaire, couleurPrimaire)
End If
l = l + 1
Wend
End With
End Sub
Si par exemple votre liste commence à la ligne 2 colonne 1 et que votre liste est constituée de 4 colonnes, appelez la sub de cette manière :
ColorLine Cells(2, 1), 4