Sauvegarder une variable entre deux procédures

Version imprimable

Bonsoir,

J'ai un soucis de variable ...
En effet mon code est sencé sauvegarder la variable Nom de format "dd,mm,yyyy" et la réutiliser dans un autre Sub
Le problème est que cette variable est toujours "1899" et je ne sais pas pourquoi ...
Voici tout le code :

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
Private O As Worksheet 'déclare la variable O (Onglet)
Private LI As Integer 'déclare la variable LI (LIgne)
Private CTRL As Control 'déclare la variable CTRL (ConTRôLe)
 
 
 
 
 
 
Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
 
 
Set O = Sheets("RECAPITULATIF") 'définit l'ontglet O
If Nouveau = True Then 'condition : si la variable nouveau est [Vrai]
    Me.Caption = "SAISIE DES INTERVENTIONS" 'définit le titre de la boîter de dialogue
    LI = O.Cells(Application.Rows.Count, 1).End(xlUp).Row + 1 'définit la ligne LI
    TextBox15.Value = WorksheetFunction.Max(O.Columns(2)) + 1 'incrémente le numnéro de l'intervention
 
Else 'sinon
    Me.Caption = "MODIFIER" 'définit le titre de la boîter de dialogue
    LI = ActiveCell.Row 'définit la ligne LI
    TextBox15.Value = O.Cells(LI, 2).Value 'récupèr ele numéro d'intervention
    TextBox5.Value = O.Cells(LI, 4).Value
    TextBox1.Value = O.Cells(LI, 5).Value
    TextBox7.Value = O.Cells(LI, 7).Value
    TextBox2.Value = O.Cells(LI, 8).Value
    TextBox11.Value = O.Cells(LI, 13).Value
TextBox17.Value = O.Cells(LI, 19).Value
 
TextBox4 = Format(O.Cells(LI, 10), "dd/mm/yyyy")
 
 
    TextBox3.Value = O.Cells(LI, 9).Value
    TextBox13.Value = O.Cells(LI, 16).Value
    TextBox12.Value = O.Cells(LI, 15).Value
    TextBox14.Value = O.Cells(LI, 17).Value
    TextBox16.Value = O.Cells(LI, 18).Value
    ComboBox2.Value = O.Cells(LI, 3).Value
    ComboBox6.Value = O.Cells(LI, 6).Value
    ComboBox3.Value = O.Cells(LI, 14).Value
    ComboBox5.Value = O.Cells(LI, 12).Value
    ComboBox4.Value = O.Cells(LI, 11).Value
    ComboBox3.Value = O.Cells(LI, 14).Value
 
 
    Nom = Format(O.Cells(LI, 10), "dd/mm/yyyy")
 
     End If
 
 
 
End Sub
 
Private Sub CommandButton1_Click() 'bouton "VALIDATION"
Dim Nom As Integer
 
For Each CTRL In Me.Controls 'boucle sur tous les contrôles de l'userForm
    'si la propriété [Tag] du contrôle n'est pas vide, renvoie la valeur du contrôle CTRL
    'dans la cellule ligne LI colonne [Tag] (converti en entier) du contrôle, de l'onglet O
    If CTRL.Tag <> "" Then O.Cells(LI, CInt(CTRL.Tag)).Value = CTRL.Value
Next CTRL 'prochain contrôle de la boucle
Sheets("RECAPITULATIF").Select
    Range("A1").Select
 
 
       Dim Ladate As String
        Dim FSO As Object, sNomDossier As String
 
 
          Noma = Format(Nom, "yyyy")
         Range("F488").Value = Noma
 
 
    LeParcours = TextBox15.Value
    Ladate = Format(TextBox4, "yyyy")
      If TextBox4.Value = "" Then
    Ladate = Year(Date)
End If
    sNomDossier = "HYD" & LeParcours
    Set FSO = CreateObject("Scripting.FileSystemObject")
    sChemin = "C:\Users\nathan\Dropbox\HYD" & Noma & "\" & sNomDossier & "/"
    sChemin1 = "C:\Users\nathan\Dropbox\HYD" & Ladate & "\" & sNomDossier & "/"
    If TextBox4.Value = Noma Then Unload Me
 
    FSO.CreateFolder (sChemin1)
 
If FSO.FolderExists(sChemin) Then FSO.CopyFolder (sChemin), (sChemin1)
 
        If FSO.FolderExists(sChemin) Then FSO.DeleteFolder (sChemin)
 
 
 
 
 
     Set FSO = Nothing
 
 
 
 
Range("B65536").End(xlUp).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "C:\Users\nathan\Dropbox\HYD" & Ladate & "\" & sNomDossier & "/"
TextToDisplay = "sNomDossier"
Range("B65536").End(xlUp).Font.Name = "Verdana"
 
 
Unload Me 'vide et ferme l'UserForm
If Not IsDate(TextBox4) Then
        MsgBox "Date non-présente ou incorrecte"
        TextBox4 = ""
  End If
 
 
End Sub

J’espère que quelqu'un pourra trouver le problème
Merci à vous

30/12/2015, 23h21
clementmarcotte

Bonjour,

Citation:

Le problème est que cette variable est toujours "1899"

C'est parce que ta date n'est pas reconnue comme une date.
30/12/2015, 23h29
Patouillou

Et comment puis-je faire pour la transformer en date ?
31/12/2015, 01h37
Invité

Bonsoir,
Comme la dit clementmarcotte, nom n'est pas une date mais un intégrer basé sur l'année.

Mais attendons quelques jours et le nombre devrait changer, pour un an du moins!

En revanche si tu déclares nom en dates et en tête de module te pas dans tes sub tout devrait rentre dans l'ordre.
31/12/2015, 11h04
aziz1015

Bonjour,

Je ne te suis pas vraiment,

Citation:

une Variable déclarée à l'intérieur d'une macro ne sera utilisable qu'à l'intérieur de celle-ci.

En gros, dans la procédure suivante,

Citation:

CommandButton1_Click()

Code:

Dim Nom As Integer

ta variable Nom est différente de la variable Nom de la première procédure, il faudrait donc que la déclares en tête de module comme tu l'as fait pour les variables O, LI ...

Cordialement

Bonjour , j'ai bien déclaré Nom en date en haut du module , mais impossible d'ouvrir l'userform ( incompatibilité de type ) ...
Voici le code :

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
Dim Nom As Date
Private O As Worksheet 'déclare la variable O (Onglet)
Private LI As Integer 'déclare la variable LI (LIgne)
Private CTRL As Control 'déclare la variable CTRL (ConTRôLe)
 
 
 
 
 
 
 
Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
 
Set O = Sheets("RECAPITULATIF") 'définit l'ontglet O
If Nouveau = True Then 'condition : si la variable nouveau est [Vrai]
    Me.Caption = "SAISIE DES INTERVENTIONS" 'définit le titre de la boîter de dialogue
    LI = O.Cells(Application.Rows.Count, 1).End(xlUp).Row + 1 'définit la ligne LI
    TextBox15.Value = WorksheetFunction.Max(O.Columns(2)) + 1 'incrémente le numnéro de l'intervention
 
Else 'sinon
    Me.Caption = "MODIFIER" 'définit le titre de la boîter de dialogue
    LI = ActiveCell.Row 'définit la ligne LI
    TextBox15.Value = O.Cells(LI, 2).Value 'récupèr ele numéro d'intervention
    TextBox5.Value = O.Cells(LI, 4).Value
    TextBox1.Value = O.Cells(LI, 5).Value
    TextBox7.Value = O.Cells(LI, 7).Value
    TextBox2.Value = O.Cells(LI, 8).Value
    TextBox11.Value = O.Cells(LI, 13).Value
TextBox17.Value = O.Cells(LI, 19).Value
 
 TextBox4 = Format(O.Cells(LI, 10), "dd/mm/yyyy")
 
 
    TextBox3.Value = O.Cells(LI, 9).Value
    TextBox13.Value = O.Cells(LI, 16).Value
    TextBox12.Value = O.Cells(LI, 15).Value
    TextBox14.Value = O.Cells(LI, 17).Value
    TextBox16.Value = O.Cells(LI, 18).Value
    ComboBox2.Value = O.Cells(LI, 3).Value
    ComboBox6.Value = O.Cells(LI, 6).Value
    ComboBox3.Value = O.Cells(LI, 14).Value
    ComboBox5.Value = O.Cells(LI, 12).Value
    ComboBox4.Value = O.Cells(LI, 11).Value
    ComboBox3.Value = O.Cells(LI, 14).Value
    Nom = Format(O.Cells(LI, 10), "yyyy")
 
 
     End If
 
Nouveau = False
ComboBox2.List() = Array("", "CAEN", "ANGERS", "LE MANS", "TOURS", "POITIERS", "NANTES", "RENNES", "BREST", "BORDEAUX")
ComboBox3.List() = Array("", "DIAGNOSTIC", "MISE EN SERVICE", "VISITE", "SERVICE 0")
ComboBox4.List() = Array("", "TERMINE", "EN COURS")
ComboBox5.List() = Array("", "ANNULE", "FABRICANT", "OK")
ComboBox6.List() = Array("", "SALMSON", "GRUNDFOS", "PNEUMATEX", "WILO", "XYLEM", "AUTRE")
 
End Sub
 
Private Sub CommandButton1_Click() 'bouton "VALIDATION"
 
For Each CTRL In Me.Controls 'boucle sur tous les contrôles de l'userForm
    'si la propriété [Tag] du contrôle n'est pas vide, renvoie la valeur du contrôle CTRL
    'dans la cellule ligne LI colonne [Tag] (converti en entier) du contrôle, de l'onglet O
    If CTRL.Tag <> "" Then O.Cells(LI, CInt(CTRL.Tag)).Value = CTRL.Value
Next CTRL 'prochain contrôle de la boucle
Sheets("RECAPITULATIF").Select
    Range("A1").Select
 
 
       Dim Ladate As String
        Dim FSO As Object, sNomDossier As String
 
 
          Noma = Format(Nom, "yyyy")
         Range("F488").Value = Noma
 
 
    LeParcours = TextBox15.Value
    Ladate = Format(TextBox4, "yyyy")
      If TextBox4.Value = "" Then
    Ladate = Year(Date)
End If
    sNomDossier = "HYD" & LeParcours
    Set FSO = CreateObject("Scripting.FileSystemObject")
    sChemin = "C:\Users\nathan\Dropbox\HYD" & Noma & "\" & sNomDossier & "/"
    sChemin1 = "C:\Users\nathan\Dropbox\HYD" & Ladate & "\" & sNomDossier & "/"
    If TextBox4.Value = Noma Then Unload Me
 
    FSO.CreateFolder (sChemin1)
 
If FSO.FolderExists(sChemin) Then FSO.CopyFolder (sChemin), (sChemin1)
 
        If FSO.FolderExists(sChemin) Then FSO.DeleteFolder (sChemin)
 
 
 
 
 
     Set FSO = Nothing
 
 
 
 
Range("B65536").End(xlUp).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "C:\Users\nathan\Dropbox\HYD" & Ladate & "\" & sNomDossier & "/"
TextToDisplay = "sNomDossier"
Range("B65536").End(xlUp).Font.Name = "Verdana"
 
 
Unload Me 'vide et ferme l'UserForm
If Not IsDate(TextBox4) Then
        MsgBox "Date non-présente ou incorrecte"
        TextBox4 = ""
  End If
 
 
 
End Sub

Cordialement ,

31/12/2015, 19h45
Invité

Je ne comprends pas ce que tu cherche, tu veux une date ou un integer?
Ça

Code:

Nom = Format(O.Cells(LI, 10), "yyyy")

ca ne retourne pas une date!
01/01/2016, 14h32
Patouillou

En fait ici , je veux récupérer la date qui se trouve dans la colonne 10 de la ligne sélectionné
01/01/2016, 19h17
clementmarcotte

Bonjour,

Ta date, dans ta feuille est-elle en vrai format de date ou en texte déguisé en date ?

Quoi qu'il en soit, autant en Excel qu'en VBA, une date c'est un nombre. Arrête de vouloir absolument utiliser des dates en texte ou en format texte pour tester tes conditions, et cela devrait aller mieux.
01/01/2016, 21h37
Invité

Citation:

Envoyé par Patouillou

En fait ici , je veux récupérer la date qui se trouve dans la colonne 10 de la ligne sélectionné

Oui mais tu ne récupères que l'année c'est un integer pas un date!
03/01/2016, 12h06
Theze
Bonjour,

Une variable Integer utilisée pour une date ne permet pas de dépasser le 16/09/1989 (32767), il te faut la déclarer en Long.
Code:

1 2 3 4 5 6 Sub Test() Dim Nom As Integer Nom = 32767 'max pour un Integer MsgBox Format(Nom, "dd/mm/yyyy") End Sub
D'autre part, je te conseille de rendre obligatoire la déclaration des variables ("Outils"-->"Options..."-->onglet "Editeur"--> cocher "Déclaration des variables obligatoire").
Une date est en fait un Long dont le premier jour est le 01/01/1900 et aujourd'hui, la valeur est de 42372. Si tes dates en colonne J sont valides et pour le test, il y en a une en J2, ceci devrait te retourner un Long :
Code:

1 2 3 4 5 6 7 Sub Test() 'date valide en J2 MsgBox Range("J2").Value2 End Sub
Si ce n'est pas une date valide, la valeur retournée sera celle inscrite dans la cellule. Exemple, si la valeur de la cellule est 03/01/2016 le message affichera 42372 par contre si la date est 03_01_2016 le message affichera 03_01_2016 ! Donc, format de date pas valide.
04/01/2016, 07h47
Invité

Bonjour,
Le problème est tout autant le choix du type de variable que le raisonnement.

Il ne s'intéresse qu'à l'année, soit il place l'année dans une date et il y a erreur, soit il place dans un integer et il retourne en 1899, c'est retour vers le futur la voiture en moins!

C'est au niveau du raisonnement qu'il faut intervenir le reste suivra!