Discussion :

[devuranie]

Bonjour,

Comment faire, en VBA, pour commander l'ouverture de la fenêtre Excel d'insertion d'une fonction et de se positionner automatiquement sur une catégorie (en l'occurrence personnalisée, elle contient des formules écrites en VBA) ?

Mon but est de simplifier les actions de l'utilisateur. Au clic sur un bouton du ruban, une macro sera exécutée et celle-ci ouvrira la fenêtre d'insertion de fonction avec mes fonctions personnalisées à l'écran. Et ce pour lui faire faire le moins de manipulations possibles.

[casefayere]

Bonsoir,
Une idée comme une autre :
J'imagine =>
1 - que ta feuille se nomme feuil1
2 - une listbox "controle activeX" dans cette feuille "listbox1"
3 - une fonction personnalisée à mettre en B2 (tu adapteras)
4 - un array contenant la liste de tes fonctions personnalisées (j'ai mis un exemple dans le code ci-dessous)
5 - un bouton dans la feuille "CommandButton1"

Le bouton ouvre la listbox => doubleclick sur item de la listbox ouvre boite de dialogue de la fonction choisie

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
Option Explicit
Dim fcperso
Private Sub Worksheet_Activate()
ListBox1.Visible = False
End Sub
Private Sub CommandButton1_Click()
fcperso = Array("diagonale()", "diagrect()", "EUROCONVERT()")
ListBox1.Visible = True
ListBox1.List() = fcperso
End Sub
 
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With Worksheets("feuil1").Range("B2")
   .Formula = "=" & ListBox1.Value
End With
ListBox1.Visible = False
Application.Dialogs(xlDialogFunctionWizard).Show
 
End Sub

sinon je ne sais pas ouvrir directement sur le choix "fonctions personnalisées", à part :

Code :

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

Application.Dialogs(xlDialogFunctionWizard).Show