F
Francis
Guest
Bonjour
Je désire compter le nombre de lignes où il n’y a aucune cellule colorée. Mais le petit programme que j’ai effectué me compte aussi les lignes vides (ce qui est normal).
Quelle est la phrase magique pour éviter cela ?
Merci d’avance
Francis
Sub CompterLesLignesSans couleurs()
Dim Ligne As Range
Application.ScreenUpdating = False
derligne = Cells(Rows.Count, 'f').End(xlUp).Row
Range(Cells(10, 1), Cells(derligne, 9)).EntireRow.Select
Selection.EntireRow.Hidden = True
vlignecachée = 0
For Each Cell In Range(Cells(11, n), Cells(derligne, n))
If Cell.Interior.ColorIndex = xlColorIndexNone Then
Cell.EntireRow.Hidden = False
vlignecachée = vlignecachée + 1
End If
Next
End sub
Je désire compter le nombre de lignes où il n’y a aucune cellule colorée. Mais le petit programme que j’ai effectué me compte aussi les lignes vides (ce qui est normal).
Quelle est la phrase magique pour éviter cela ?
Merci d’avance
Francis
Sub CompterLesLignesSans couleurs()
Dim Ligne As Range
Application.ScreenUpdating = False
derligne = Cells(Rows.Count, 'f').End(xlUp).Row
Range(Cells(10, 1), Cells(derligne, 9)).EntireRow.Select
Selection.EntireRow.Hidden = True
vlignecachée = 0
For Each Cell In Range(Cells(11, n), Cells(derligne, n))
If Cell.Interior.ColorIndex = xlColorIndexNone Then
Cell.EntireRow.Hidden = False
vlignecachée = vlignecachée + 1
End If
Next
End sub
