Gros soucis de déclaration de variables !

**IronHeavy** · 04/09/2017, 09h46

Bonjour A tous!

J'ai 2 projets de "progiciels" VBA sur excel, qui devront tourner sur différents PC prochainement. Leur rédaction est achevée à 95%, il ne me reste "plus que" la partie cosmétique à peaufiner.

A l'essai je me suis rendu compte que la mise en page de mes formulaires n'était pas du tout la même d'un PC à l'autre... je disposais alors d'un module d'affichage simple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
' affichage plein écran
 
Private Sub UserForm_Activate()
    With Me
        .StartUpPosition = 3
        .Width = Application.Width
        .Height = Application.Height
        .Left = 0
        .Top = 0
    End With
End Sub

Après recherches, j'ai trouvé quelque chose de fabuleux, mais beaucoup plus complexe:

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
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
Option Explicit
'
'Ce programme donne une form plein écran quelque soient la résolution
'et la taille de l'écran, grâce à l'utilisation des fonctions API.
'La bordure peut être facilement modifiée si besoin.
'
'
'Fonctions API
Private Declare Function GetSystemMenu Lib "User32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "User32" (ByVal hMenu As Long, ByVal iditem As Long, ByVal wflags As Long) As Long
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "User32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function IsIconic Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function IsZoomed Lib "User32" (ByVal hWnd As Long) As Long 'non utilisée ici
Private Declare Function DrawMenuBar Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" _
                                     (ByVal hWnd As Long, ByVal wMsg As Long, _
                                      ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "User32" ()
 
'
Private Const SW_MAXIMIZE = 3                   'constantes pour la fonction
Private Const SW_MINIMIZE As Long = 6           'ShowWindow
'
Private Const GWL_STYLE As Long = (-16)         'The offset of a window's style
Private Const WS_MINIMIZEBOX = &H20000          'Style to add a Minimize box on the title bar
Private Const WS_CAPTION As Long = &HC00000     'Style to add a titlebar
'
Private Const SC_MOVE = &HF010                  'constantes
Private Const SC_CLOSE = &HF060                 'pour la fonction
Private Const MF_BYCOMMAND = &H0                'DeleteMenu
'
Private Const WM_NCLBUTTONDOWN = &HA1           'constantes pour
Private Const HTCAPTION = 2                     'déplacement form sans titre
'
Dim hWnd As Long                                'le handle de la form
Dim wInit As Long, hInit As Long                'ses dimensions d'origine
Dim FormInit As Boolean                         'définit l'étape d'initialisation de la form
Dim FormSansTitre As Boolean                    'définit l'étape d'enlèvement du titre
Dim FormST As Boolean                           'definit l'état de la form
'
 
 
Private Sub UserForm_Activate()
    ShowWindow hWnd, SW_MAXIMIZE   'on veut maximiser la form au démarrage,
                                    'ce qui est en fait la raison d'être de ce code...
End Sub
 
Private Sub UserForm_Initialize()
    Dim iStyle As Long, hMenu As Long
    hWnd = FindWindow(vbNullString, Me.Caption) 'le handle de la form
    hMenu = GetSystemMenu(hWnd, 0)              'le handle du system menu
    iStyle = GetWindowLong(hWnd, GWL_STYLE)     'trouve le style du system menu
    iStyle = iStyle Or WS_MINIMIZEBOX           'ajoute le bouton mimimise
    SetWindowLong hWnd, GWL_STYLE, iStyle       'applique le nouveau style
    DeleteMenu hMenu, SC_CLOSE, MF_BYCOMMAND    'désactive le bouton supprime
    wInit = Me.Width: hInit = Me.Height
    FormInit = True
    FormSansTitre = True
    iStyle = GetWindowLong(hWnd, GWL_STYLE)     'trouve le style du system menu
    iStyle = iStyle And Not WS_CAPTION          'on ne veut pas de titre
    SetWindowLong hWnd, GWL_STYLE, iStyle       'applique le nouveau style
    DrawMenuBar hWnd
    FormSansTitre = False
    FormST = True
    Dim j As Long
    Dim F As Worksheet
    Dim Ligne As Long
    Dim Clear As Variant
End Sub
 
Private Sub UserForm_Resize()
    Dim RW As Single, RH As Single
    If IsIconic(hWnd) <> 0 Then Exit Sub    'la form est en icône:pas de redimensionnements!
    If FormInit = False Then Exit Sub       'on ne doit exécuter les redimensionnements des contrôles qu'une fois au départ!
    If FormSansTitre = True Then Exit Sub   'ne pas exécuter le resize au moment où on enlève le titre...
    'rapports d'agrandissement
    RW = Me.Width / wInit: RH = Me.Height / hInit
    'redimensionnement et replacement de l'ensemble des contrôles voulus en fonction de l'écran
    Dim Ctl As MSForms.Control
    For Each Ctl In Me.Controls
        'on a mis un tag pour les contrôles que l'on ne veut pas redimensionner
        If Ctl.Tag = "" Then Ctl.Move Ctl.Left * RW, Ctl.Top * RH, Ctl.Width * RW, Ctl.Height * RH
        If Not TypeOf Ctl Is Image Then     'ajouter si besoin les autres contrôles n'ayant pas de police
            Ctl.Font.Size = Round(Ctl.Font.Size * RH)   'redim des polices
        End If
    Next
 
 
End Sub
 
 
'pour déplacer la form sans barre de titre avec bouton gauche souris
Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 1 Then
    If FormST Then
        Call ReleaseCapture
        SendMessage hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
    Else
        Call ReleaseCapture
    End If
End If
End Sub

Et là, c'est le drame...

VBA le demande maintenant de déclarer TOUTES MES VARIABLES (sur mes 15 formulaires!). J'ai traité la plupart des anomalies "au petit bonheur la chance", et ai pût ainsi rattraper une partie ...

MAIS il subsite des écueils qui me sont insolubles!

Bref ... AU SECOURS!

**a_diard** · 04/09/2017, 10h49

Code :

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

Option Explicit

rend la déclaration des variables obligatoire

tu peux enlever cette ligne

mais, déclarer toutes les variables c'est plutôt une bonne chose.

**mjpmjp** · 04/09/2017, 10h57

bonjour,

déclarer TOUTES MES VARIABLES (sur mes 15 formulaires!)

les 15 formulaires sont dans le même fichier ---> déclarer une seule fois dans un module en "public"

@+JP

**Pierre Fauconnier** · 04/09/2017, 10h59

Envoyé par a_diard

Code :

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

Option Explicit

rend la déclaration des variables obligatoire

tu peux enlever cette ligne[...]

A NE JAMAIS FAIRE

La ligne option explicit est absolument obligatoire pour tout développement professionnel en VBA. C'est une aberration que les variables puissent ne pas être déclarées.

Tant pis pour les corrections à effectuer pour déclarer toutes les variables au sein du code. Il FAUT passer par cette étape. Développer un progiciel en VBA pour Excel sans déclarer ses variables, c'est du suicide.

De plus, déclarer tes variables t'obligera à t'interroger sur leur type et te permettra, pour les variables objet, d'obtenir une aide à la saisie pour ce qui concerne leurs propriétés et méthodes.

Et tant qu'on y est: éviter autant que possible les variables publiques. Elles induisent un couplage fort de tes procédures et fonctions et ne font pas partie des bonnes pratiques. De plus, les variables publiques ne meurent qu'à la fermeture de l'application. C'est catastrophique en termes de gestion de la mémoire. Les variables privées de module sont à proscrire autant que possible. Il est de loin préférable d'écrire des fonctions simples et limitées à un seul objectif qui reçoivent en arguments les données qu'elles doivent traiter. Ton code y gagnera en clarté, en modularité, en maintenance et en réutilisabilité...

NB: Débogage/Compiler... t'aidera à débusquer les variables utilisées non déclarées.

**mjpmjp** · 04/09/2017, 11h28

bonjour,

Et tant qu'on y est: éviter autant que possible les variables publiques.

ce qui ne veux pas dire --> ne pas utiliser !!!

je laisse , à la personne PsychoRigide qui à mit "-1" , son monde "strict" et "null"

Nom : Capture.PNG
Affichages : 311
Taille : 1,7 Ko

je laisse , également , tous les Farfadets , qui courent , sous un ciel étoilé , s'endormir avec leur pouce ....

@+JP

**Pierre Fauconnier** · 04/09/2017, 11h31

Envoyé par mjpmjp

bonjour,

ce qui ne veux pas dire --> ne pas utiliser !!![...]

Ca veut dire: Utiliser à bon escient

ou, si tu veux, programmer de façon pro, ou pas. Et je suis d'accord qu'il y a mille et une façons de programmer pro, mais utiliser des variables public pour ce pour quoi elles ne sont pas faites, ce n'est pas une façon pro d'écrire du code...

Tant qu'à faire, autant donner les bonnes pratiques dans nos réponses, non? Sauf si cela t'amuse de passer après coup sur le code d'un bricoleur qui a codé avec ses pieds. Parce que le jour où un des formulaires aura modifié de façon non désirée une variable publique et que ça merdera dans un autre formulaire qui utilise ladite variable, ça sera jouissif de trouver le pourquoi du comment. (Peut-être que c'est pour cela qu'il existe des farfadets, pour corriger les bricolages qui ne tiennent pas la route...

)

**IronHeavy** · 04/09/2017, 11h32

Bonjour à tous les 3!

@ a_diard: radical, mais j'ai peur que certains modules ne s'exécutent plus complètement (sortie de procédure non signalée)

@ mjpmjp: j'y ai songé, il me faudrait pour cela repartir d'un fichier vierge et tout réécrire proprement! ce qui me semble sain mais:
- je n'ai pas le temps pour cela: tout doit fonctionner mercredi matin pour présentation à ma direction;
- je n'ai pas la compétence non plus: beaucoup de codes m'ont été suggérés par des tiers experts (via mes questions sur ce forum + consultation des autres threads), je ne saurais rassembler une base déclarative globale, sachant que des méthodes différentes ont pût coexister jusqu'à aujourd'hui, et ne plus "s'entendre" si je les rassemble!

@Pierre Fauconnier : merci pour ces avertissements! je vais prendre connaissance avec la fonction Débogage / compiler et ferai un retour sur ce thread en cas de blocage...

**Pierre Fauconnier** · 04/09/2017, 11h35

Envoyé par IronHeavy

Bonjour à tous les 3!

@ a_diard: radical, mais j'ai peur que certains modules ne s'exécutent plus complètement (sortie de procédure non signalée)[...]

Perso, je ne vois pas le lien avec la déclaration des variables...

**IronHeavy** · 04/09/2017, 11h43

Il me semble avoir eu le cas d'une erreur qui rendait une partie de ma macro non fonctionnelle, que je n'ai pu détecter qu'avec l'option Explicit d'active, mais je peux me tromper!

**mjpmjp** · 04/09/2017, 11h44

re,

Ca veut dire: Utiliser à bon escient ou, si tu veux, programmer de façon pro, ou pas. Et je suis d'accord qu'il y a mille et une façons de programmer pro,

--> OK

mais utiliser des variables public pour ce pour quoi elles ne sont pas faites, ce n'est pas une façon pro d'écrire du code...

--> OK

Les variables privées de module sont à proscrire autant que possible.

--> OK

on est tous d'accord

@+JP

**Pierre Fauconnier** · 04/09/2017, 11h50

Envoyé par mjpmjp

re,
--> OK
--> OK

--> OK

on est tous d'accord

@+JP

Tout à fait...

(Hé, y a un psychorigide qui a plussé ta réponse...

)

Invité · 04/09/2017, 11h59

déclarer les variable publics est effectivement une hérésie pour mois et je suis d'accord avec Pierre!

mais pour ce qui concerne les API les déclarer en public dans un module standard je suis pour mais attention aux directive de compilation!

Code :

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