VBA problème pour load Résolu/Fermé

Question

Bonjour,  j'ai une erreur  d'exécution "438"  Propriété ou méthode non  gérée par cette objet

Je suis dans Userform1 et je veux que s'affiche une autre fenêtre userform2 s'affiche quand je clique sur un bouton et que l'ancienne fenêtre (userform1) disparaise.
  
Private Sub CommandButton_suivant1_Click()

'Traitement du bouton suivant
Load UserForm2
UserForm2.Show
Unload UserForm1

End Sub


Et j'ai donc la ligne load UserForm2 qui est surligner lors du débogage.

Je vois pas d'où peu venir l'erreur car j'ai utiliser ce code  jusqu'à ce que sa bug.
Si vous avez une idée;

Configuration: Windows 7 / Firefox 3.6.12

Patrice33740 · Answer

Bonsoir

C'est un problème de chronologie, essaie :

Private Sub CommandButton_suivant1_Click()
    Unload UserForm1
    Load UserForm2
    UserForm2.Show
End sub

Ça devrait fonctionner.

Patrice

Polux31 · Answer

Bonjour,

Le Load n'est pas nécessaire.

Private Sub CommandButton_suivant1_Click()
     Unload Me
     UserForm2.Show
End sub 

;o)

Caûpcin · Answer

Salut aucune de vos solution ne marche et quand je vire le Load UserForm2 j'ai une erreur sur le UserForm2.show de type "424"

Je comprend pas c'est comme si il ne reconnaisse  pas UserForm2

Caûpcin · Answer

Régression: J'ai commenter mes lignes de code pour pouvoir travailler sur le userform2 mais lorsque je lance l'exécution du UserForm2 il me dit qu'il y a une erreur dans mes lignes commenter de mon UserForm1!!! de mieux en mieux donc.

Polux31 · Answer

C'est difficile de dire comme ça juste avec un bout de code. Ce qui t'a été donné fonctionne. Le problème est ailleurs.

Le mieux c'est que tu mettes ton fichier sur https://www.cjoint.com/ en enlevant les données sensibles. Tu colles ici le lien fournit par le site.

;o)

Caûpcin · Answer

J'ai trouver ce qui bloque:
 sur la userforme2 j'ai un multipage et je fais ceci 

Private Sub UserForm_Initialize()

Multipage.pages(1).Enable = False
Multipage.pages(2).Enable = False
Multipage.pages(3).Enable = False
Multipage.pages(4).Enable = False
Multipage.pages(5).Enable = False

End Sub

J'ai 6 onglets et donc lorsque j'ai enlever ces lignes mon problème est parti avec.
Si quelqu'un sait pourquoi j'ai tel comportement de mon programme

Caûpcin · Answer

du coup je ne sais plus si j'ai fait cette erreur mais je ne crois pas.

Caûpcin · Answer

Salut je test bien avec :

Multipage1.pages(1).Enable = False
Multipage1.pages(2).Enable = False
Multipage1.pages(3).Enable = False
Multipage1.pages(4).Enable = False
Multipage1.pages(5).Enable = False
 Et j'ai toujours le même problème, erreur 438 sur mon UserForm1.show.
Si quelqu'un voie pourquoi.

lermite222 · Answer

bonjour tous,  
Le fait de charger un UF est implicitement en modal.. donc pas possible d'afficher un autre à partir de celui-ci en le fermant.  
Deux solutions possibles...  
1°) dans l'ouverture du 1er UF mettre un condition d'ouverture du 2..  
exemple :  
    Userform1.Show  
    If LeDrapeau = True then  
        Userorm2.Show  
    End if
Ou bien..  
    Userform1.show  
'Et dans le UF1 mettre sur un bouton ou une condition...  
    Me.hide  
   Userform2.Show
Evidemment faut adapter tout ça au contexte.  
A+   

L'expérience instruit plus sûrement que le conseil. (André Gide)    
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

Caûpcin · Answer

Salut merci pour ta réponse mais ce souci est régler, maintenant ce qui me fait une erreur c'est le multipage1 que j'ai dans mon userForm2 composer de 6 onglets 

dés que je fait 

Private Sub UserForm_Initialize()

'bloque les onglets
MultiPage1.Pages(2).Enable = False

End Sub

la ligne de code MultiPage1.Pages(2).Enable = False me crée clairement mon erreur vu que lorsque je la commente mon problème disparait.
Chose bizarre le débogueur me renvoie sur userform1 sur ma ligne userform2.show


Private Sub B_accepter_Click()

UserForm2.Show
UserForm1.Hide

End Sub


Donc voila ou j'en suis.

Patrice33740 · Answer

Re,

La bonne syntaxe est :
MultiPage1.Pages(2).Enabled = False

(Enabled au lieu de Enable)

Patrice

Caûpcin · Answer

Merci Patrice c'était bien une bête et méchante erreurs de syntaxe.

VBA problème pour load

12 réponses

Discussions similaires