Discussion :

[a.dequidt]

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 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 :

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

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 :

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

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! AIE, ça fait mal ...

Erreur: fichier_logiciel n'est pas définie,

[binouzzz19]

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.

[Jean-Philippe André]

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

[a.dequidt]

Code :

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

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 :

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

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 = "" !!!!

[Jean-Philippe André]

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

[a.dequidt]

Code :

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

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

[Jean-Philippe André]

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

[Invité]

Bonjour

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