[VBA-E] Variables globales sur tout un projet

Bonjour à tous,

J'ai enfin fini pour projet et je vous remercie tous pour avoir été si patient avec moi lors de mon apprentissage de VBA, car maintenant, je peux aider les autres à mon tour 8-) La classe non?

Malgré tout ça, comme je suis encore un peu débutante, mon projet est très foulli, pour utiliser des données un peu partout j'ai mis mes variables dans des cellules.
J'aimerai utiliser les fameuses variables globales.
J'ai déja essayer, je vous montre mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Option Explicit Dim fichier_logiciel As String Dim menu_logiciel As Integer Dim chemin_logiciel As String   Private Sub Workbook_Open()   Sheets(1).Select Range("A1").Select menu_logiciel = Application.CommandBars("Worksheet Menu Bar").Controls.Count

---

Ce code je l'ai mis dans "ThisWorkBook" et dans un module, j'utilise fichier_logiciel

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Option Explicit   Sub miseajour_marque() Dim i, j As Integer Dim nomfichier, lenom, Formule As String   Worksheets(1).Unprotect Sheets(1).Select     Windows("Tarifs.xls").Activate onglet_tarif = ActiveWorkbook.Sheets.Count - 2 Windows(fichier_logiciel).Activate

---

Et la! PAF! :bug: AIE, ça fait mal ...

Erreur: fichier_logiciel n'est pas définie, :cry:

Pour utiliser une variable globle à tout le projet, il faut que tu mettes ta variable dans un module comme ceci :

Public fichier_logiciel as string

Puis tu peux l'utiliser partout.

Ton problème vient du fait que ta variable est définit sur un formulaire et elle n'est que visible par ton formulaire. A la sortie de celui-ci, elle n'existe plus.

bonjour,
d'une manière générale, j'utilise un module pour mettre toutes les variables utilisées. Pense à bien les commentées, si leur nom n'est pas assez explicite :)

Code:

---

1 2 3 4 5 6

Option Explicit Public fichier_logiciel As String Public menu_logiciel As Integer Public chemin_logiciel As String Public onglet_tarif As Integer Public nombre_tableau As Integer

---

Code:

---

1 2 3 4 5 6

Windows("Tarifs.xls").Activate Sheets(marque).Select With Range("A2:A" & Range("A65535").End(xlUp).Row) Set c = .Find(reference, LookIn:=xlValues) If Not c Is Nothing Then Workbooks(fichier_logiciel).Cells(l, 2).Value = Cells(c.Row, 1).Value

---

Et la fichier_logiciel = "" !!!!

c'est que la variable nn'a pas été initialisée... :p

Code:

---

1 2 3 4 5 6 7 8

Private Sub Workbook_Open()   Sheets(1).Select Range("A1").Select menu_logiciel = Application.CommandBars("Worksheet Menu Bar").Controls.Count   fichier_logiciel = ActiveWorkbook.Name

---

pourtant si :(

ton workbook_open tu l'as mis dans quel module ou feuille ?

Bonjour

Citation:

---

Envoyé par jpcheck

ton workbook_open tu l'as mis dans quel module ou feuille ?

---

Il s'agit d'une procédure qui se lance à l'ouverture du classeur, cela n'a pas sa place dans un module ou dans une feuille.

a.dequit Essaye de remplacer ActiveWorkook par ThisWorkbook pour voir (c'est juste une idée).
Es-tu sûr de ne pas réinitialiser ta variable autre part ?


Starec