Discussion :

[popaul88]

Bonjour,

Je travaille actuellement sur un projet de création d’une fenêtre spécifique (via un userform) pour indiquer les paramètres une formule excel spécifique, un peu à la manière de lorsque l’on clique sur « fx » à coté de la barre de formule.

Pour cela, je construis une macro et un useform.

Mon problème est : comment récupérer via VBA les arguments d’une fonction excel contenue dans une cellule ? (chaque argument pouvant lui-même contenir des formules bien sûr)

J'ai pensé me lancer dans une analyse de chaque caractère pour arriver à detecter les points virgules mais avec les sous-fonctions ça rend la chose trop complexe pour être fiable..

Merci d'avance pour votre aide !
Paul.

[parmi]

Bonjour,

Est-ce que tu parles de fonctions personnalisées seulement ou toutes les fonctions, même celles d'Excel ?

[popaul88]

Les 2 ! mais c'est avant tout pour une fonction "personnelle"

Pour être plus clair voici un exemple :
Dans la cellule D5, la formule est "=MaFctPerso(Argument1;left(A2;3);Argument3)"
J'aimerai faire un userform dont la base serai:
------------------------------
| Détails de MaFctPerso: |
| Argument1 = Argument 1 |
| Argument2 = left(A2;3) |
| Argument3 = Argument3 |
------------------------------

Toute la partie construction / alimentation du userform, j'ai aucun problème,
mais comment "déconstruire la formule de la cellule pour obtenir les 3 arguments de la fct ?

Merci d'avance,

[Marc-L]

Bonjour !

Récupérer la formule via la propriété FormulaLocal puis utiliser la fonction Split avec le ; comme séparateur,

se référer à l'aide VBA intégrée …

[parmi]

Le problème que je vois, c'est le nombre de parenthèses et de ";"
Ça va être difficile de différencier les parenthèses de la formule telle quelle et celles intégrées à d'autres formules à l'intérieur.

Je pense que le mieux serait de prendre tout ce qu'il y a entre les 2 parenthèses extérieures dans un premier temps.
Par la suite, y aller en boucle, un caractère à la fois pour trouver chaque paramètre ou fonction.

J'ai fais un test avec l'exemple que tu donnes et on voit que le 2e paramètre se décompose, donc Split ne suffira pas...

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
19
20
21
22
Sub ExtraireParametres()
    Dim I As Long
    Dim Tablo
    Dim strTemp As String
 
    If Left(ActiveCell.Formula, 1) = "=" Then
        'Isoler les paramètres
        strTemp = Right(ActiveCell.Formula, Len(ActiveCell.Formula) - InStr(1, ActiveCell.Formula, "("))
        strTemp = Left(strTemp, Len(strTemp) - 1)
        MsgBox strTemp
 
        Tablo = Split(strTemp, ",")
        strTemp = ""
 
        For I = 0 To UBound(Tablo)
            strTemp = strTemp & Tablo(I) & vbCrLf
        Next
 
        MsgBox strTemp
    End If
 
End Sub

[Philippe Tulliez]

Bonjour,
La fenêtre d'insertion d'Excel proposant le même service en sélectionnant dans la liste Personnalisée n'est elle pas suffisante ?
Sachant que l'on peut aussi placer notre fonction personnalisée dans une des catégories existantes dans excel

[Docmarti]

Mon problème est : comment récupérer via VBA les arguments d’une fonction excel contenue dans une cellule ? (chaque argument pouvant lui-même contenir des formules bien sûr)

J'ai pensé me lancer dans une analyse de chaque caractère pour arriver à detecter les points virgules mais avec les sous-fonctions ça rend la chose trop complexe pour être fiable..

Bonjour.

C'est le type de problème idéal pour une fonction récursive.