bonjour a tous, j'ai trouvé cette fonction qui totalise le nombre de cellules de couleurs automatiquement. mais dedans il y a une plage a déterminer . a1:f100
je voudrai pouvoir changer la plage a chaque appel de cette fonction dans une cellule. Quelqun aurait la solution??
Merci a vous
Function CellulesEnCouleur()
Dim TotalCellules As Integer
Dim Cellule As Range
For Each Cellule In ActiveSheet.Range("A1:F100")
If Cellule.Interior.ColorIndex <> -4142 Then
TotalCellules = TotalCellules + 1
End If
Next Cellule
CellulesEnCouleur = TotalCellules
End Function
je voudrai pouvoir changer la plage a chaque appel de cette fonction dans une cellule. Quelqun aurait la solution??
Merci a vous
Function CellulesEnCouleur()
Dim TotalCellules As Integer
Dim Cellule As Range
For Each Cellule In ActiveSheet.Range("A1:F100")
If Cellule.Interior.ColorIndex <> -4142 Then
TotalCellules = TotalCellules + 1
End If
Next Cellule
CellulesEnCouleur = TotalCellules
End Function