XL 2013 (RESOLU) Erreur d'exécution "50289"

chaelie2015 · 8 Septembre 2023

Forum Bonsoir
Lorsque je protège le code VBA, du mon classeur je rencontre systématiquement une erreur d'exécution "50289" indiquant qu'il est impossible d'effectuer certaines opérations tant que le projet VBA est protégé.
Je suspecte que le module ci-dessous soit à l'origine de ce problème, car il fonctionne correctement lorsque le VBA n'est pas protégé, mais affiche cette erreur lorsqu'il est protégé.
Voici le module

VB:

Sub AffichageUserForm()
   Dim USF As Object
  Dim Target As Range
  'Set Target = ActiveSheet.Range("AM6") ' Vous pouvez spécifier une autre feuille ou une autre cellule si nécessaire
  Set Target = ThisWorkbook.Sheets("CRT").Range("AM6")
 If Intersect(Target, Range("AM6")) Is Nothing Then Exit Sub
    With Sheets("Jours fériés")
        For I = 2 To 46
            If .Range("I" & I) = Target Then
                NomUsf = .Range("J" & I)
                For Each USF In ThisWorkbook.VBProject.VBComponents
                    If USF.Name = NomUsf Then
                        VBA.UserForms.Add(NomUsf).Show
                    End If
                Next USF
            End If
        Next I
   End With
End Sub

Pourriez-vous m'apporter votre assistance dans la résolution de ce problème ? Seriez-vous en mesure de m'éclairer sur l'origine de cette erreur ?
A+

TooFatBoy · 8 Septembre 2023

Je cherche toujours à comprendre le truc, car je ne connais pas du tout ces manipulations de UserForm.
Mes questions sont donc, non pas des conseils, mais bien de vraies questions dont je n'ai pas les réponses.

Pourquoi scanner tous les UserForm jusqu'à trouver celui qui porte le nom désiré, puis afficher le UserForm qui porte ce nom ?
Vu qu'on a déjà le nom, autant l'afficher tout de suite. Non ?

Ca donnerait ça :

VB:

Sub AffichageUserForm()
'
'Dim USF As Object
Dim Target As Range

'    Set Target = ActiveSheet.Range("AM6") ' Vous pouvez spécifier une autre feuille ou une autre cellule si nécessaire
    Set Target = ThisWorkbook.Sheets("CRT").Range("AM6")

'    If Intersect(Target, Range("AM6")) Is Nothing Then Exit Sub
    With...

Dranreb · 8 Septembre 2023

Bonsoir.
Ça me semble évident que la manipulation d'un VBComponent n'a pas à être possible si le projet est protégé, tout comme par VBE.

chaelie2015 · 8 Septembre 2023

Bonsoir
Pourriez-vous fournir davantage d'explications concernant cette observation, s'il vous plaît ?
NB: À titre informatif, il semble que vous ayez une expertise dans ce domaine. Si je remplace ce code par un autre et que je protège le VBA, il devrait fonctionner. Je tiens à noter que j'ai déjà tenté une approche différente en le désactivant, et cela a fonctionné sans afficher de messages d'erreur.

Dranreb · 8 Septembre 2023

Que voulez vous que je vous dises de plus, l'accès à un composant VBA n'est pas possible sur un projet protégé.
Pourquoi ce que vous voulez faire ne vous parait pas possible avec un seul UserForm ?

chaelie2015 · 8 Septembre 2023

Dranreb à dit:
Que voulez vous que je vous dises de plus, l'accès à un composant VBA n'est pas possible sur un projet protégé.
Pourquoi ce que vous voulez faire ne vous parait pas possible avec un seul UserForm ?

Re
La structure de mon projet exige cette architecture. Cependant, si des modifications sont nécessaires, je serais ouvert à postuler votre proposition.
Merci

Dranreb · 8 Septembre 2023

Oui mais sont-ils vraiment très différents, vos UserForm ?

chaelie2015 · 8 Septembre 2023

Re
J'ai créé des images dédiées pour chaque jour férié de l'année, chacune étant intégrée dans un UserForm spécifique.
Le défi principal que je rencontre lors de l'exécution est d'afficher ces images via les UserForms, d'autant plus que plusieurs jours fériés peuvent survenir au cours d'un même mois.

Dranreb · 8 Septembre 2023

Ne peut on pas toutes les mettre dans un seul UserForm et ne rendre visible que celle correspondant à la date fériée concernée ?

chaelie2015 · 8 Septembre 2023

Dranreb à dit:
Ne peut on pas toutes les mettre dans un seul UserForm et ne rendre visible que celle correspondant à la date fériée concernée ?

Re
Oui, cependant, mon véritable défi réside dans l'affichage de plusieurs images successives pour un même mois.

Dranreb · 8 Septembre 2023

Pourquoi ?
Ce serait possible même s'ils devaient être affichés simultanément en non modal. Un UserForm est un module de classe muni d'une interface d'affichage avec MSForms.

chaelie2015 · 8 Septembre 2023

Dranreb à dit:
Pourquoi ?
Ce serait possible même s'ils devaient être affichés simultanément en non modal. Un UserForm est un module de classe muni d'une interface d'affichage avec MSForms.

Re
Oui, je suis d'accord, mais la nature de notre projet requiert un affichage en mode modal.

TooFatBoy · 8 Septembre 2023

Bonjour,

Je ne suis pas certain de bien comprendre, d'une part le code, et d'autre part le but dudit code.

VB:

NomUsf = .Range("J" & i)

For Each USF In ThisWorkbook.VBProject.VBComponents
    If USF.Name = NomUsf Then VBA.UserForms.Add(NomUsf).Show
Next USF

L'instruction VBA.UserForms.Add(NomUsf).Show crée-t-elle un nouveau UserForm ?

Si oui, ça ne me semble pas logique de scanner tous les UserForm existant et quand on en trouve un qui porte le nom désiré, alors on crée un nouveau UserForm avec ce nom ?!?...

Les UserForm ne sont-ils pas déjà tous créés ?

Dranreb · 8 Septembre 2023

Faites le avec un seul UserForm ce sera le plus simple. Vous pouvez le munir de méthodes et de propriétés en plus des contrôles.

chaelie2015 · 8 Septembre 2023

TooFatBoy à dit:
Bonjour,

Je ne suis pas certain de bien comprendre, d'une part le code, et d'autre part le but dudit code.

Bonsoir
Ce code a pour objectif d'afficher dynamiquement un UserForm en fonction de la valeur d'une cellule spécifique de la feuille de calcul "CRT" donc ce code recherche un mois spécifique dans la feuille "Jours fériés" en fonction de la valeur de la cellule "AM6" de la feuille "CRT". Si un mois correspondant est trouvé, il extrait le nom de l'UserForm associé et l'affiche. Le code s'arrête s'il n'y a pas de correspondance ou si la cellule "Target" est différente de AM6.est ce que c'est clair ?
A+

TooFatBoy · 8 Septembre 2023

OK, mais dans ce cas, n'est-il pas possible de faire simplement un .Show ?

[edit]
Bon, si je comprends bien, on est obligé de passer par le .Add(NomUsf) quand le nom du UserForm est dans une variable.
[/edit]

XL 2013 (RESOLU) Erreur d'exécution "50289"

chaelie2015

XLDnaute Accro

TooFatBoy

Dranreb

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Dranreb

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Dranreb

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Dranreb

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Dranreb

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

Discussions similaires