Déclaration Variable Publique ?

Version imprimable

13/09/2017, 11h10
cdurep

Déclaration Variable Publique ?

Bonjour,

J'ai besoin de déclarer des variables publiques qui alimentées dans une feuille puissent être exploitées dans une autre ou dans un module.
Quelle instruction utilisée ? où la positionnée ?
A ce stade je l'ai déclarée Public dans la feuille qui l'alimente. Mais elle est vide quand je veux l'exploiter dans une autre feuille.

merci de votre aide.
13/09/2017, 11h16
kiki29

Salut, de la lecture
13/09/2017, 14h16
Patrice740

Bonjour,

Une explication simple et limpide ici : http://silkyroad.developpez.com/VBA/LesVariables/#LV

Merci,

J'ai lu, mais n'ai pas réussi à résoudre mon besoin!
Il est le suivant :
dans la première feuille j'ai une liste de ressource. En doublecliquant sur une ressource j'accède à la deuxième feuille dans laquelle j'exploite le nom de la ressource sélectionnée. c'est cette valeur que je ne récupère pas.

code de la 1ère feuille:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Public NumRess, NomRess, listR, DerLigPCH, Mois, Champ, PasMaj As Boolean, err As Boolean ------------------- Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'aller directement dans PCH sur la personne sélectionnée NumRess = 0 If Target.Column = 5 Then NumRess = Target.Row - 9 NomRess = Target.Value ' NumREss contient le nom d'une ressource Sheets("PCH").Protect DrawingObjects:=False, Contents:=True, Scenarios:=False Sheets("PCH").Select End If End Sub
Code de la 2ème feuille
Code:

1 2 3 4 5 Sub Worksheet_Activate() Sheets("PCH").Cells(2, 2) = NomRess ' NomRess est vide ??? Sheets("PCH").Cells(3, 2) = "" End Sub
Merci d'avance

13/09/2017, 16h04
Patrice740

Citation:

Envoyé par cdurep

J'ai lu, mais n'ai pas réussi à résoudre mon besoin!
[...]

Tu as du lire beaucoup trop vite !!!
Il est bien précisé :
« Pour que la variable soit utilisable dans toutes les macros du projet, il faut utiliser l'instruction Public et la variable doit impérativement être placée en tête d'un module standard »

Mais pas dans un module de Feuille !
14/09/2017, 10h15
cdurep

Bonjour,
Effectivement j'avais mal lu; Ou plutôt pas perçu la nuance.
Manque de pratique certainement...

Merci

Bonjour,

Si tu protèges ta feuille "PCH", comment comptes tu saisir une valeur en Sheets("PCH").Cells(2, 2) lors de son activation?

Une autre manière de procéder, plutôt que de déclarer des variables publiques, serait d'utiliser des propriétés.
Je ne te l'indique ici qu'à titre de curiosité.

Dans un module standard :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
Private mNumRess As Long
Private mNomRess As String
 
Property Get NumRess() As Long
    NumRess = mNumRess
End Property
Property Let NumRess(N As Long)
    mNumRess = N
End Property
 
Property Get NomRess() As String
    NomRess = mNomRess
End Property
Property Let NomRess(Nom As String)
    mNomRess = Nom
End Property

Dans ton module de feuille :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Public listR, DerLigPCH, Mois, Champ, PasMaj As Boolean, err As Boolean
 
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'aller directement dans PCH sur la personne sélectionnée
    NumRess = 0
    If Target.Column = 5 Then
        NumRess = Target.Row - 9
        NomRess = Target.Value ' NumREss contient le nom d'une ressource
        Sheets("PCH").Select
    End If
End Sub

Et enfin feuille PCH :

Code:

1
2
3
4
5
6
Option Explicit
 
 Sub Worksheet_Activate()
    Me.Cells(2, 2) = NomRess
    Me.Cells(3, 2) = ""
End Sub

D'autre part :

Code:

1
2
    If Target.Column = 5 Then
        NumRess = Target.Row - 9

va planter pour tout double clic dans une des cellules de la plage E1:E10.
Prévoir donc une sortie de procédure.

Bonjour le forum,
Bonjour pikaju,

Citation:

Envoyé par pijaku

[...]Une autre manière de procéder, plutôt que de déclarer des variables publiques, serait d'utiliser des propriétés.
Je ne te l'indique ici qu'à titre de curiosité [...]

L'emploi de propriétés est une alternative intéressante à celui des variables
Je pense qu'il est bon de préciser à un débutant qui a des difficulté à comprendre la portée des variables qu'il s'agit de propriétés publiques affectées au module dans lequel elles sont écrites.
Dans ce contexte, l'emploi des déclarations implicites (i.e sans Public, Private, ...) n'aide pas à la compréhension du problème.
Sans vouloir t'offenser, je trouve plus didactique d'écrire ta proposition comme suit :

Dans un module standard (nommé module1) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Option Explicit Public listR, DerLigPCH, Mois, Champ, PasMaj As Boolean, err As Boolean Private mNumRess As Long Private mNomRess As String Public Property Get NumRess() As Long NumRess = mNumRess End Property Public Property Let NumRess(N As Long) mNumRess = N End Property Public Property Get NomRess() As String NomRess = mNomRess End Property Public Property Let NomRess(Nom As String) mNomRess = Nom End Property
Dans ton module de feuille :
Code:

1 2 3 4 5 6 7 8 9 10 Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'aller directement dans PCH sur la personne sélectionnée Module1.NumRess = 0 If Target.Column = 5 Then Module1.NumRess = Target.Row - 9 Module1.NomRess = Target.Value ' NumREss contient le nom d'une ressource Sheets("PCH").Select End If End Sub
Et enfin feuille PCH :
Code:

1 2 3 4 5 Option Explicit Private Sub Worksheet_Activate() Me.Cells(2, 2) = Module1.NomRess Me.Cells(3, 2) = "" End Sub

14/09/2017, 18h28
pijaku

Salut Patrice740,

Tu t'es fait raccourcir le pseudo?

Je ne suis pas offensé.
Moi-même, en écrivant le code, je me suis demandé si je ne devrait pas ajouter "Public".
Mais ma fainéantise légendaire maintenant a pris le dessus.
Bien vu donc ta remarque.
A++