Portée des variables

Version imprimable

22/06/2012, 10h52
SuperNova13

Portée des variables

Bonjour à tous,

J'aimerai savoir si il est possible de déclarer des variables qui ne disparaissent pas à la fin de l’exécution du projet.
J'enregistre dans des variables le nom des feuilles que l'utilisateur crée tant que mon projet vba est en cours et j'aimerai pouvoir avoir le moyen de "sauvegarder" ces variables pour les réutiliser au moments ou l'utilisateur exécute de nouveau le projet vba.
Encore mieux si c'est possible, pouvoir sauvegarder le nom de ces feuilles dans des variables et qui ne disparaitraient pas après fermeture puis réouverture du classeur.

est-ce possible ? Sinon avant vous des idées à proposer rendraient possible la gestion des feuilles qui sont créés puis supprimées ?
22/06/2012, 11h01
Daniel.C

Bonjour,

Citation:

Sinon avant vous des idées à proposer rendraient possible la gestion des feuilles qui sont créés puis supprimées ?

Il faut copier les feuilles dans un classeur historique avant de les supprimer. Maintenant, ça dépend de ce que tu veux faire exactement.

Quant à la sauvegarde des variables, soit tu les copies sur une feuille, soit tu les mets dans un nom défini.
22/06/2012, 11h18
SuperNova13

Salut, merci pour ta réponse

Au fait l'idée, c'était de détecter tel ou tel feuille ouverte ou manipuler par l'utilisateur pour pouvoir lors du lancement de la macro, travailler sur cette feuille. Par exemple si il l'utilisateur crée une nouvelle feuille, ferme le classeur en enregistrant, le ré-ouvre et exécute la macro.
Effectivement écrire le nom de la feuille qu'il crée dans une case d'une autre feuille devrait marcher mais c'est néanmoins pas très esthétique, c'est pourquoi je suis ouvert à toute proposition.
Merci
22/06/2012, 11h28
Daniel.C

La feuille peut être masquée, donc c'est neutre du point de vue de l'esthétique.

Bonjour,

Dans ThisWorkBook

Code:

1
2
3
4
5
6
7
8
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    laValeur = Application.InputBox("Saississez une valeur quelconque", , , , , , , 1 + 2)
    ActiveWorkbook.Save
End Sub
 
Private Sub Workbook_Open()
    test
End Sub

Dans un module

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Public Property Get laValeur() As Variant
    laValeur = [Essai]
End Property
 
Public Property Let laValeur(ByVal maValeur As Variant)
    ThisWorkbook.Names.Add "Essai", maValeur, False
End Property
 
Sub test()
On Error Resume Next
    MsgBox laValeur
End Sub

En ouvrant le classeur on récupère le valeur

A adapter

JP

22/06/2012, 13h12
SuperNova13

Merci pour vos réponses,
je n'avais pas pensé à cacher une feuille ou à ajouter des "noms" dans le classeur.