K
kerberos
Guest
😱
bonjour,
dans le fichier joint, j'ai cree une macro VB (bouton 1)qui recherche les cellules colorees en rouge.
elle fonctionne si la cellule rouge ne contient aucun texte !
Sub CompterCellulesEnRouge()
Dim CCells As Integer, iCell, PlageTest
Set PlageTest = Range("A5😛26")
'Application.ScreenUpdating = False
For Each iCell In PlageTest
If iCell.Interior.ColorIndex = 3 Then
CCells = CCells + 1
End If
Next iCell
MsgBox "nombre de cellules rouges :" & CCells
End Sub
j'ai appelé jacques pradel qui m'annonce avoir decouvert un mystere ...
EDIT : elle ne fonctionne pas sur les cellules qui ont été colorées par la mise en forme conditionnelle
bonjour,
dans le fichier joint, j'ai cree une macro VB (bouton 1)qui recherche les cellules colorees en rouge.
elle fonctionne si la cellule rouge ne contient aucun texte !
Sub CompterCellulesEnRouge()
Dim CCells As Integer, iCell, PlageTest
Set PlageTest = Range("A5😛26")
'Application.ScreenUpdating = False
For Each iCell In PlageTest
If iCell.Interior.ColorIndex = 3 Then
CCells = CCells + 1
End If
Next iCell
MsgBox "nombre de cellules rouges :" & CCells
End Sub
j'ai appelé jacques pradel qui m'annonce avoir decouvert un mystere ...
EDIT : elle ne fonctionne pas sur les cellules qui ont été colorées par la mise en forme conditionnelle
Pièces jointes
Dernière modification par un modérateur: