[XL-2010] Portée de variables

Portée de variables

Bonjour,

Développeur VBA en herbe, j'ai un probléme de portée de variable que je n'arrive pas à solutionner.
J'ai un classeur avec 4 onglets , les onglets 2,3 et 4 étant calculés à partir du premier.
J'ai prévu une sauvegarde automatique qui gére la duplication et la suppression des feuilles si modification.
A l'ouverture du classeur, je fais une copie de l'onglet 1 avec une macro "Sub Workbook_Open()"
Lors d'une modification sur le premier onglet et sur lui seulement, j'ai une macro "Sub Worksheet_Change(ByVal Target As Range)" qui m’incrémente une variable "Modif".
Je ne sais pas comment déclarer cette variable "Modif" pour qu'une macro "Sub Workbook_BeforeClose(Cancel As Boolean)" gére la sauvegarde de l'onglet 1 (suppression de l'ancienne sauvegarde et renommage de la copie si la variable Modif > 0 ou suppression de la copie de l'onglet 1 si la variable Modif =0.
J'espére avoir été assez clair dans mon explication.
Merci de votre aide.

salut,
dans un MODULE
tu déclares

Code:

PUBLIC Modif

si tu as déclaré Modif ailleurs (dim Modif ) il faut supprimer cette déclaration

Bonjour,

Aprés lecture de tous les tutos que j'ai sur la portée des variables, j'en avait conclu que ça devrait marcher avec

Code:

Public Modif

comme tu me l'indiques.
Mais malheureusement ça ne marche pas.
J'ai confirmé en mettant des

Code:

MsgBox (Modif)

un peu partout.
J'ai volontairement désactivé les fonctions de désactivation de l'écran et d'alertes pour le débuguage
Voila ce que j'ai comme code dans mon classeur:
Worbook:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Public Modif As Integer
Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox (Modif)
'Action avant fermeture
MsgBox ("Before close" & Modif)
'Vérification si modification du fichier
If Modif > 0 Then
    'Désactive les messages d'avertissement et l'écran
    'Application.DisplayAlerts = False
    'ScreenUpdate = False
    'Duplication "Old data
    Sheets("Old data").Select
    Sheets("Old data").Copy After:=Sheets(5)
    'Suppression "Very old data"
    Sheets("Very old data").Delete
    'Renomme "Old data (2) en "Very old data"
    Sheets("Old data (2)").Select
    Sheets("Old data (2)").Name = "Very old data"
    'Copie "Training_data_base" en feuille 4, supprime "Old data" et renomme "Training_data_base (2)" en "Old data"
    'Suppression "Very old data
    Sheets("Old data").Select
    Sheets("Old data").Delete
    'Renomme "Training data base(2) en "Old data"
    Sheets("Training_data_base (2)").Select
    Sheets("Training_data_base (2)").Name = "Old data"
    Sheets("Training_data_base").Select
Else
    Sheets("Training_data_base (2)").Select
    Sheets("Training_data_base (2)").Delete
'Réactive les messages d'avertissement et l'écran
Application.DisplayAlerts = True
ScreenUpdate = True
End If
End Sub
 
Private Sub Workbook_Open()
'Action à l'ouverture
MsgBox "Modif = " & Modif & Chr(13) & "Ne pas supprimer de ligne sur la feuille Training_Data_base." & Chr(13) & "Si besoin, vider les cellules." & Chr(13) & "Insérer des lignes en bas de chaque << Class >> pour un nouveau training dans cette << Class >>." & Chr(13) & "Mise à jour manuelle des autres feuilles par JPB"
'Désactive les messages d'avertissement et l'écran
    'Application.DisplayAlerts = False
    'ScreenUpdate = False
'Duplication de Training Data Base
Sheets("Training_data_base").Select
Sheets("Training_data_base").Copy After:=Sheets(4)
Sheets("Training_data_base").Select
'Réactive les messages d'avertissement et l'écran
Application.DisplayAlerts = True
ScreenUpdate = True
End Sub

Sur l'onglet à surveiller:

Code:

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox (Modif)
'Action si modification
Modif = Modif + 1
MsgBox (Modif)
End Sub

Merci de ton aide

dans un MODULE

Bonjour,

Oupssss!
Un module n'est pas une partie de code d'un objet!
Je suis un boulet! :calim2:
Je viens de rajouter un module avec l'instruction et bien évidemment ça marche.

Merci beaucoup.