Discussion :

[zazizou]

Bonjour

J'ai créé une fonction excel (2007) en VBA qui marche très bien quand je l'utilise dans différentes celluleq de mon fichier.
Mon problème intervient quand je ferme et ouvre à nouveau le fichier. Quand je le ré-ouvre, les cellules contenant la fonction que j'ai créée ne se calculent pas et sont à 0. Pour que le calcul se fasse, il faut que je retape la formule dans les cellules concernées.

Quelques précisions :
- Toutes les autres cellules contenant des formules (mais des formules Excel ...) se calculent automatiquement à l'ouverture du fichier.
- Dans Option Excel > Formules > Mode de calcul, la case "Automatique" est bien cochée.
- F9 ne fonctionne pas.

Merci à toutes les personnes qui pourront m'aider

[Philippe Tulliez]

Bonjour,
L'affichage du code de ta fonction personnalisée permettrait certainement de t'apporter une réponse pertinente.

[zazizou]

Voici le code de la fonction en question

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
Function nbTransac(c As Range) As Integer
    Dim cols As Variant
    Dim ligne As Integer
    Dim col As Variant
    Dim nb As Integer   
 
    ligne = c.Row
    cols = Array("L", "T", "AB", "AJ", "AR", "AZ", "BH", "BP", "BX", "CF", "CN", "CV")
 
    For Each col In cols
        If Range(col & ligne).Value = "oui" Then
            nb = nb + 1
        End If
    Next
 
    nbTransac = nb
 
End Function

[Daranc]

c'est la réécriture de la fonction nbsi(plage;critère) .
y'a vraiment une utilité ou c'est pour apprendre
un regroupement de cellule dans un tableau avec égalité et intervention sur la plage ne serait pas plus simple?
bon edition
après relecture , je dis peut etre une connerie
après un test de la fonction ( entre nous, elle, me retourne :#NOM?)
il y a ça

Code :

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

=SOMMEPROD((L2=$CX$1)+(T2=$CX$1)+(AB2=$CX$1)+(AJ2=$CX$1)+(AR2=$CX$1)+(AZ2=$CX$1)+(BH2=$CX$1)+(BP2=$CX$1)+(BX2=$CX$1)+(CF2=$CX$1)+(CN2=$CX$1)+(CV2=$CX$1))

avec oui en CX1
c'est vrai que c'est un peu long , mais ça le fait

[Philippe Tulliez]

Bonsoir,
Dans ta fonction ajoute cette ligne Application.Volatile mais attention la fonction sera recalculée chaque fois que l'on modifie la valeur d'une cellule de n'importe quelle feuille, de n'importe quel classeur ouvert.

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 nbTransac(c As Range) As Integer
    Application.Volatile
    Dim cols As Variant
    Dim ligne As Integer
    Dim col As Variant
    Dim nb As Integer
    ligne = c.Row
    cols = Array("L", "T", "AB", "AJ", "AR", "AZ", "BH", "BP", "BX", "CF", "CN", "CV")
     For Each col In cols
        If Range(col & ligne).Value = "oui" Then
            nb = nb + 1
        End If
    Next
     nbTransac = nb
 End Function