Discussion :

[rolline]

Bonjour,

je recherche de l'aide pour pouvoir compter dans une colonne le nombre de cellules qui ont été mises en gras par une mise en forme conditionnelle.
Et cerise sur le gateau, si cela peut se calculer en sous-total en cas de filtre, ce serait du bonheur! :-)

Je vous remercie beaucoup d'avance.

Pour que ce soit plus visuel pour vous, je vous joins un exemple.

En colonne A : j'ai les références définitives de mon portefeuille.
En colonne B : les références initiale.

je veux comparer les différences que sur les refs initiales.

En colonne C : j'ai le fabricant théorique
En colonne D: j'ai la longueur théorique de la ref
En colonne E : j'ai le fabricant réel ; si E4 <> C4 alors E4 est gras
En colonne F : j'ai la longueur réelle; si F4<D4*0,95 ou F4>D4*1,05 alors F4 est gras (j'ai mis une tolérance de 5%)

En E3 : je souhaite comptabiliser les "gras" soit 4
En F3 : je souhaite comptabiliser les "gras" soit 5

si vous pouvez m'aider...

[mercatog]

Au lieu de compter les cellules en gras (qui répondent à un certain critère)
par code on fait le compte

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Tst()
Dim Lastlig As Long
Dim S As Integer, T As Integer
Lastlig = Cells(Rows.Count, 5).End(xlUp).Row
For i = 4 To Lastlig
    If Range("B" & i) <> "" Then
        If Range("C" & i) <> Range("E" & i) Then S = S + 1
        If Range("F" & i) < 0.95 * Range("D" & i) Or Range("F" & i) > 1.05 * Range("D" & i) Then T = T + 1
    End If
Next i
Range("E3") = S
Range("F3") = T
End Sub

On peu par exemple l'incorporer dans l'évènement Change de la feuille

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
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Dim S As Integer, T As Integer
 
If Target.Count = 1 Then
    If Target.Column < 6 And Target.Row > 3 Then
        i = Target.Row
        If Range("B" & i) <> "" Then
            If Range("C" & i) <> Range("E" & i) Then S = S + 1
            If Range("F" & i) < 0.95 * Range("D" & i) Or Range("F" & i) > 1.05 * Range("D" & i) Then T = T + 1
        End If
        Range("E3") = S
        Range("F3") = T
    End If
End If
End Sub

[neupont]

Malheureusement on ne peut pas, avec VBA, récupérer les valeurs appliquées par une mise en forme conditionnelle, pas plus qu'on ne peut savoir si la mise en forme conditionnelle est appliquée ou pas
Et je ne crois pas que ceci ait changé avec Excel 2007.
Pour s'en sortir il faut donc que la macro évalue les mêmes conditions que la mise en forme conditionnelle, ce qui n'est pas très pratique .