Allergique
XLDnaute Junior
Bonjour,
Après des heures à essayer de résoudre mon problème, je fais appel à votre savoir!
Dans un Userform j'ajoute un combobox en automatique avec le code suivant:
j'ajoute le code de la fonction _Change
Le problème est que la fonction _Change du combobox14 ne fonctionne pas, bien que le code se rattachant au combobox apparaisse dans l'userform.
J'ai mis le fichier en pièce jointe pour être plus concret
Merci à ceux qui sauront m'aider à résoudre ce problème!
Après des heures à essayer de résoudre mon problème, je fais appel à votre savoir!
Dans un Userform j'ajoute un combobox en automatique avec le code suivant:
Code:
Set Ctrl = Frame2.Controls.Add("forms.combobox.1")
j'ajoute le code de la fonction _Change
Code:
With Ctrl
'gestion combobox
If i = 14 Then 'En cours/terminée
.Name = "combobox" & i
.Value = UserForm1("Label" & i).Caption
.AddItem "En cours"
.AddItem "Terminée"
.Height = "16"
.Width = UserForm1("label" & i).Width
.Left = UserForm1("label" & i).Left
.Top = UserForm1("label" & i).Top - 3
[color=green]
'------------------------
'Test de code combobox
'------------------------
Code = "Private Sub Combobox14_Change()" & vbCrLf
Code = Code & "msgbox(""TEST"")" & vbCrLf
Code = Code & "End Sub"
Set usf = ThisWorkbook.VBProject.vbcomponents("userform1")
With usf.codemodule
NextLine = .CountOfLines + 1
.InsertLines NextLine, Code
End With
'-------------------------
'-------------------------
[/color]
(...)
end if
End With
Le problème est que la fonction _Change du combobox14 ne fonctionne pas, bien que le code se rattachant au combobox apparaisse dans l'userform.
J'ai mis le fichier en pièce jointe pour être plus concret
Merci à ceux qui sauront m'aider à résoudre ce problème!