Discussion :

[timoth]

Bonjour,

J'ai programmé une petite fonction qui m'a été bien pratique pour un travail et je cherche à ajouter cette fonction à ma bibliothèque de fonctions personnelles, pour l'utiliser dans un autre fichier.
Je me suis servi du post suivant:
J'ai écrit ma fonction dans un module que j'ai mis dans un fichier PERSONAL.XLS qui se trouve dans le dossier XLSTART dans Documents and Settings.

Quand j'ouvre un fichier Excel quelconque, je vois bien le module de PERSONAL.XLS, j'arrive à executer les macros mais pas les fonctions . Quelqu'un a une solution? Merci...

[ouskel'n'or]

Bonsoir tim,
Il serait bien que tu nous donnes le code d'appel de tes fonctions et que tu nous indiques les paramètres que tu lui passes...

[timoth]

Bonjour ouskel'n'or

Voici ma fonction (trouver le nombre de fois où on trouve un mot dans une plage):

Code :

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

1
2
3
4
5
6
7
8
Public Function Comme(rg As Range, mot As String)
Dim cell As Variant
Dim i As Integer
For Each cell In rg.Cells
If cell.Value Like "*" & mot & "*" Then i = i + 1
Next cell
Comme = i
End Function

On a pas encore trouvé le moyen de très bien s'entendre Excel et moi, mais je sens qu'on va faire des progrès...

[ouskel'n'or]

On a les paramètres, il nous manque

Il serait bien que tu nous donnes le code d'appel de tes fonctions

car il semble bien que par là que sa pèche.
Par ailleurs, si rg est un range, pourquoi mettre For Each cell In rg.Cells ? rg devrait suffire.
Désignes-tu le nom du xla dans la ligne d'appel à la fonction ?
As-tu validé le xla dans Outils -> Macros complémentaires ?
A+

[Bigalo]

Bonsoir,

Code :

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

1
2
3
4
5
6
7
8
Public Function Comme(rg As Range, mot As String)
Dim cell As Variant
Dim i As Integer
For Each cell In rg.Cells
If cell.Value Like "*" & mot & "*" Then i = i + 1
Next cell
Comme = i
End Function

Tu peux obtenr le même résultat sans VBA :

Code :

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

=SOMMEPROD(NON(ESTERREUR(CHERCHE("Toto";J9:J11))) * 1)

C’est plus long à écrire, mais si tu dois transmettre le classeur à un tiers, cela évite les éventuels problèmes liés à la sécurité des macros, et au fait que la fonction est dans ton Paesonal.xls !

Quant à ta fonction, tu peux la simplifier ainsi :

Code :

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

1
2
3
4
5
6
Public Function Comme(rg As Range, mot As String)
Dim c As Range
        For Each c In rg
            If c Like "*" & mot & "*" Then Comme = Comme + 1
        Next
End Function

Il vaut mieux définir c (ou cell), comme Range que comme Variant, puisqu’il s’agit de parcourir une plage de cellules.

Tu peux également supprimer la variable i.

Cordialement,

[SilkyRoad]

bonjour

Quand j'ouvre un fichier Excel quelconque, je vois bien le module de PERSONAL.XLS, j'arrive à executer les macros mais pas les fonctions . Quelqu'un a une solution? Merci...

j'espère que ce lien pourra t'aider

Rendre une fonction opérationnelle dès l'ouverture d'Excel


bonne journée
michel

[timoth]

Merci à tous pour votre aide... Effectivement, je n'avais pas fait toutes les étapes de la démarche. Je n'avais pas relevé le tuto qui a déja toutes les réponses.

Merci Bigalo pour ta proposition de formule. Je me doute qu'il y a un moyen mais je passe bien souvent des heures et des heures à trouver la bonne fonction. J'ai optimisé mon code comme tu me l'as conseillé.

Merci à tous !