Bonjour à tous, je suis un novice qui a vraiment besoin d'aide. Je m'explique :

Je voudrais appliquer une formule sur le nombre de cellules d'une colonne qui sont colorées en blanc par exemple.

Pour cela il me faut une variable qui calcule le nombre de lignes de cette colonne en question; j'ai dejà la formule mais elle ne marche que pour une colonne à 160 cellules...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Formulecouleur()
 
Dim c As Range
For Each c In Sheets("X").Range("D75:AR300")
 
'On effectue une recherche sur la feuille X dans la plage D75:AR300
 
   If c.Interior.ColorIndex = 6 Then c.FormulaR1C1 = "=SUBTOTAL(9,R[-160]C:R[-1]C)"
 
' On cherche les cellules colorées en jaune. Si c'est le cas alors on applique la formule =SOUS.TOTAL(9;Q4:Q163) par exemple. 
' "=SUBTOTAL(9,R[-160]C:R[-1]C)" la formule est appliquée donc pour 160 cellules de la colonne Q
Next c
 
End Sub
Mais je n'arrive pas à compter le nombre de cellules blanches pour remplacer la valeur 160 par une valeur qui définit le nombre de cellules blanches (par exemple).

Ou un autre moyen pour que ça marche pour n'importe quel taille du tableau.

Aidez-moi s'il vous plait ...