Discussion :

[captaincss]

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 ...

[Mr Poulpe]

Bonjour,

Ta demande me semble assez confuse... Si ton but est de compter le nombre de cellules blanches dans la plage, pour remplacer le "-160" de ta formule par "- nombre de cellules blanches " alors peut être que le code suivant va aider:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Formulecouleur()
 
Dim c As Range
Dim NB_blancs As Long
 
NB_blancs = 0
For Each c In Sheets("X").Range("D75:AR300")
    If c.Interior.ColorIndex = RGB(255, 255, 255) Then NB_blancs = NB_blancs + 1
Next c
 
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)"
    If c.Interior.ColorIndex = 6 Then c.FormulaR1C1 = "=SUBTOTAL(9,R[-" & NB_blancs & "]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

Si tu cherches à compter le nombre de lignes de ta plage, alors la propriété .rows.count appliquée dessus pourrait aider.

Mais je pense qu'aucune des ces solutions ne correspond vraiment à ce que tu cherches... Peut-être essaie tu d'insérer des sous-totaux sur les lignes jaunes d'un tableau qui font la somme de toutes les cellules blanches au dessus? C'est ce qui me semblerait le plus logique.

Bref, un peu de clareté serait bienvenue,

Poulpe