Bonjour tout le monde,
Après de multiples recherches sur le net, je n'ai pas réussi à trouver réponse à mon problème.
En effet dans mon code VBA j'utilise une procédure qui permet de le simplifier "Enfin pas pour l'instant" !! J'ai "une erreur d'éxécution 424", qui me met qu'un "objet est requis ", ce code s'affiche sur la ligne "Liste = ....."
Je vous donne le debut du code qui plante :
Public Sub AjoutProuduit()
Dim objFeuille As Worksheet
Dim Liste As ListBox
Select Case frmdepense_categ.MultiPage1.SelectedItem.Caption
Case "Alimentation":
Set objFeuille = Application.ThisWorkbook.Worksheets.Item("Alimentation")
Set Liste = frmdepense_categ.MultiPage1.pgAlimentation.lstAlimentation.List
Case "Boisson":
Set objFeuille = Application.ThisWorkbook.Worksheets.Item("Boisson")
Set Liste = frmdepense_categ.MultiPage1.pgAlimentation.lstBoisson
Merci beaucoup de me donner un coup de pouce ...
Cordialement
2berte
Vincent
