Discussion :

[DenisHen]

Bonjour à tous.

Voilà, aujourd'hui, j'ai créé plusieurs "Function" qui fonctionnent très bien, sauf que, lors du changement du contenu de certaines cellules qui sont utilisées dans ces fonctions, rien ne se met à jour dans la feuille du classeur.

Il y a pourtant, dans les options, le calcul automatique activé...

Si quelqu'un a une astuce, un conseil... Je suis preneur...

Denis...

[riaolle]

Bonjour,
As-tu bien mis Application.Volatile ?

[Jean-Philippe André]

Salut,

Regarde si tu as touche au

Code :

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

Application.Volatile

edit : burned

[DenisHen]

Bonjour à voue deux.

Et merci de me répondre, mais non, je n'ai pas touché à ça (que je ne connaissais pas).

Voici une de mes fonctions :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Function SomDetMoisComm(Adress As Date) 
    Somme = 0
    LignTab = 12
    Do While Sheets("activité 54424").Cells(LignTab, 3) <> ""
        If Month(Sheets("activité 54424").Cells(LignTab, 3)) - 2 = Month(Adress) - 2 And Year(Sheets("activité 54424").Cells(LignTab, 3)) = 2017 Then
            Somme = Somme + Sheets("activité 54424").Cells(LignTab, 5)
        End If
        LignTab = LignTab + 1
    Loop
    SomDetMoisComm = Somme
End Function

[Jean-Philippe André]

OK,

ce n'est pas tres academique cette facon de faire.

ne peux tu pas plus directement passer par un SOMME.SI.ENS ?

[riaolle]

Du coup, il suffit de le rajouter :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Function SomDetMoisComm(Adress As Date) 
    Application.Volatile
    Somme = 0
    LignTab = 12
    Do While Sheets("activité 54424").Cells(LignTab, 3) <> ""
        If Month(Sheets("activité 54424").Cells(LignTab, 3)) - 2 = Month(Adress) - 2 And Year(Sheets("activité 54424").Cells(LignTab, 3)) = 2017 Then
            Somme = Somme + Sheets("activité 54424").Cells(LignTab, 5)
        End If
        LignTab = LignTab + 1
    Loop
    SomDetMoisComm = Somme
End Function

Petite remarque par rapport au code : au lieu de faire une boucle tant que la cellule n'est pas vide, tu peux chercher la dernière cellule non vide et faire une boucle For :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Function SomDetMoisComm(Adress As Date) 
    Application.Volatile
    Somme = 0
    LignTab = 12
    DerLig = Sheets("activité 54424").("C" & Rows.Count).End(xlUp).Row    '<==== dernière ligne non vide
    For LignTab = 12 to DerLig
        If Month(Sheets("activité 54424").Cells(LignTab, 3)) - 2 = Month(Adress) - 2 And Year(Sheets("activité 54424").Cells(LignTab, 3)) = 2017 Then
            Somme = Somme + Sheets("activité 54424").Cells(LignTab, 5)
        End If
    Loop
    SomDetMoisComm = Somme
End Function

De plus, ne pourrais-tu pas utiliser un CountIfs plutôt que de faire une somme par boucle et condition If ?
COUNTIFS : https://support.office.com/en-us/art...C-AA8C2A866842

[DenisHen]

Merci pour votre aide...

@Jean-Philippe André : merci, je vais voir ça, je ne connaissais pas.

@riaolle : J'ai déjà essayé de placer le "Application.Volatile", mais rien n'y fait.

J'ai testé Somme.Si.Ens, mais je n'ai rien réussi de correcte...

Je joint donc mon fichier, au cas ou quelqu'un découvre ce qui cloche...

[DenisHen]

Re à tous.

J'ai trouvé :

Code :

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

=SOMME.SI.ENS(Activité!E$12:E$5000;Activité!C$12:C$5000;">="&DATEVAL("01/01/2017");Activité!C$12:C$5000;"<="&FIN.MOIS("01/01/2017";0))

Mais j'ai un souci maintenant à faire une somme selon la semaine et non le mois...