Microsoft 365 Ma fonction VBA s'exécute avec toutes mes Macros

MACx à dit:

Bonjour à vous,

Je viens vous demander de l'aide directement par ici en vous avouant ne pas avant cherché avant ni dans le forum ni ailleurs sur le web, tout simplement car je ne sais quoi ni où chercher.
Je rencontre un problème ( ce n'est pas un bug) avec une fonction créée (sur un fichier Excel qui doit rester tout le temps ouvert) qui s'exécute "aussi" lorsque j'exécute une macro, même si cette dernière se trouve sur un autre fichier...

Voici la fonction créée dans un module :

VB:

Option Explicit
Function SOMMECOULEUR(cellules As Range)
    Application.Volatile
   
    Dim total As Double
    Dim cellule As Range
   
    For Each cellule In cellules
        If Application.Caller.Interior.Color = cellule.Interior.Color Then
            total = total + cellule
        End If
    Next
   
    SOMMECOULEUR = total
End Function

Si je créée une macro X et que je la teste (avecF8), à un moment dans une de mes lignes d'exécution, je me retrouve dans le module où se trouve le code ci-dessus. Etant donné qu'il y a un "Loop" celle-ci tourne à l'infini (autant de fois que j'appuierai sur F8).
Mais si j'appuie sur F5, ma Macro X fini par s'exécuter "normalement"

Merci d'avance à la personne qui voudra bien et saura m'apporter une aide.

PS: Pour info, le code ci dessus m'aide à faire des sommes selon la couleur des cellules d'une feuille Excel.

Cliquez pour agrandir...

Gégé-45550 à dit:

Bonjour,
il manque un info :
- comment (par quelle macro) et à quel moment cette fonction est-elle appelée ?
Cordialement,

Cliquez pour agrandir...

Staple1600 à dit:

Bonjour @MACx, @Gégé-45550 , le fil

[Pour infos]
Pour que ta fonction SOMMECOULEUR soit disponible dans tous tes classeurs, tu peux la stocker dans le classeur de macros personnelles (nommé Perso.xlsb)

Voir explications ici (par exemple)

Cela évitera peut-être la survenue du problème décrit.

Cliquez pour agrandir...

Gégé-45550 à dit:

Bonjour,
Une proposition : définir la fonction comme Private puis, dans le fichier l'appeler avec Application.Run.
Ainsi, elle ne sera pas "vue" par les autres classeurs.

VB:

Private Function SOMMECOULEUR(cellules As Range)
    Application.Volatile
   
    Dim total As Double
    Dim cellule As Range
   
    For Each cellule In cellules
        If Application.Caller.Interior.Color = cellule.Interior.Color Then
            total = total + cellule
        End If
    Next
   
    SOMMECOULEUR = total
End Function

puis, lors de chaque appel à la fonction SOMMECOULEUR

VB:

Application.Run "SOMMECOULEUR"

Cordialement,

Cliquez pour agrandir...

MACx à dit:

Merci Gégé,
Je ne suis pas trop calé non plus en VB alors quelques questions me viennent:
- Est-ce que je retire le "Option Explicit" ?
- Où dois-je saisir le code : Application.Run ?
MC

Cliquez pour agrandir...

• Le Option Explicit n'a rien à voir, il permet juste de garantir que, dans tout le code, l'ensemble des variables utilisées sont bien déclarées.
• Partout dans le code où il est fait appel à la fonction "SOMMECOULEUR". Par exemple, si une ligne de code contient

x=toto + SOMMECOULEUR

toto + Application.run "SOMMECOULEUR"

Gégé-45550 à dit:

re

• Le Option Explicit n'a rien à voir, il permet juste de garantir que, dans tout le code, l'ensemble des variables utilisées sont bien déclarées.
• Partout dans le code où il est fait appel à la fonction "SOMMECOULEUR". Par exemple, si une ligne de code contient

VB:

x=toto + SOMMECOULEUR

on la remplacera par

Code:

toto + Application.run "SOMMECOULEUR"

Cordialement,

Cliquez pour agrandir...