formule "somme cellule non barrées" [Résolu]

[gaston64]

Bonjour,

je souhaite créer une formule sous visual basic puis l'inclure dans des cellules excel.

cette formule doit permettre de faire la somme des cellules comprises entre D5 et D50 dont la police d'écriture est "non barrées" . De manière analogue je voudrais faire la somme des celules dont la police d'écriture est "non rouge".

En fait mon interrogation porte surtout sur comment traduire "somme des cellules comprises ds la plage de cellules "D5:D50". Pour les conditions "non barré" et "non rouge" je pense pouvoir m'en sortir avec l'enregistreur de macro

merci d'avance pour votre aide

[Qwazerty]

Salut

Le mieux dans ton cas serait de faire une function à laquelle tu passes deux paramètre.

1. La plage de cellule
2. la cellule ayant le format qui doit être pris en compte

Code :

1
2
3
Function SommeFormat(Plage as range, Source as range) as long
'[...]Le code
End Function

Le deuxième paramètre peut être remplacé par une série de paramètre optionnels si le nombre de caractéristique est limité

Code :

1
2
3
Function SommeFormat(Plage As Range, Optional FontBarre As Boolean, Optional IndexCouleur As Long = xlColorIndexAutomatic) As Long
'[...]Le code
End Function

Cette fonction pourra par la suite être utilisée directement dans ton classeur comme une formule intégrée à Excel
++
Qwaz

[gaston64]

merci pour la réponse

je souhaite effectivement inclure une telle formule dans mon tableau excel. Mais ce qui me manque c'est le code qui va dedans.

[Daniel.C]

Bonjour,

Voici un exemple avec les cellules non barrées. Note que le changement dans une cellule de "barré" ne provoquera pas un recalcul de la fonction. Tu devras appuyer sur la touche F9. Exemple d'utilisation :

Code :

=SommeNonBarré(A1:C10)

Code :

1
2
3
4
5
6
7
8
9
Function SommeNonBarré(Plage As Range)
    Dim c As Range
    Application.Volatile
    For Each c In Plage
        If IsNumeric(c) And c.Font.Strikethrough = False Then
            SommeNonBarré = SommeNonBarré + c.Value
        End If
    Next c
End Function

[Qwazerty]

Salut

Pour les conditions "non barré" et "non rouge" je pense pouvoir m'en sortir avec l'enregistreur de macro

J'avais cru comprendre...

Voila un exemple

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Option Explicit
Public Enum TFontBarre
    Barre_No = 0
    Barre_Yes = 1
    Barre_Indiferent = 2
End Enum
 
Function SommeFormat(Plage As Range, Optional FontBarre As TFontBarre = 2, Optional IndexCouleur As Long = -1) As Long
Dim TheCell As Range
Dim boolOK As Boolean
 
 
    'On boucle sur chaque cellule
    For Each TheCell In Plage
        'On initialise
        boolOK = True
 
        'On regarde si rayé
        If FontBarre <> Barre_Indiferent Then
            boolOK = TheCell.Font.Strikethrough = CBool(FontBarre)
        End If
 
        'On regarde si couleur correspondante également
        If IndexCouleur <> -1 Then
            boolOK = (TheCell.Font.ColorIndex = IndexCouleur) And boolOK
        End If
 
        If boolOK Then SommeFormat = SommeFormat + 1
    Next
 
End Function

l'énumération de valeur au début est facultative.

Dans ta formule, tu devras utiliser 0,1,2 pour les type barré.
0 - comptabilise les type non barré uniquement
1 - que les type barré
2 - tous type, barré ou non

Pour la couleur, j'ai utiliser ColorIndex pas color, donc regarde dans l'aide le nombre de couleur est restreint, il est bien sûr possible de modifier la macro pour utiliser Color en lieu est place de ColorIndex.

++
Qwaz

[Daniel.C]

@ Qwazerty :

Si tu ne mets pas :

Code :

Application.Volatile

la fonction ne se recalcule pas.

[Qwazerty]

Salut
Tu as à moitié raison

Même en mettant volatil a True, elle ne se recalculera pas lors de la modification de la font d'une des cellules de la plage :s, le calcul ne se fera qu'au moment de la modification du contenu d'une des cellules de la plage (ou sur appuie sur F9 - Recalcul).
Au mieux en passant volatil à True, le calcul se fera dés que n'importe laquelle des cellules du classeur sera modifiée... donc attention au problème de lenteur!

++
Qwaz

[gaston64]

Merci beaucoup pour vos réponses