fonction personnalisée : pas de recalcul

**illight** · 01/04/2008, 15h16

Bonjour,

j'ai créé cette fonction personnalisée :

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
Function SommeCellulesCouleur(PlageEntree As Range, CouleurPlage As Range) As Double
Application.Volatile
Dim Cell As Range, TempSum As Double, ColorIndex As Integer
ColorIndex = CouleurPlage.Cells(1, 1).Interior.ColorIndex
TempSum = 0
On Error Resume Next
For Each Cell In PlageEntree.Cells
    If Cell.Formula <> "" Then
        If Cell.Interior.ColorIndex = ColorIndex Then TempSum = TempSum + Cell.Value
    End If
Next Cell
On Error GoTo 0
Set Cell = Nothing
SommeCellulesCouleur = TempSum
End Function

Pour pouvoir calculer une somme par rapport à une couleur de cellules.

J'ai ajouté un :

Code :

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

Application.Volatile

pensant que ça allait calculer à chaque fois qu'il y avait une modification. Or, ce n'est pas le cas. Quand je change de couleur une cellule de ma plage, rien ne se passe.

Quelqu'un sait pourquoi la valeur ne change pas quand je change de couleur de cellule ? et si oui, comment faire pour que ça recalcule a chaque fois ?

Merci par avance pour votre aide

**kiki29** · 01/04/2008, 15h41

Salut, déjà ColorIndex est un mot réservé ( à eviter comme nom de variable), mais même avant cela je lirais l'aide en ligne sur Volatile : la réponse y est explicite

**illight** · 02/04/2008, 08h37

oui je l'ai lu merci..ça me dit comment faire pour qu'elle s'actualise

**Pierre Fauconnier** · 02/04/2008, 09h53

Bonjour

Code :

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

Application.Volatile

oblige Excel à recalculer la fonction personnalisée lors d'un recalcul. Il faut donc... recalculer.

Donc, la fonction sera actualisée lorsqu'une modification sur la feuille amène un recalcul (modification de valeur ou de formule, par exemple), lors d'une pression sur la touche F9 qui force un recalcul, ou par code, par exemple, mais cela risque d'être lourd, avec

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.Calculate
End Sub

Ok?

**illight** · 02/04/2008, 12h11

Merci Pierre; je vais essayer

L'inconvénient est que cette fonction je l'utilise sur plusieurs feuilles

bon il n'y en a que 5, mais bon c'est pas pratique

M'enfin merci quand meme, je vais quand meme essayer voir sic 'est pas trop lourd

**Pierre Fauconnier** · 02/04/2008, 12h23

Les couleurs pourraient-elles résulter d'un format conditionnel?

Sinon, il y bien la possibilité de gérer un évènement au niveau du classeur, mais si ton classeur est gros ou que le recalcul prend du temps, ce n'est pas top comme solution

**illight** · 02/04/2008, 14h17

Non le classeur est pas gros, il fait 400 Ko a tout casser

Et non les couleurs ne résultent pas d'un résultat conditionnel, enfin si mais des conditions "humaines".

Pour explication, en fait ce sont des commandes de clients, qui en fait passent par 3 stades : créé, facturé et parfois annulée.

Quand la commande est facturée, en fait on change la couleur de la ligne, et de ce fait le montant change (je pense que tu comprendra qu'il n'y a pas qu'une commande). C'est pour ça que j'avais créé cette fonction

**illight** · 02/04/2008, 14h20

J'ai essayé de le mettre la dessus :

Code :

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

1
2
3
4
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    ActiveSheet.Calculate
End Sub

Mais il faut quand meme cliquer à coté de la cellule, si tu ne fait que changer la couleur ça marche pas. A moins que ça soit une autre qu'il faille utiliser ?

**Pierre Fauconnier** · 02/04/2008, 18h35

Personnellement, je préfère devoir modifier la valeur d'une cellule pour informer qu'une commande a été facturée...

Pourquoi?

Parce que cela permet de traiter statistiquement les infos: Filtre automatique, récupération de données ailleurs que dans Excel, tableau statistique et Pareto sur le nombre de commandes facturées par mois, le délai entre la prise de commande et sa facturation, ...

Et comme, de plus, cela permet d'appliquer automatiquement une mise en forme conditionnelle sur la ligne ET un recalcul, tout le monde y gagne.

Donc, je conseillerais, si c'est possible (mais c'est toujours possible...), de modifier le classeur pour avoir une colonne supplémentaire avec la date de facturation (qui signalerait donc qu'il y a eu facturation) ou, à tout le moins, une validation dont la cellule avec "OUI/NON" dans une colonne "Facturée ?"

Mais ce n'est que mon avis...

**Pierre Fauconnier** · 02/04/2008, 19h55

Envoyé par illight

J'ai essayé de le mettre la dessus :

Code :

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

1
2
3
4
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    ActiveSheet.Calculate
End Sub

Mais il faut quand meme cliquer à coté de la cellule, si tu ne fait que changer la couleur ça marche pas. A moins que ça soit une autre qu'il faille utiliser ?

Non, c'est bien celle-là, mais il faut qu'il y ait changement dans une cellule (valeur ou formule) pour que le recalcul se fasse. Le recalcul n'est pas forcé sur la modification d'une couleur, puisque cela n'affecte pas la valeur de la cellule...