[BO 6.1.5][VBA] Liste des variables et des formules. [Résolu]

[mirena]

Bonsoir à tous,

J'ai été amené à définir de nombreuses variables. Je commence à m'y perdre.
Existe-il une fonction ou une instruction VBA qui permet d'avoir la liste des variables définies dans le documents et les formules associées ?

Un équivalent de la fonction Excel Insertion > Nom > Coller > Coller une liste qui permet d'avoir un nom et la zone pointé par ce nom.

Merci par avance pour vos lumières, qui m'éclaireront sans aucun doute.

Bonne soirée

[Liszt]

Je ne sais pas si cela existe en version 6, mais bon je tente.

En version XI R2, tu peux choisir quoi imprimer. Donc par exemple, choisir uniquement les mesures et leur définition. Et ça marche bien je crois. Si cela t'intéresse, il faudrait voir s'il y a un équivalent dans ta version.

Après, tu ne veux peut-être que les variables que tu as créées uniquement dans ton rapport ?

[Bruno2r]

Bonjour,
Voici un petit script de procédure qui en établit la liste dans la fenêtre d'exécution.

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
29
30
31
32
Public Sub mesvariables()
'Bruno2r <a href="http://bruno-roman-ruiz.developpez.com/index/" target="_blank">http://bruno-roman-ruiz.developpez.com/index/</a>
'20080207 22:00 
'BO V6.5.1
'Lister les VARIABLES crées par l'utilisateur
 
Dim doc As Document
 
Dim docivar As Integer, docnvars As Integer
Dim docvars As DocumentVariables
Dim docvar As DocumentVariable
Dim txt As String
Dim nbv As Integer
 
Application.Interactive = True
Set doc = Application.ActiveDocument
Set docvars = doc.DocumentVariables
docnvars = docvars.Count
txt = ""
nbv = 0
For docivar = 1 To docnvars
    Set docvar = docvars.Item(docivar)
 
    If docvar.IsDataProviderObject = False And docvar.Name <> "" Then
        nbv = nbv + 1
        txt = txt & Chr(10) & Chr(10) & "[" & nbv & "] Variable " & docvar.Name & Chr(10) & docvar.Formula
    End If
 
Next docivar
Debug.Print doc.Name & " contient " & nbv & "  variables :"
Debug.Print txt
End Sub

[mirena]

Bonsoir Bruno et Merci beaucoup pour ta réponse.
Tu as réponse à tout !!

Je vais l'essayer dès demain au bureau.
Bonne soirée !

[Bruno2r]

Alors ça a marché ?
Si oui, un petit serait le bien venu ...
Merci
Je l'avoue je fais la chasse aux Résolus pour qu'on s'y retrouve sur ce BO Forum