Bonjour à tous,
Je suis nouveau sur le forum. Je vous souhaite déjà à tous une bonne année et tous mes meilleurs voeux.
Je vous explique mon souci :
Lorsque j'exécute mon code, le message suivant apparait : erreur de compilation membre de méthode ou de données introuvables. Il me surligne en jaune "Private Sub UserForm_Initialize()" et en bleu ".cbocat". Cbocat est une de mes combobox, dont je suis allé vérifier le nom 36 fois. Je ne comprends pas vraiment l'erreur du code en sachant qu'il sert à avoir une liste déroulante dépendante.
Voici mon code :
Private Sub UserForm_Initialize()
Colonne = 5
Sheets("Centre de Pilotage").Range ("E3:K3")
Do While Cells(3, Colonne).Value <> ""
ModuleDépenses.cbocat.AddItem Cells(3, Colonne).Value
Colonne = Colonne + 1
Loop
End Sub
Private Sub cbocat_change()
i = 5
ModuleDépenses.cbosouscat.Clear
Sheets("Centre de Pilotage").Range ("E4:K13")
Do While Cells(3, i).Value <> ""
If Cells(3, i).Value = cbocat.Value Then
Cells(3, i).Select
Colonne = Active.Cell.Column
End If
i = i + 1
j = 4
Do While Cells(j, Colonne).Value <> ""
ModuleDépenses.cbosouscat.AddItem Cells(j, Colonne)
j = j + 1
Loop
cbosouscat.ListIndex = 0
End Sub
Je vous remercie. Si vous voulez des informations supplémentaires, n'hésitez pas, je répondrai certainement très rapidement.
Je vous souhaite une agréable journée,