Discussion :

[octane]

Bonjour,
J'ai un probleme pour utiliser dans un inputform une variable appelée dans une macro.
La valeur que j'ai donnée à la variable annee, mois et Gas n'est pas reconnu dans ma macro .

Le code de la marco appelant l'inputform est :

Code :

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

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
 
Sub Majlivraison()
 
    Dim mois As Single
    Dim annee As Single
    Dim Gas As String
    Dim icol As Integer 'Compteur de ligne
 
    Dim LastLig As Long
    Dim LastLig2 As Long
    Dim LastLig3 As Long
 
    Dim sh As Worksheet
    Dim sh2 As Worksheet
 UserForm1.Show
 
   Set sh = Worksheets("Base")
   Set sh2 = Worksheets("2011 livraison")
   LastLig = Worksheets("2011 livraison").Cells(Worksheets("2011 livraison").Rows.Count, "A").End(xlUp).Row
   icol = 2
 
MsgBox "valeur M " & mois & " et A " & annee & " et icol" & icol, vbOKOnly + vbInformation
'je coupe sinon c'est trop long je passe directment a la fin du code
 
Unload UserForm1
End Sub

Voici le code de l'inputform (inputform1)

Code :

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

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
 
Private Sub ComboBox1_Change()
ComboBox1.ColumnCount = 1
  ComboBox1.List() = Array("Oui", "Non")
  Gas = ComboBox1
End Sub
 
Private Sub CommandButton2_Click()
MsgBox "valeur M " & mois & " et A " & annee
UserForm1.Hide
End Sub
 
 
Private Sub TextBox1_Change()
mois = TextBox1.Value
End Sub
 
Private Sub TextBox2_Change()
annee = TextBox2.Value
End Sub
 
Private Sub UserForm_Initialize()
TextBox1 = Month(Now) - 1
TextBox2 = Year(Now)
ComboBox1 = "Non"
mois = TextBox1.Value
annee = TextBox2.Value
End Sub

J'ai fait avec des Msgbox mais les valeurs des variables annee et mois sont vide que ce soit dans le userform ou dans la macro....
Please help.

[Jean-Pierre49]

Bonjour

as tu essayé

en tête de module

Code :

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

1
2
3
Option Explicit
    Public mois As Single
    Public annee As Single

cordialement

[octane]

oui cela ne change rien. c ok dans l'inputform où j'ai ajouté un Msgbox pour controler la valeur de annee et mois, mais dans la macro la valeur est vide (egalement Msgbox), comme si la valeur entree en Txtbox n'etait pas reconnue

[gFZT82]

Bonjour,

J’ai testé ton code et je n’ai pas rencontré de problème.
J’ai placé la procédure Majlivraison dans un module standard avec les 4 variables Public.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
Public mois As Single
Public annee As Single
Public icol As Integer
Public Gas As String
Sub Majlivraison()
Dim LastLig As Long
Dim LastLig2 As Long
Dim LastLig3 As Long
Dim sh As Worksheet
Dim sh2 As Worksheet
    UserForm1.Show
    Set sh = Worksheets("Base")
    Set sh2 = Worksheets("2011 livraison")
    LastLig = Worksheets("2011 livraison").Cells(Worksheets("2011 livraison").Rows.Count, "A").End(xlUp).Row
    icol = 2
    MsgBox "Valeur M : " & mois & Chr(10) & "Valeur A : " & annee & Chr(10) & "Valeur icol : " & icol, vbOKOnly + vbInformation
    Unload UserForm1
End Sub

Pas de changement dans le code de l’userform.

Cordialement.

[octane]

Effectivement j'ai vu a quoi c etait du.
Je faisais un Unload UserForm1 avant d'utiliser les variables. Pour eviter ca je le hide et je le ferme qu'en fin de macro.
Merci pour ton aide