nombre cellules de couleurs
- Initiateur de la discussion biomed
- Date de début
desole,voici la piece jointe [file name=Classeur2_20051212125409.zip size=2532]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20051212125409.zip[/file]
excalibur
XLDnaute Impliqué
bonjour biomed le forum tu peus faire comme cela Option Explicit
Sub Macro1()
Dim c As Variant
Dim nb As String
nb = 0
For Each c In Selection
If c.Interior.ColorIndex = 3 Then
nb = nb + 1
End If
Next c
MsgBox 'Il y a ' & nb & ' cellules font rouge dans cette plage.'
End Sub' meme procedure pour les autres couleurs dans l ex: tu selectionne dabord la plage a tester salutations
Sub Macro1()
Dim c As Variant
Dim nb As String
nb = 0
For Each c In Selection
If c.Interior.ColorIndex = 3 Then
nb = nb + 1
End If
Next c
MsgBox 'Il y a ' & nb & ' cellules font rouge dans cette plage.'
End Sub' meme procedure pour les autres couleurs dans l ex: tu selectionne dabord la plage a tester salutations
Discussions similaires
- Résolu(e)
- Résolu(e)
