Discussion :

[niavlys26]

Bonjour, désolé pour le titre qui sera peut être pas trop explicite par rapport à ma demande mais j'ai du mal à résumer ça en quelques mots .
Voilà tout : J'ai un module simple dans lequel je déclare

Code :

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

Private Plage As Range

Ensuite une procédure qui définit cette plage

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Init()
Dim MySheet As Worksheet
Set MySheet = Sheets("Liste")
Set Plage = MySheet.Range("A1").CurrentRegion
Set Plage = Plage.Offset(1, 0).Resize(Plage.Rows.Count - 1)
'et ensuite je trie...
Plage.Sort Key1:= 'etc. etc.
'(...)
End Sub

Pour ne pas toujours passer par cette sub Init, par exemple dans ma procédure pour rechercher :

Code :

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

1
2
3
4
5
6
Public Sub Rechercher(ByRef Nom As String, ByRef Pre As String)
Call Init
Dim R As Range
Set R = Plage.Find(Nom)
'(... ...)
End Sub

J'ai pensé à poser une condition dans le style :

Code :

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

If Plage Is Nothing Then Init

Ce qui m'aurait permis de pas systématiquement appeler la procédure notamment dans le cas de plusieurs recherches successives
Oui mais voilà, cette ligne me provoque une erreur
Je pense que quelque chose de basique m'échappe mais je comprends pas
Merci pour votre aide

[ouskel'n'or]

Et si tu mets

Code :

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

If R Is Nothing Then Init

Mais si R n'est pas dans la même procédure, tu devras le déclarer en public.
Bonne journée

[niavlys26]

Oui c'est vraiment pas bête, c'est à dire que si une recherche a été faite auparavant, on n'appelle pas Init.
Mais j'ai une question toute bête :
Je déclare (dans mon Module) Private Plage.
Init est une procédure Privée également.
Est ce que, une fois la que j'atteins la fin de la procédure Publique 'Recherche' (End Sub), les valeurs privées de mon module sont effacées et ne sont conservent pas leurs valeurs jusqu'au prochain appel à une procédure de ce module ? (J'espère que je me suis bien exprimé )
Sinon je vais essayer avec Public Plage As Range, mais ça me chagrine.
Merci pour ton aide

[patbou]

BONJOUR

les variables private declaré en tete de module conserverons leurs valeurs dans le module, par contre les variables declarées a l interieur des procedures perdrons leurs valeurs