XL 2016 probleme de plage sur fonction

[natadom]

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

 

[Staple1600]

Bonjour le fil

natadom
Je te laisse tester (avec ce genre de syntaxe)
=CellulesEnCouleur("A1:A100")

Function CellulesEnCouleur(Plage As Range)
Dim TotalCellules As Integer
Dim Cellule As Range
For Each Cellule In Plage
If Cellule.Interior.ColorIndex <> -4142 Then
TotalCellules = TotalCellules + 1
End If
Next Cellule
CellulesEnCouleur = TotalCellules
End Function

 

[natadom]

merci cela fonctionne.
pff je suis une brel et vous des génie de l'informatique.
puis je en profiter pour demander autre chose?

 

[Staple1600]

Re

Demandes toujours
(ou avant de demander relis la charte du forum pour avoir un indice de où tu dois poser ta nouvelle question 😉)

 

[natadom]

les questions sur les forums il me semble.
en tout cas merci beaucoup.

ma question mais bon faut que jenvoie le fichier dans ce cas.
c'est que la première case avec couleur détermine l'heure d'arrivée et la dernière l'heure de départ automatiquement. par rapport a ma plage, je sais pas faire .
Vous voulez tenter ?

 

[Staple1600]

Re

Ce que je voulais dire c'est que l'usage sur le forum, c'est:
(et c'est donc écrit dans la charte)
Un nouvelle question = une nouvelle discussion
(cela permet de rendre la lecture plus fluide)

PS: je viens de voir que tu as créé une nouvelle discussion 😉