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
.
Cette macro compte les cellules Grises Sub CompteCell() With ActiveCell.SpecialCells(xlLastCell) NbCol = .Column NbRow = .Row End With k = 0 For i = 1 To NbCol For j = 1 To NbRow If Cells(j, i).Interior.ColorIndex = 15 Then k = k + 1 Next j Next i Cells(1, 1) = k End Sub
Cette macro compte les cellules Grises
Sub CompteCell()
With ActiveCell.SpecialCells(xlLastCell)
NbCol = .Column
NbRow = .Row
End With
k = 0
For i = 1 To NbCol
For j = 1 To NbRow
If Cells(j, i).Interior.ColorIndex = 15 Then k = k + 1
Next j
Next i
Cells(1, 1) = k
End Sub
Cette macro compte les cellules Grises Sub CompteCell() With ActiveCell.SpecialCells(xlLastCell) NbCol = .Column NbRow = .Row End With k = 0 For i = 1 To NbCol For j = 1 To NbRow If Cells(j, i).Interior.ColorIndex = 15 Then k = k + 1 Next j Next i Cells(1, 1) = k End Sub
ludivine
Tout en ayant des sous-totaux par ligne et par colonne
-----Message d'origine----- Bonjour,
J'ai un tableau présentant des cellules grisées. Existe-t-il une formule pour compter ces cellules ? D'avance, merci,
Ludivine .
Tout en ayant des sous-totaux par ligne et par colonne
-----Message d'origine-----
Bonjour,
J'ai un tableau présentant des cellules grisées.
Existe-t-il une formule pour compter ces cellules ?
D'avance, merci,
