comment récupérer via VBA les arguments d’une fonction excel contenue dans une cellule ?

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.

Bonjour,

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

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,

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 …

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:

---

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

---

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

Citation:

---

Envoyé par popaul88

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.