VBA problème pour load
Résolu
Caûpcin
-
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
12 réponses
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
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
Bonjour,
Le Load n'est pas nécessaire.
;o)
Le Load n'est pas nécessaire.
Private Sub CommandButton_suivant1_Click()
Unload Me
UserForm2.Show
End sub
;o)
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
Je comprend pas c'est comme si il ne reconnaisse pas UserForm2
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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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)
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)
J'ai trouver ce qui bloque:
sur la userforme2 j'ai un multipage et je fais ceci
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
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
Salut je test bien avec :
Et j'ai toujours le même problème, erreur 438 sur mon UserForm1.show.
Si quelqu'un voie pourquoi.
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.
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 :
Ou bien..
Userform1.show
'Et dans le UF1 mettre sur un bouton ou une condition...
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)
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)
Je suis très surpris de ton affirmation, pour moi le code fonctionne très bien avec VBA 6.3 sous Excel.
Userform1 bouton 1 :
Userform2 bouton 1 :
On passe de l'un à l'autre sans problème !
Patrice.
Userform1 bouton 1 :
Private Sub CommandButton1_Click()
Unload UserForm1
UserForm2.Show
End Sub
Userform2 bouton 1 :
Private Sub CommandButton1_Click()
Unload UserForm2
UserForm1.Show
End Sub
On passe de l'un à l'autre sans problème !
Patrice.
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
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
Donc voila ou j'en suis.
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.
