Dudu2
XLDnaute Barbatruc
Bonjour à tous,
Tant qu'on n'a pas créé un UserForm dans le Projet VBA l'instruction MsgBox TypeOf Obj Is UserForm génère cette erreur de compilation (pas d'exécution !):
Il suffit de créer un UserForm pour que le Type soit reconnu.
De plus, même après suppression du UserForm, le Type reste reconnu.
Comment tester le Type Userform sans UserForm dans le Projet VBA ?
Ou neutraliser ce test en vérifiant s'il y a 1 ou plusieurs UserForms dans le Projet VBA ?
Merci pour toute info.
D.
VB:
Sub a()
Dim Obj As Object
Set Obj = ActiveSheet
On Error Resume Next 'Instruction sans effet car l'erreur vient du compilateur.
MsgBox TypeOf Obj Is UserForm
End Sub
Tant qu'on n'a pas créé un UserForm dans le Projet VBA l'instruction MsgBox TypeOf Obj Is UserForm génère cette erreur de compilation (pas d'exécution !):
Il suffit de créer un UserForm pour que le Type soit reconnu.
De plus, même après suppression du UserForm, le Type reste reconnu.
Comment tester le Type Userform sans UserForm dans le Projet VBA ?
Ou neutraliser ce test en vérifiant s'il y a 1 ou plusieurs UserForms dans le Projet VBA ?
Merci pour toute info.
D.