Discussion :

[jajoju]

Peut-on déclarer des variables à l'extérieur d'une procédure ??

Exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim strVariable2 As String
Private strVariable3 As String
 
Private Sub AppelVariablesNiveauModule()
 
       Dim varMessage As Variant
       strvariable2 = "strVariable2 est de niveau module"
       strvariable3 = "strVariable3 est aussi de niveau module"
       varMessage = MsgBox(prompt:=strVariable2 & Chr(13) & strVariable3, Title:="Appel variables locales / Module1")
 
End Sub

C'est ce qui est montré dans les exemples du livre VBA Access 2013 Créer des applications professionnelles à la page 227
mais ça ne fonctionne pas...
Merci

[Jean-Philippe André]

Bonjour,

oui on peut, l'exemple fonctionne tres bien, l'as-tu bien ecrit dans un module ?

[jajoju]

Bonjour,

Je me suis servi du module qui vient avec le livre et que l'on télécharge sur le site web pour suivre les leçons.
J'ai suivi les mêmes instructions et c'est un message d'erreur qui apparaît ( voir plus bas ).
Par contre quand j' insère les énoncés à l'intérieur de la procédure, ça fonctionne !
C'est pour ça que je me demande si on peut mettre ces énoncés à l'extérieur sans les Sub et End Sub.
Merci

[Jean-Philippe André]

Hum, tu n'as pas besoin d'ecrire
Exemple:

seulement les lignes suivantes

[marot_r]

Bonjour,

Je me suis servi du module qui vient avec le livre et que l'on télécharge sur le site web pour suivre les leçons.
J'ai suivi les mêmes instructions et c'est un message d'erreur qui apparaît ( voir plus bas ).
Par contre quand j' insère les énoncés à l'intérieur de la procédure, ça fonctionne !
C'est pour ça que je me demande si on peut mettre ces énoncés à l'extérieur sans les Sub et End Sub.
Merci

Bonjour.

Tu peux le faire mais les déclaration doivent apparaître avant toutes les procédures et fonction.
Juste en dessous des Option.

ex valide :

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Compare Database
Option Explicit
 
dim V1 as variant
 
public sub S1()
end sub
 
public functon F1()
end function

Exemple invalide :

Option Compare Database
Option Explicit

Code :

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

1
2
3
4
5
6
7
public sub S1()
end sub
 
dim V1 as variant
 
public functon F1()
end function

A+

[marot_r]

On appelle cela des variables de module.

A+

[jajoju]

Bonjour,

Merci Marot_r,

Il s'agissait tout simplement d'insérer les énoncés au début du module et maintenant ça fonctionne.

Les énoncés étaient placées entre 2 procédures ... mais rien n' indiquait dans le livre qu' il fallait les mettre au tout début !

Je ne comprends pas la réponse de Jean-Philippe André :

Hum, tu n'as pas besoin d'ecrire
Exemple:
seulement les lignes suivantes

Pas grave,
Merci encore marot_r