Erreur 70 "Accés refusé"

Bonjour,
j'ai créé un userform contenant 2 listbox une qui gère les catégories et la deuxième qui gère les produits mais je souhaite que les produits affichés dans la liste appartiennent à la catégorie sélectionner dans la 1re listbox

je remplis la première listbox avec un rowsource

et la deuxième avec le code suivant :

Private Sub ListBoxCategorieVendreProduit_Change()
Dim cat As String
Dim i As Long
cat = ListBoxCategorieVendreProduit.value


For i = 2 To 5
If SheetProduit.Cells(i, 3) = cat Then
ListBoxCategorieVendreProduit.AddItem SheetProduit.Cells(i, 2).value
End If
Next i
End Sub

Et voila a quoi ressemble mon userform :

image

Merci par avance pour la réponse,

loic

Bonjour I0wwik et

Une petite présentation ICI serait la bienvenue

Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER]
qui vous aidera dans vos demandes et réponses sur ce forum

Ainsi que sur les fonctionnalités du nouveau forum

Merci de votre participation

Concernant votre demande, pour moi c'est que la ListBox à la propriété "RowSource" remplie et il ne faut pas

A+

Rechercher des sujets similaires à "erreur acces refuse"