Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

variable permanente VBA

  • Initiateur de la discussion Initiateur de la discussion titcoeur
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

titcoeur

XLDnaute Occasionnel
Bonjour,

Est-il possible en VBA, de définir une variable permanente.

c'est à dire une variable qui garde sa valeur même quand on quitte la sheet.


exemple :

variable1 permanante

Private Sub Workbook_Open()
variable1=variable1+1
end sub


et chaque fois qu'on rentrerait dans le fichier, le compteur serait incrémenté de 1.


j'ai bien une idée sur la façon de faire, mais cela implique d'aller écrire la valeur qqpart dans la sheet ... ce que je n'aime pas trop.

Merci d'avance
 
Bonjour titcoeur,

Je crois bien qu'il n'y ait pas d'autre solution que d'écrire cette valeur sur une feuille, mais

rien n'empèche de créer une feuille 'parametres', de lui affecter cette valeur à l'ouverture du classeur et ensuite de cacher cette feuille en la protégeant par un mot de passe

Sinon il faut écrire cette feuille dans un autre fichier ... et cela devient lourd a gérer. Pour mes utilisitions, je fais tjours la solution 1

à+
Bertrand
 
Slu JMPS,

ca fait qu'on trois, puisque je suis déja d'accord avec moi-même et avec toi (lol)



🙂
:kiss: à titcoeur en espérant ne pas l'avoir brisé, ça serait dommage

à+
Bertrand
 
😱

j'avais déjà implémenté la solution via sheet ... donc quelque part, je suis aussi d'accord avec vous. 😉

mais vous m'avez tellement habituée à trouver des solutions à des problèmes que je trouvais insolubles que je me suis dit ... 'va voir sur le forum ... tu apprendras peut-être encore un truc insoupçonné ...' :woohoo:

Merci à tous les deux :kiss:
 
Salut Titcoeur,

Moi je passe par un bouton de commande auquel j'affecte la macro suivante :

Private Sub CommandButton1_Click()
Feuil1.Cells(1, 1).Offset = Val(Feuil1.Cells(1, 1).Offset) + 1
End Sub


Si ca peux t'aider... ou te faire avancer..
:ermm:

Simons.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
985
Réponses
5
Affichages
744
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…