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