Comment pointer sur une constante déclarée dans un module

Version imprimable

02/02/2016, 13h16
flav_cm

Comment pointer sur une constante déclarée dans un module

Bonjour,

Je souhaiterais pouvoir comparer 2 séries de constantes, respectivement contenues dans 2 modules différents et dans 2 classeurs différents.

En fait, lors de l'utilisation de 2 fichiers Excel contenant des programmes en VBA, je souhaiterais vérifier que les constantes (nommées de la même manière) ont les même valeurs dans les 2 fichiers et indiquer à l'utilisateur celles qui sont différentes le cas échéant. Je précise qu'il est nécessaire de déclarer les constantes dans les 2 fichiers puisqu'ils doivent pouvoir travailler séparément.

L'ensemble des constantes sont des "string" déclarées et initialisées comme ceci :

Code:

Public Const un_e2l As String = "entre logements"

Je ne sais pas du tout comment je pourrais avoir accès en vba à ces constantes...

Merci d'avance pour votre aide !

Bonjour flav_cm,

Tout simplement comme ça :

Code:

1
2
3
4
Sub test()
    Debug.? un_e2l
    MsgBox "Ma variable ""un_e2l"" vaut : " & un_e2l
End Sub

ou bien

Code:

1
2
3
4
Sub test()
    Debug.? MonModule.un_e2l
    MsgBox "Ma variable ""un_e2l"" vaut : " & MonModule.un_e2l
End Sub

Bonjour,

une autre piste en manipulant le VBE via une fonction, à adapter si c'est compatible avec ton projet

j'ai utilisé pour l'exemple :

- Thisworkbook qui contient la première constante
- Classeur2 qui contient la seconde constante
- les constantes portent le même nom
- elles sont chacunes dans un module portant le même nom "Module1"

Pour faire rapide, j'ai directement fait la comparaison des deux valeurs de constantes dans ma procédure d'appel.
Mais il faut au choix :

- faire un premier test pour voir si le retour de la valeur contient la chaine "ECHEC : ", signifiant qu'il y a eu un problème (module ou constante inexistante)

- retourner un variant au lieu d'un string dans la fonction : tableau avec en premier élément le nom de la constante ou le message d'échec ... et en second élément un état TRUE ou FALSE pour spécifier si on a récupéré la valeur de la constante ou un message d'echec

dis moi si cette piste est ce que tu souhaites

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
  Sub chercheConst()
 
If Not ValConst(Workbooks("Classeur2"), "un_e2l") = ValConst(ThisWorkbook, "un_e2l") Then
    MsgBox "Les constantes sont différentes"
Else
    MsgBox "Les constantes sont identiques"
End If
 
End Sub
 
 
 
 
Function ValConst(Classeur As Workbook, NomConstante As String, Optional NomModule As String = "Module1") As String
' recherche dans le module "NomModule" du classeur indiqué la ligne de code de déclaration de la Constante
' la fonction retournera la valeur de la constante
Dim LeModule As Object
Dim i As Long
 
    ' on tente d'instancier le module
    On Error Resume Next
        Set LeModule = Classeur.VBProject.VBComponents(NomModule)
    On Error GoTo 0
 
    ' si ça échoue : message indiquant que le module n'existe pas
    If LeModule Is Nothing Then
        ValConst = "ECHEC : Le Module " & NomModule & " n'existe pas dans le classeur " & Classeur.Name
        Exit Function
    End If
 
    ' au sein du module
    With LeModule.CodeModule
        ' pour chaque ligne de code
        For i = 1 To .CountOfLines
            ' si la ligne est la déclaration de la constante (= le mot clé "Const" suivi d'un espace et du nom de la constante)
            If .Lines(i, 1) Like "*" & "Const " & NomConstante & "*" Then
                ' on retourne sa valeur et on quitte la procédure
                ValConst = Split(.Lines(i, 1), """")(UBound(Split(.Lines(i, 1), """")) - 1)
                Exit Function
            End If
        Next i
    End With
 
    ' si on a pas trouvé : on retourne un message à cet effet
    ValConst = "ECHEC : Constante " & NomConstante & " inexistante dans le classeur " & Classeur.Name & " au sein du module " & NomModule
End Function

Bonjour Antony et merci pour cette réponse rapide !

Je souhaiterais savoir si il serait possible de pointer plus précisément sur le module d'un classeur en particulier (puisque je veux comparer les constantes de 2 classeurs différents), ma tentative ci-dessous ne fonctionnant pas :
Code:

1 2 3 4 5 6 7 OldWb.Activate Debug.Print CONSTANTES.un_e2l nom = CONSTANTES.un_e2l CurrentWb.Activate Debug.Print CONSTANTES.un_e2l MsgBox ("Constante doc1 = " & nom & Chr(10) & "Constante doc2 = " & CONSTANTES.un_e2l)
EDIT :

Merci beaucoup joe.levrai pour ce bout de code, je pense que c'est exactement la base qu'il me faut !

02/02/2016, 16h10
Docmarti
Bonjour

Voici 2 autres methodes:

'Methode avec Reference

'Dans Classeur2

Code:

Private Const MyConstant As Integer = 10

'Outils/Propriete de VBAProject
'Changer le nom du Projet pour VBAProjectClasseur2

'Dans Classeur1
'Avec une reference vers VBAProjectClasseur2
Code:

1 2 3 Sub ttAvecReference() MsgBox VBAProjectClasseur2.MyConstant End Sub
'Methode Sans reference

'Dans Classeur2
'Dans ThisWorkBook de Classeur2.xlsm
Code:

1 2 3 Public Property Get GetConstant() As Integer GetConstant = MyConstant End Property
'Dans Classeur1
Code:

1 2 3 Sub ttSansReference() MsgBox Workbooks("Classeur2.xlsm").GetConstant End Sub