1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

XL 2013 Erreur "Permission réfusée" 70 VBA

Discussion dans 'Forum Excel' démarrée par Samson491, 17 Février 2017.

  1. Samson491

    Samson491 XLDnaute Nouveau

    Inscrit depuis le :
    17 Février 2017
    Messages :
    4
    "J'aime" reçus :
    2
    Sexe :
    Masculin
    Bonjour a tous,

    je suis nouveau sur le forum et dans le développement VBA.

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

    Je rencontre cette 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
     

    Pièces jointes:

  2. Lone-wolf

    Lone-wolf XLDnaute Barbatruc

    Inscrit depuis le :
    25 Mars 2010
    Messages :
    5159
    "J'aime" reçus :
    351
    Sexe :
    Masculin
    Travail/Loisirs :
    SE/Programmation (VBA Excel)
    Habite à:
    Ouest-Suisse
    Page d'accueil :
    Utilise:
    Excel 2013 (PC)
    Bonjour Samson

    Apparement l'erreur est dans tous les filtres avancés

    Feuil7.Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
    Feuil7.Range("N1:N2"), CopyToRange:=Feuil7.Range("P1:Y1"), Unique:=False

    Les Listbox et combobox doivent être initialisée dans userform_initialize et mettre Listbox1.Clear. Un exemple parmi d'autres

    Code (Visual Basic):

    Dim n As Byte, k As Byte, x As Byte, lig As Long, L As Long

    Private Sub ComboBox1_Change()
      If ComboBox1 <> "" Then ListBox1.Clear
    End Sub

    Private Sub CommandButton1_Click()
      Dim R As Range, ColDate

    If ComboBox1 <> "" Then
      For Each R In [Tb]
        If R Like ComboBox1 & "*" And R.Row <> L Then
          L = R.Row - 1
          ListBox1.AddItem [Tb].Item(L, 1)
          For k = 2 To n
            ListBox1.List(ListBox1.ListCount - 1, k - 1) = [Tb].Item(L, k)
            ColDate = ListBox1.List(ListBox1.ListCount - 1, k - 1)
            ListBox1.List(ListBox1.ListCount - 1, k - 1) = Format(ColDate, "dd.mm.yyyy")
          Next
        End If
      Next
      Else
        ListBox1.Clear
    End If
    End Sub

    Private Sub UserForm_Activate()
      ComboBox1 = ""
      ListBox1.Clear
    End Sub

    Private Sub UserForm_Initialize()
    Dim ColDate

    n = [Tb].Columns.Count
      ListBox1.ColumnCount = [Tb].Columns.Count
      ListBox1.ColumnWidths = "50;90;80;70;70;70;60"
      For k = 1 To n
        Me("Label" & k) = [Tb].Item(0, k)
        Me("Label" & k).Top = Me("Label" & k).Top + 5
      Next
        ListBox1.Clear

    With Sheets("Factures")
    lig = .Range("a65536").End(xlUp).Row

    For i = 2 To .Range("b65536").End(xlUp).Row
            ComboBox1 = .Range("b" & i)
            If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem .Range("b" & i)
        Next i

    For x = 2 To lig
    ListBox1.AddItem .Range("a" & x)
            For j = 2 To 7
            ListBox1.List(ListBox1.ListCount - 1, j - 1) = .Cells(x, j)
            ColDate = ListBox1.List(ListBox1.ListCount - 1, j - 1)
            If IsDate(ColDate) Then _
            ListBox1.List(ListBox1.ListCount - 1, j - 1) = Format(ColDate, "dd.mm.yyyy")
            Next j
        Next x
    End With
    End Sub
     
     
  3. BrunoM45

    BrunoM45 XLDnaute Barbatruc

    Inscrit depuis le :
    22 Avril 2005
    Messages :
    8769
    "J'aime" reçus :
    325
    Sexe :
    Masculin
    Habite à:
    MONTARGIS (la Venise du Gâtinais)
    Utilise:
    Excel 2010 (PC)
  4. Samson491

    Samson491 XLDnaute Nouveau

    Inscrit depuis le :
    17 Février 2017
    Messages :
    4
    "J'aime" reçus :
    2
    Sexe :
    Masculin
    Merci Lone-Wolf,

    Je vais essayer de nettoyer tous ça.

    BrunoM45 Y'a t-il un mal à rechercher des solutions a un blème sur un plusieurs forum ?
     
    Roland_M aime votre message.
  5. Roland_M

    Roland_M XLDnaute Barbatruc

    Inscrit depuis le :
    26 Avril 2007
    Messages :
    3869
    "J'aime" reçus :
    245
    Utilise:
    Excel 2007 (PC)
    Bonsoir tout le monde,

    Salut à toi BrunoM45 !
    excuses moi, mais c'est vrai, Samson n'a pas tort, qui a t'il de mal à chercher de l'aide sur d'autres forums sur lesquels on est inscrit ?
    je comprends pas bien !? perso si j'étais inscrit sur un autre forum je ferai de même !
    où est le problème, ce n'est pas de la trahison non plus !?
     
    Dernière édition: 23 Février 2017
    Samson491 aime votre message.
  6. JCGL

    JCGL XLDnaute Barbatruc

    Inscrit depuis le :
    5 Novembre 2005
    Messages :
    16637
    "J'aime" reçus :
    924
    Sexe :
    Masculin
    Habite à:
    Chamrousse
    Utilise:
    Excel 2016 (PC)
    Bonjour à tous,
    Salut Nono,
    Salut Roland,

    Il n'y rien de "répréhensible" en soi mais juste le fait que sur un des Forum, on cherche et que, peut-être, une solution a été donné sur l'autre Forum.
    Ceci dit je ne suis pas contre "l'envoi d'un message simultanément à plusieurs forums" mais il est souhaitable que le demandeur le précise.

    Bises à mon Nono et Fanny.
    A+ à tous
     
    Samson491 et Roland_M aiment cela.
  7. BrunoM45

    BrunoM45 XLDnaute Barbatruc

    Inscrit depuis le :
    22 Avril 2005
    Messages :
    8769
    "J'aime" reçus :
    325
    Sexe :
    Masculin
    Habite à:
    MONTARGIS (la Venise du Gâtinais)
    Utilise:
    Excel 2010 (PC)
    Salut Roland_M

    Ce n'est pas un problème de "trahison"... Pourquoi utiliser ce mot d'ailleurs !?
    C'est juste que certains "perdent" leur temps à trouver une solution sur un forum, alors qu'elle peut être donné sur un autre
    Et tu devrais voir un peu d'autres forums, le crossposting n'est jamais très apprécié.
    je sais qu'ici on laisse tout faire, c'est bien pour ça que je ne viens plus :cool:
     
    Dernière édition: 18 Février 2017
  8. BrunoM45

    BrunoM45 XLDnaute Barbatruc

    Inscrit depuis le :
    22 Avril 2005
    Messages :
    8769
    "J'aime" reçus :
    325
    Sexe :
    Masculin
    Habite à:
    MONTARGIS (la Venise du Gâtinais)
    Utilise:
    Excel 2010 (PC)
    Salut mon JP
    Je trouve que ce serait la moindre des choses o_O
    Merci ;) tu as un bisous de sa part
    Au plaisir
     
  9. Samson491

    Samson491 XLDnaute Nouveau

    Inscrit depuis le :
    17 Février 2017
    Messages :
    4
    "J'aime" reçus :
    2
    Sexe :
    Masculin
    Salut BrunoM45,

    Ce que tu dis n'est pas faux. Mais bon je voudrais simplement qu'on essaie d'être objectif.

    Merci
     
    BrunoM45 aime votre message.
  10. Si...

    Si... XLDnaute Barbatruc

    Inscrit depuis le :
    7 Octobre 2010
    Messages :
    2574
    "J'aime" reçus :
    387
    Bonjour

    Cela fait un moment que cela me démange d’intervenir, comme toi Roland_M :), sur ce sujet.

    « Il n'y rien de "répréhensible" en soi mais juste le fait que sur un des Forum, on cherche et que, peut-être, une solution a été donnée sur l'autre Forum. »

    « C'est juste que certains "perdent" leur temps à trouver une solution sur un forum, alors qu'elle peut être donnée sur un autre »

    Et alors :cool: ? Une nouvelle proposition peut s’avérer plus à la portée du demandeur, plus complète, plus générale, plus simple, plus … et moins …

    Quant à parler de perte de temps cela correspond à quoi sur un forum d’entraide :( ?

    Croyant trouver une réponse à la demande, le lecteur perdra plus de temps à lire ce genre de reproche qu’à prendre connaissance d’un début de proposition qui fait défaut.
    ______________________________________________________________________

    Pour en revenir à la demande*, je trouve qu’il y a beaucoup de maladresses, beaucoup de choses à revoir, de plus je n’aime pas me faire éjecter sans tambour ni trompette.
    Je ne sais si cela a été proposé ailleurs mais cela n’est guère sympa pour celui qui essaie d’intervenir.
    Il y a mieux à faire que de commencer par brider le projet.

    Voilà une proposition* qui permet de limiter le nombre de formulaires identiques pour des onglets de même organisation.

    *J’ai vu des ".RowSource" qui peuvent poser problème (titre de la demande).
    Je ne me suis occupé que de l’ouverture des formulaires et des 2 contrôles "Listbox" tant il est aléatoire de proposer des méthodes avec un fichier si peu avancé.
    Attention aux références qui pourraient bloquer ceux qui ne les ont pas (Outlook par exemple).

    Si ce que Lone-wolf a proposé convient ;), je ne dirais pas que j’ai pris du plaisir pour rien.
    Je suis quand même sûr de ne pas trouver ici où là les macros que j’ai écrites.
     

    Pièces jointes:

  11. JCGL

    JCGL XLDnaute Barbatruc

    Inscrit depuis le :
    5 Novembre 2005
    Messages :
    16637
    "J'aime" reçus :
    924
    Sexe :
    Masculin
    Habite à:
    Chamrousse
    Utilise:
    Excel 2016 (PC)
    Bonjour à tous,

    Si... : Deux conceptions d'un Forum d'Entraide qui, visiblement, se mettent en"opposition". Certainement une génération, ou deux, de différences.

    Je réitère, néanmoins, mon souhait que "l'envoi d'un message simultanément à plusieurs forums" soit exprimé par le demandeur.

    A+ à tous
     
    BrunoM45 aime votre message.
  12. Si...

    Si... XLDnaute Barbatruc

    Inscrit depuis le :
    7 Octobre 2010
    Messages :
    2574
    "J'aime" reçus :
    387
    Bonsoir JCGL,

    « Certainement une génération, ou deux, de différences. »
    Bien que je sois plus proche des 4x20 je suis totalement d’accord avec toi sur ce point.

    Pas pour Toi ;) :
    Il faut quand même savoir évoluer, non ? Imposer les règles de conduite de sa charrette aux nouveaux moyens de communication, très peu pour moi !

    Pour Toi :
    Bien entendu je respecte ton souhait à condition qu’on n’en fasse pas une règle qui soit certaine fois mal adaptée.
    Je viens de suivre le lien donné ci-dessus et quand j’en vois la teneur cela me conforte dans mon point de vue.
    Chacun est libre d’en avoir un autre encore faut-il se demander quel est le moins sujet à discussion.

    A+ pour le plaisir de lire tes nouvelles interventions (toujours aussi courtoises)
     
  13. Samson491

    Samson491 XLDnaute Nouveau

    Inscrit depuis le :
    17 Février 2017
    Messages :
    4
    "J'aime" reçus :
    2
    Sexe :
    Masculin
    Je te remercie "Si Alors, je viens de voir ton message. Je travaillais sur un autre projet.
    Merciiiiii!!!
     
  14. BrunoM45

    BrunoM45 XLDnaute Barbatruc

    Inscrit depuis le :
    22 Avril 2005
    Messages :
    8769
    "J'aime" reçus :
    325
    Sexe :
    Masculin
    Habite à:
    MONTARGIS (la Venise du Gâtinais)
    Utilise:
    Excel 2010 (PC)
    C'est vrai que là... c'est objectif [​IMG]
     

Partager cette page