Bonjour =E0 Toutes et =E0 Tous,=20
dans une feuille j'applique une macro que je dois lance r=20
manuellemnt pour r=E9aliser des lignes de couleur 1 sur 2=20
mais quand je filtre la feuille , les couleurs de lignes=20
ne sont pas r=E9guli=E8res.
Comment conserver les lignes couleur 1 sur 2 mais sans=20
interventions manuelles ? et ce jusqu'=E0 la derni=E8re lignes=20
remplie de la feuille.
Sub CouleurLignes()
Dim Ind As Boolean, Ligne As Range
Cells.Interior.ColorIndex =3D xlNone
For Each Ligne In=20
ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells
(xlCellTypeVisible).Rows
If Ind =3D True Then
Ligne.Interior.ColorIndex =3D 35
End If
Ind =3D Not Ind
Next Ligne
End Sub
Merci de suivre,
Freedo
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
Lydya
Bonjour Freedo
Si tu veux que la procédure s'applique sur toutes les lignes de ta feuille et non pas seulement sur les lignes visibles (filtrées), il te suffit de supprimer 'SpecialCells(xlCellTypeVisible).' dans la boucle For Each... For Each Ligne In _ ActiveWorkbook.ActiveSheet.UsedRange.Rows
Lydya
"Freedo" a écrit dans le message de news:07f701c39860$67c85350$ Bonjour à Toutes et à Tous, dans une feuille j'applique une macro que je dois lance r manuellemnt pour réaliser des lignes de couleur 1 sur 2 mais quand je filtre la feuille , les couleurs de lignes ne sont pas régulières. Comment conserver les lignes couleur 1 sur 2 mais sans interventions manuelles ? et ce jusqu'à la dernière lignes remplie de la feuille. 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 = 35 End If Ind = Not Ind Next Ligne End Sub Merci de suivre, Freedo
Bonjour Freedo
Si tu veux que la procédure s'applique sur toutes les lignes de ta feuille
et non pas seulement sur les lignes visibles (filtrées), il te suffit de
supprimer 'SpecialCells(xlCellTypeVisible).' dans la boucle For Each...
For Each Ligne In _
ActiveWorkbook.ActiveSheet.UsedRange.Rows
Lydya
"Freedo" <freedoanonymous@discussions.microsoft.com> a écrit dans le message
de news:07f701c39860$67c85350$a401280a@phx.gbl...
Bonjour à Toutes et à Tous,
dans une feuille j'applique une macro que je dois lance r
manuellemnt pour réaliser des lignes de couleur 1 sur 2
mais quand je filtre la feuille , les couleurs de lignes
ne sont pas régulières.
Comment conserver les lignes couleur 1 sur 2 mais sans
interventions manuelles ? et ce jusqu'à la dernière lignes
remplie de la feuille.
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 = 35
End If
Ind = Not Ind
Next Ligne
End Sub
Merci de suivre,
Freedo
Si tu veux que la procédure s'applique sur toutes les lignes de ta feuille et non pas seulement sur les lignes visibles (filtrées), il te suffit de supprimer 'SpecialCells(xlCellTypeVisible).' dans la boucle For Each... For Each Ligne In _ ActiveWorkbook.ActiveSheet.UsedRange.Rows
Lydya
"Freedo" a écrit dans le message de news:07f701c39860$67c85350$ Bonjour à Toutes et à Tous, dans une feuille j'applique une macro que je dois lance r manuellemnt pour réaliser des lignes de couleur 1 sur 2 mais quand je filtre la feuille , les couleurs de lignes ne sont pas régulières. Comment conserver les lignes couleur 1 sur 2 mais sans interventions manuelles ? et ce jusqu'à la dernière lignes remplie de la feuille. 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 = 35 End If Ind = Not Ind Next Ligne End Sub Merci de suivre, Freedo
