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