Bonjour,
Je cherche désespérément comment garder la valeur d'une variable entre deux userform
Je me suis suis inspiré des précédentes discussion et je suis arrivé à cela (en simplifiant mon code)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Public NumG As Integer Private Sub btnok_Click() NumG = Range("D" & Rows.Count).End(xlUp).Row + 1 MsgBox (NumG) UserForm1.Show End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Private Sub UserForm_Initialize() Dim x As Integer NumL = Range("D" & Rows.Count).End(xlUp).Row MsgBox ("numG" & NumG) MsgBox ("numl" & NumL) MsgBox ("x" & x) For x = NumG To NumL Next x End Sub
Code 1 LIgne 8 : Msgbox = 46
Code 2 Ligne 6 : Msgbox = ""
Quelqu'un voit-il où est mon erreur ??
En vous remerciant
Bon week end
Partager