Discussion :

[imer33]

Bonjour,

J'ai créé un fichier macro.xla que j'ai mis sans le répertoire

Code :

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

"%APPDATA%\Microsoft\Excel\XLStart"

et qui contient par exemble la fonction suivante :

Code :

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

1
2
3
4
5
6
7
8
9
Public Function GetCol(CelluleActive As String) As String
 
    For i = 2 To Len(CelluleActive)
        If Asc(Mid(CelluleActive, i, 1)) > 64 And Asc(Mid(CelluleActive, i, 1)) < 91 Then
            GetCol = GetCol + Mid(CelluleActive, i, 1)
        End If
    Next
 
End Function

Pour pouvoir utiliser cette fonction dans une procédure vba qui se trouve dans un autre module, j'utilise la commande suivante:

Code :

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

Colonne = Application.Run("GetCol", Cellule)

Par contre, si je veux utiliser cette fonction avec la ligne :

Code :

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

Colonne = GetCol("Cellule")

J'ai un message d'erreur "Sub ou fonction non définie".

Savez vous pourquoi et quelle est mon erreur ?

Merci d'avance.
Cordialement,
Imer33

[Godzestla]

Bonjour,
Pour appeler ta fonction qui se trouve dans un XLA depuis un autre fichier .XLS par exemple, la syntaxe correcte est :

Code :

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

                      colonne = Application.Run("Macro.xla!Getcol", Cellule)

[imer33]

Bonjour,
Merci pour ta réponse.

N'existe t'il pas un moyen pour n'écrire que

Code :

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

Colonne = GetCol("Cellule")

sans passer par Application.Run ?

Je voudrais mettre à disposition de mes utilsateurs un fichier de fonctions "prétes à réutiliser" et je trouve cette syntaxe plus simple.

Merci.

[Godzestla]

Si,
si tu passes par excel pur et que tu prends l'assistant de fonction, que tu prends user defined, tu trouveras ta fonction, ce qui devrait te donner quelquechose du genre de ceci dans une cellule.

=Macro.xla!Getcol(Cellule)