Discussion :

[pologo]

Bonjour le forum,

Je me casse les dents depuis un bon moment maintenant et impossible de comprendre ce qui bug.

Le problème intervient lorsque je clique sur mon bouton de commande

Code :

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

1
2
3
4
5
6
7
8
 
 
Private Sub CommandButton1_Click()
 
UserForm2.Show
 
 
End Sub

Il m'affiche alors le doux message suivant :

Erreur 381 : impossible de définir la propriété List. Index de table de propriété non valide

Il me surligne alors Userform2.show

Voici le code de mon userform2 :

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
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
 
 
 
Private Sub CommandButton1_Click()
Dim Ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer
 
 
 
With Worksheets("feuil2")
derligne = .Range("H65536").End(xlUp).Row + 1
 
 
For Each Ctrl In UserForm2.Controls
 
r = Val(Ctrl.Tag)
 
If r > 0 Then Feuil2.Cells(derligne, r) = Ctrl
 
 
 
Next
End With
 
t = Val(ComboBox2)
 
If t >= 1 Then UserForm1.Show
 
 
TextBox1 = ""
 
End
 
 
End Sub
 
Private Sub CommandButton2_Click()
 
 
End Sub
 
 
 
Private Sub UserForm_Initialize()
 
 
Dim Tablo2, derligne2 As Integer
Dim Tablo3, derligne3 As Integer
 
 
With Feuil3
 
 
derligne2 = .Range("H65536").End(xlUp).Row
Tablo2 = .Range("H2:H" & derligne2)
ComboBox1.List = Tablo2
 
derligne3 = .Range("I65536").End(xlUp).Row
Tablo3 = .Range("I2:I" & derligne3)
ComboBox2.List = Tablo3
 
End With
 
 
End Sub

Je transmets le fichier si d'aventure quelqu'un voulait se pencher sur mon cas. Le plus frustrant c'est que tout fonctionnait à la perfection avant cet incident

Pièce jointe 143357

Merci

[Marc-L]

Bonjour,

pour du code cela doit se passer dans le forum dédié Macros et VBA Excel, plus de chance d'y obtenir une réponse !

Sinon afin de trouver la ligne déclenchant l'erreur, suivre le code en mode pas à pas via la touche F8 …