Erreur "Permission réfusée" 70 VBA

ReBonjour a tous,

Je construit actuellement une base données client... Pour faire le suivi, le mail de ma petite entreprise.

Je rencontre cette encore une erreur la "Permission Réfusée 70".

Je vous explique.

J'ai deux Listbox (Listbox1 : les entreprises et Listbox2 : les contacts associé à chaque entreprise) un clique sur Listbox1 me donne automatiquement les contactes associés dans Listbox2 (Userform " Client_Salim").

Je peux également filtrer mes listbox avec un combox et le bouton "afficher". (c'est la que commence mes blèmes)

Quand je filtre sur un élément (Par ex "Entreprise" ) le resultat s'affiche correctement.

Ce que je voudrais faire ces lorsque je fini de filtrer j'ai un bouton qui me permette de réinitialiser la listbox concernée. J'ai essayer (Call Userform_Iniatialize) et c'est qu'il me déclare l'erreur dans ce qui me permettais au lancement de l'application d'alimenter les listsbox.

Merci pour votre aide

21base05-0-2-envoi.xlsm (261.19 Ko)

Bonjour,

Plusieurs choses sur ton classeur

Faire un Userform par utilisateur est une aberration

Voilà pourquoi tu as une erreur 70

With Sheets("Client_Anas")
 Me.ListBox1.List = .Range("A1:K" & .[A65000].End(xlUp).Row).Value
End With
With Sheets("Contact_Client_Anas")
 Me.ListBox2.List = .Range("A1:K" & .[A65000].End(xlUp).Row).Value
End With

Si tu veux pouvoir filtrer une Listbox en fonction d'une autre il faut l'alimenter ligne par ligne

A+

Merci pour ta réponse...

Qu'est ce que tu me propose d'autre pour un Userform par personne

Rechercher des sujets similaires à "erreur permission refusee vba"