Recuperer valeur Userform entre 2 codes

Version imprimable

Bonjour,
J'ai un code qui crée édite un userform puis l'ouvre:

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
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
.
.
.
 
 
Dim MaListe As Control, X As Integer, n As Integer
 
    Set MaListe = UserForm1.Controls.Add("Forms.ListBox.1")
    With MaListe
 
    For n = 1 To Worksheets("DONNEES").Range("X150000").End(xlUp).Row
 
        .AddItem (Worksheets("DONNEES").Range("X" & n).Value)            
 
 
        .Height = 450
        .Width = 150
 
        .MultiSelect = 1
        .Visible = True
 
 
 
    Next n
 
    End With
 
 
 
     UserForm1.Show
 
.
.
.

Dans le userform, je cherche à récupérer ces donnée:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub CommandButton1_Click()
Dim w As Integer
For w = 1 To Me.Controls("MaListe").ListCount
 
Worksheets("DONNEES").Cells(w + 2, 26).Value = Me.Controls("MaListe").List(w)
 
 
 
Next w
 
.
.
.

Mais ça bloque: Erreur d'exécution '-2147024809 (80070057)': Oblet spécifié introuvable sur la ligne:

Code:

Worksheets("DONNEES").Cells(w + 2, 26).Value = Me.Controls("MaListe").List(w)

Je remercie beaucoup ceux qui pourront m'apporter une aide précieuse

08/02/2019, 10h27
Kestion100

Je pense que l'info ne passe pas entre les 2 codes???

J'ai essayé:

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
 
Private Sub UserForm1_Initialize()
Dim MaListe As Control, n As Integer
 
    Set MaListe = UserForm1.Controls.Add("Forms.ListBox.1")
    With MaListe
 
    For n = 1 To Worksheets("DONNEES").Range("X150000").End(xlUp).Row
 
        .AddItem (Worksheets("DONNEES").Range("X" & n).Value)
 
        .Height = 450
        .Width = 150
 
        .MultiSelect = 1
        .Visible = True
 
 
 
    Next n
 
End With
 
UserForm1.Show
End Sub

Code:

1
2
3
4
5
6
 
Private Sub Worksheet_Change(ByVal Target As Range)
.
.
.
Call UserForm1_Initialize

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub CommandButton1_Click()
Dim w As Integer
For w = 1 To Me.Controls("MaListe").ListCount
 
Worksheets("DONNEES").Cells(w + 2, 26).Value = Me.Controls("MaListe").List(w)
 
 
 
Next w
 
.
.
.

Idem

Avec:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub CommandButton1_Click() With UserForm1.ListBox1 Dim w As Integer For w = 1 To .ListCount Worksheets("DONNEES").Cells(w + 2, 26).Value = .List(w) Next w End With
L'erreur devient: Erreur de compilation: Membre de méthode ou de données introuvable sur

Code:

With UserForm1.ListBox1

08/02/2019, 13h10
Kestion100

En l'état il m'est totalement impossible de réutiliser une information définie au sein du même userform ?

Il m'est d'ailleurs invisible dans Visual Basic, je ne le vois que quand le code se déroule?????