j'aimerais colorier une ligne sur 2 mais avec le même bleu que dans
itunes au niveau de la library.
j'arrive pas obtenir un bleu identique.
j'ai trouvé çà sur excelabo mais pour du jaune
Sub CouleurLignes()
Dim Ind As Boolean, Ligne As Range
Cells.Interior.ColorIndex = xlNone
For Each Ligne In
ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Rows
If Ind = True Then
Ligne.Interior.ColorIndex = 6
End If
Ind = Not Ind
Next Ligne
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LSteph
Bonjour Mytunes, pour avoir + de choix qu'avec .colorindex avec .color=rgb(0,0,255) tu as un bleu pur après à toi de faire varier les 3 niveaux de rouge,vert,bleu de 0 à 255 pour obtenir celui que tusouhaites.
'lsteph
"mytunes" a écrit dans le message de news: d5ra69$7k2$
bonjour,
j'aimerais colorier une ligne sur 2 mais avec le même bleu que dans itunes au niveau de la library.
j'arrive pas obtenir un bleu identique.
j'ai trouvé çà sur excelabo mais pour du jaune
Sub CouleurLignes() Dim Ind As Boolean, Ligne As Range Cells.Interior.ColorIndex = xlNone For Each Ligne In ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Rows If Ind = True Then Ligne.Interior.ColorIndex = 6 End If Ind = Not Ind Next Ligne End Sub
Bonjour Mytunes,
pour avoir + de choix
qu'avec .colorindex
avec .color=rgb(0,0,255)
tu as un bleu pur
après à toi de faire varier les 3 niveaux
de rouge,vert,bleu de 0 à 255 pour obtenir
celui que tusouhaites.
'lsteph
"mytunes" <mytunes@hotmail.com> a écrit dans le message de news:
d5ra69$7k2$1@aphrodite.grec.isp.9tel.net...
bonjour,
j'aimerais colorier une ligne sur 2 mais avec le même bleu que dans itunes
au niveau de la library.
j'arrive pas obtenir un bleu identique.
j'ai trouvé çà sur excelabo mais pour du jaune
Sub CouleurLignes()
Dim Ind As Boolean, Ligne As Range
Cells.Interior.ColorIndex = xlNone
For Each Ligne In
ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Rows
If Ind = True Then
Ligne.Interior.ColorIndex = 6
End If
Ind = Not Ind
Next Ligne
End Sub
Bonjour Mytunes, pour avoir + de choix qu'avec .colorindex avec .color=rgb(0,0,255) tu as un bleu pur après à toi de faire varier les 3 niveaux de rouge,vert,bleu de 0 à 255 pour obtenir celui que tusouhaites.
'lsteph
"mytunes" a écrit dans le message de news: d5ra69$7k2$
bonjour,
j'aimerais colorier une ligne sur 2 mais avec le même bleu que dans itunes au niveau de la library.
j'arrive pas obtenir un bleu identique.
j'ai trouvé çà sur excelabo mais pour du jaune
Sub CouleurLignes() Dim Ind As Boolean, Ligne As Range Cells.Interior.ColorIndex = xlNone For Each Ligne In ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Rows If Ind = True Then Ligne.Interior.ColorIndex = 6 End If Ind = Not Ind Next Ligne End Sub
