BONJOUR ,
j'ai un petit souci lorsque je souhaite initialiser mes combobox ......
mon userform ce nomme : grille
erreur d' execution -2147024809( 80070057)
objet specifique introuvable
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Sub InitCombo(NoLigne, NoColonne) Dim NomCombo As String Dim Plage As String Sheets("bd").Activate Plage = Range(Cells(3, NoColonne), Cells(NoLigne, NoColonne)).Address NomCombo = "COMBOBOX" & NoColonne With grille.Controls(NomCombo)bugage a ce niveau .Text = Cells(3, NoColonne) .RowSource = Plage End With End Sub
Partager