[E-07] Liste les boîtes de dialogues intégrées

Version imprimable

17/02/2009, 17h52
aalex_38

[E-07] Liste les boîtes de dialogues intégrées
Bonjour,

Je voudrai lister les boîtes de dialogues intégrées de excel.

Je n'y arrive pas dans excel, est-ce possible ?

Je l'avais fait avec word :
Code:

1 2 3 4 5 6 7 Dim iDial As Dialog Dim i As Integer For Each iDial In Dialogs Debug.Print iDial.CommandName Next
17/02/2009, 18h23
pgz

Bonsoir.

L'objet Dialog d'Excel n'a pas de propriété CommandName, celui de Word oui.
Regarde la liste des propriétés.

PGZ
17/02/2009, 18h24
aalex_38

En effet, j'ai bien noté la différence, est-il possible cependant de lister les boites de dialogues, sans doute par un autre biais ?
17/02/2009, 19h01
pgz

Il y a la liste fournie par l'aide.

PGZ

Merci Pgz et en plus avec ça il y a leur valeur donc je vais pouvoir avancer.

Petite précision, ce que je voulais faire à l'origine était de lister les boites de dialogue dans une nouvelle feuille ( finalement j'ai recopié l'aide) puis d'afficher
cette boite de dialogue lorsque l'on selectionne la cellule.

Par exemple lorsque je clique sur la cellule contenant xlDialogColorPalette, que la boite de dialogue de la palette de couleur s'affiche.

C'est sur avec l'aide VBA, le code associé est indiqué et donc je peux le faire, à travers des exemples je cherche juste à progresser.

Le code lors de la selection d'une cellule dans la feuille contenant en première colonne les noms des boites de dialogue et en seconde les codes correspondants :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' Dim nom_diag As String On Error GoTo geserr Set isect = Intersect(Range("A:A"), Target) If Not isect Is Nothing Then If Target.Cells.Count = 1 Then If Target.Value > " " Then ' Application.Dialogs(nom_diag).Show 'ne fonctionne pas Application.Dialogs(Target.Offset(0, 1).Value).Show End If End If End If geserr: If Err.Number > 0 Then Debug.Print Err.Number & " : " & Err.Description & vbCrLf ' & nom_diag End If End Sub

18/02/2009, 18h22
SilkyRoad

bonsoir

Personnellement, j'ajouterais la valeur de la constante xlDialogColorPalette dans la colonne suivante et j'utiliserais cette valeur pour ouvrir la boîte de dialogue :

Code:

Application.Dialogs(Val_Constante).Show

Par exemple
xlDialogColorPalette ---> 161

Nota
Pour connaitre la valeur d'une constante, tu peux utiliser :

Code:

MsgBox xlDialogColorPalette

bonne soirée
michel
18/02/2009, 18h28
aalex_38

Merci beaucoup de s'interesser à mon sujet.

Dans l'aide VBA on parle d'énumération :

Citation:

Énumération XlBuiltInDialog

Est-il possible de le faire par un code VBA ?

Edit : Sinon à partir d'un String "xlDialogActivate" est il possible de retrouver la valeur (103) ?

Je vais clore ce post un peu à contre coeur, je ne sais toujours pas si on peut enumerer les boites de dialogue.

Finalement j'ai recuperé une liste déja toute faite des boites de dialogue et je génère un code à partir de leur valeur, si la procédure existe déjà dans un autre module, je ne le génère pas, ainsi quand je clique sur la colonne la boite de dialogue s'affiche basiquementet parfois lorsque j'ai écrit une procédure spécifique avec des paramètres personnalisés.

Un extrait de l'ecriture du code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
' ----------------------------------------------------- '
' Boucle sur la plage de cellules
' ----------------------------------------------------- '
 
Set MaPlage = Range("A65536").End(xlUp): Set MaPlage = Range("A2:" & MaPlage.Address)
 
For Each Cellules In MaPlage
 
    If BModule Then
        If VerifierExistenceMacro(ThisWorkbook, "ZZ_Show_Modifie", "D_" & Cellules) Then
           BMacro = True 'La macro "D_" ' "xlDialog... existe
        Else
            BMacro = False
        End If
    End If
 
 
    If Not BMacro Then
    LeCode = LeCode & vbCrLf & FEcriture_Code(Cellules.Value, Cellules.Offset(0, 1).Value)
    End If
Next
 
' ----------------------------------------------------- '
' Ajouter LeCode
' ----------------------------------------------------- '
With vbcomp.CodeModule
        .InsertLines 1, LeCode
End With

un extrait du résultat :

Code:

1
2
3
4
5
Sub D_xlDialogAddChartAutoformat()
On Error Resume Next
Application.Dialogs(390).Show
On Error GoTo 0
End Sub

La procédure evenementielle :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim nom_diag As String
On Error GoTo geserr
 
Application.DisplayAlerts = False
 
 Set isect = Intersect(Range("A:A"), Target)
 If Not isect Is Nothing Then
     If Target.Cells.Count = 1 Then
        If Target.Value > " " Then
 
              Run "D_" & Target.Value
 
        End If
    End If
End If
 
geserr:
Application.DisplayAlerts = True
If Err.Number > 0 Then
    Debug.Print Err.Number & " : " & Err.Description & vbCrLf & nom_diag
End If
End Sub

Edit DAns la feuille :

Nom xlDialogActivate
Valeur 103
Description BoîtededialogueActiver
Affichable Vrai
Paramètres window_text,pane_num

09/06/2009, 14h50
aalex_38

En fait ce que j'aurai voulu faire mais est-ce possible c'est récupperer les noms des variables utilisées, c'est-à-dire, la même liste que l'editeur fourni automatiquement lorsque l'on tape :

Code:

application.Dialogs(

En tout cas ce post m'a permis de progresser sur les boites de dialogues.

:resolu: