Salut forum,

J'ai une feuille de calcul qui contient 100 combo box.
Comment faut-il s'y prendre pour les remplir?
J'arrive à adresser les shapes je ne sais pas comment adresser les objets pour utiliser leurs méthodes.
Dans le code ci-dessous, je peux rendre visible ou invisible les combo box mais dès que j'essaye d'utiliser clear ou additem j'ai biensûr une erreur d'exécution 438: Propriété ou méthode non gérée par cet objet.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Row = 1 Then
        If Sheets("Colonnes").Cells(Target.Row, Target.Column).Value = "" Then
            Sheets("Colonnes").Shapes("CBFormat" & Target.Column - 1).Visible = False
        Else
            Sheets("Colonnes").Shapes("CBFormat" & Target.Column - 1).Visible = True
        End If
    End If
 
End Sub
Merci d'avance,
Jean