Fonction si impossible dans userform_initialize()

Bonsoir,
Mon objectif : afficher ou pas un bouton de commande sur un formulaire (Accueil). Choix possible via un 2° formulaire (paramétres) avec une case à cocher.
Mon code de UserForm_initialize()

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub UserForm_Initialize() 'Initialisation FormAccueil 'Les fonctions if ne passent pas ici pq? 'Pourtant les .visible passent     'Paramétrages de la taille Me.Height = 700 Me.Width = 900 ' BtnDevis.Visible = False ok passe bien   If ChBoxDemandeDevis.Value = False Then BtnDemandeDevis.Visible = False Else BtnDemandeDevis.Visible = True End If     End Sub

---

Dans l'état, "Erreur d'exécution '424' avec débogage :

Code:

---

1 2 3 4 5 6 7 8 9

Sub ouvrirFormAccueil() ' Ouvre le formulaire d'accueil ' Prévoir ouverture dés chargement du fichier ' lors de l'utilisation ' FormAccueil.Show   End Sub

---

sur FormAccueil.Show

Si je met la fonction If en commentaire, pas d'erreur...mais pas d'objectif non plus.
Pour info (suis trés trés débutant, mais j'ai bien cherché...)

Merci pour votre aide.;)

Salut,

erreurde ma par :aie::aie:

Bonjour
1) A ZTeddy : que racontes-tu là ? La propriété value d'une checkbox (relis son message) est bien une booléenne.
2) A brunolemaire : l'évènement initialize n'est pas le plus adapté. Il intervient avant que tous les objets de l'userform ne soient forcément chargés et disponibles. Utilise plutôt l'évènement Activate.
NB : tout cela à condition, bien évidemment, qu'il n'y ait aucune erreur dans le nom des objets invoqués.

PS (et tout-à-fait accessoirement) :

Code:

---

1 2 3 4 5

If ChBoxDemandeDevis.Value = False Then BtnDemandeDevis.Visible = False Else BtnDemandeDevis.Visible = True End If

---

peut s'écrire très simplement ainsi :

Code:

---

BtnDemandeDevis.Visible = ChBoxDemandeDevis.Value

---

EN effet, autant pour moi j’étais sur un textBox (hors sujet)... Je retire mes bêtises

Bonjour,
Merci pour vos réponses, mon objectif n'est pas atteind.
Code pour initialize :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub UserForm_Initialize() 'Initialisation FormAccueil 'Les fonctions if ne passent pas ici pq? 'Pourtant les .visible passent     'Paramétrages de la taille Me.Height = 700 Me.Width = 900       End Sub

---

et donc la fonction activate

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Activate() ' BtnDevis.Visible = False ok passe bien   BtnDemandeDevis.Visible = ChBoxDemandeDevis.Value ' BtnDemandeDevis.Visible = False ici cela ne fait pas d erreur... End Sub

---

Tjrs message d'erreur d'éxécution '424'...
En direct avec

Code:

---

BtnDemandeDevis.Visible = False

---

ça fonction:calim2:
Certainement une erreur de débutant, mais laquelle... Ailleurs dans le code !! mais que 3 formulaires avec boutons, textes, labels...

Bonjour,

Le code que tu présentes doit fonctionner et même sur Initialize() !
Supprime tes contrôles et crée les à nouveau pour voir

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Initialize()   Me.Height = 700 Me.Width = 900 BtnDemandeDevis.Visible = ChBoxDemandeDevis.Value   End Sub

---

Messieurs Bon Dimanche,

Ci-dessous mes codes neufs...
Ouverture formulaire Accueil bouton associé à une macro

Code:

---

1 2 3 4 5 6

Sub OuvrirFormAccueil()   FormAccueil.Show   End Sub

---

Formulaire Accueil avec 3 boutons :
- BtnDevis;
- BtnCommande;
- BtnParametre (ouvre FormParametre)

Formulaire Parametre avec 2 CheckBox :
- CBoxDevis avec Value True
- CBoxCommande avec Value True

Code de UserForm_initialize() du fomulaire Accueil

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Initialize()   BtnDevis.Visible = CBoxDevis.Value BtnCommande.Visible = CBoxCommande.Value   End Sub

---

De suite Erreur d'éxecution '424' sur le code d'ouverture du FormAccueil.show...
Copie sur UserForm_Activate() et... idem !!!!

Le pire, en direct ça passe

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Initialize()   BtnDevis.Visible = False 'BtnCommande.Visible = CBoxCommande.Value     End Sub

---

Merci.

(Version d'EXCEL non piraté...)

Tu montres ici deux procédures évènementielles.
J'espère qu'elles ne cohabitent pas et que tu as supprimé (comme il se doit) la procédure Private Sub UserForm_Initialize()
confirme

Bjr UNPARIA,

Oui, je te confirme qu'il y a qu'une procédure événementielle à la fois. Originellement avec initialize(), puis suivant conseil avec activate() (en supprimant initialize())...
Et test (suivant conseil) sur un nouvelle espace de travail, prog EXCEL perso, (autre CT boulot), feuille...:(

Truc anormal ?
Initialement dans le prog, mes 2 valeurs ChechBox.visible = TRUE
J'ouvre formulaire Accueil, navigue vers formulaire paramètre, les cases à cocher sont bien cocher (TRUE)...
Tout est ok, je décoche la case (ChBOXDevis), quitte mon formulaire... Bouton DEVIS toujours là...pas normal, et en revenant vers le formulaire paramètre, mes 2 CheckBox toujours VRAI (pourtant décoché juste avant !!!)
N'y a-t-il pas un problème mémoire ?

De même (je suis débutant) faut-il systématiquement FERMER un formulaire quand on OUVRE un autre ? (perte des valeurs?)
Car, j'ai ouvert l'ACCUEIL, puis ouvert PARAMETRE, change valeur, ferme PARAMETRE et suis de nouveau sur ACCUEIL... Y-a-t-il une erreur de 'forme' ?
Je cherche...

Bonjour,

Postes t'on fichier de façon à ce que nous puissions tester sinon, on va passer du temps inutile à trouver de quoi ça vient !

Ci-joint fichier.
Merci

1) je n'ouvrirai jamais un classeur tiers et n'ai pas ouvert le tien
2) il est plus que probable que tu invoques un objet qui ne fait pas partie des objets du userform concerné
3) un userform déchargé revient bien évidemment (ainsi que tous les objets qu'il contient et toutes les variables qu'il gère) par construction à son état initial
4) il n'y a aucune obligation de fermer un userform pour en ouvrir un autre. Mais cela implique la mise à False de leur propriété Showmodal (à True, cette propriété impose que l'on reste où l'on est).

Bonjour,

Citation:

---

De même (je suis débutant) faut-il systématiquement FERMER un formulaire quand on OUVRE un autre ? (perte des valeurs?)

---

Il y a un bel exemple dans l'aide en ligne.
Cela vaut la peine de temps en temps de cliquer sur la touche F1 :roll:

Show, méthode, exemple
Nous supposons dans l'exemple suivant qu'un programme comporte deux objets UserForm. Dans l'événement Initialize de l'objet UserForm1, l'objet UserForm2 est chargé et affiché. Lorsque l'utilisateur clique sur l'objet UserForm2, celui-ci est masqué et l'objet UserForm1 apparaît. Lorsque l'utilisateur clique sur l'objet UserForm1, l'objet UserForm2 est réaffiché.

Code:

---

1 2 3 4 5

' Procédure d'événement Initialize pour UserForm1 Private Sub UserForm_Initialize() Load UserForm2 UserForm2.Show End Sub

---

Code:

---

1 2 3 4

' Événement Click pour UserForm2 Private Sub UserForm_Click() UserForm2.Hide End Sub

---

Code:

---

1 2 3 4

' Événement Click pour UserForm1 Private Sub UserForm_Click() UserForm2.Show End Sub

---

Messieurs,
J'apprends avec vos réponses, et post le code plutôt que le fichier...

Code de la macro

Code:

---

1 2 3 4 5 6 7

Sub OuvrirFormAccueil()     FormAccueil.Show   End Sub

---

Formulaire Accueil avec 3 boutons : BtnDevis, BtnCommande et BtnParametre
Code FormAccueil

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub BtnParametre_Click()   FormParametre.Show   End Sub     Private Sub UserForm_Initialize() BtnDevis.Visible = CBoxDevis.Value BtnCommande.Visible = CBoxCommande.Value End Sub

---

Code du Formulaire PARAMETRE

Code:

---

1 2 3 4

Private Sub BtnFermer_Click() FormAccueil.Show End Sub

---

Avec 2 CheckBox ! CBoxDevis.value = TRUE et CBoxCommande.value = True dans les propriétées.

Message d'erreur : Erreur d'exécution '424': Objet requis
Ligne jaune sur FormAccueil.Show

C'est bel et bien ce que je devinais :

Citation:

---

2) il est plus que probable que tu invoques un objet qui ne fait pas partie des objets du userform concerné

---

on perd là beaucoup de temps à tourner autour du pot.
Moi, je m'en vais de ce pas.

Tout le monde ne peut pas avoir votre niveau!!!

J'ai bien envie d'en écrire plus, mais je m'arrête là, ce n'est pas le rôle d'un forum.

Concernant mon erreur, je remarque un début d'explication et continue à chercher une solution.
Dans mon userform_initialize() du FormAccueil, j'appel bien un objet (ChBoxDevis) de l'autre formulaire FormParametre, qui semble-t-il est interdit...
Je découvre les faces cachées de la POO...:oops::oops:
Dorénavant je vais essayer avec une variable entre les deux formulaires.
Est-ce la meilleure solution, je ne sais pas, mais je cherche...

Merci.

Citation:

---

j'appel bien un objet (ChBoxDevis) de l'autre formulaire FormParametre, qui semble-t-il est interdit...

---

"interdit" ? --->> non !
On dit tout simplement à Monsieur VBA, qui n'est pas un devin, où est cet objet --->>>>>

Code:

---

FormParametre.ChBoxDevis

---

De la même manière qu'on préciserait la ville dans laquelle se situe une rue dont on donne le nom.
Je crois vraiment que tu devrais calmement commencer par le commencement (les notions de base), comme chacun (dont moi).
Bonne chance.

Bonjour,

J'ai lu en diagonale mais quand je vois :

Code:

---

1 2	BtnDevis.Visible = CBoxDevis.Value

---

sachant que "BtnDevis" est un objet du formulaire "FormAccueil" et que "CBoxDevis" est un objet du formulaire "FormParametre" en l'état, ce n'est pas près de fonctionner sachant que les objets de l'un sont invisibles de l'autre !

Citation:

---

Envoyé par Theze

Bonjour,

J'ai lu en diagonale mais quand je vois :

Code:

---

1 2	BtnDevis.Visible = CBoxDevis.Value

---

sachant que "BtnDevis" est un objet du formulaire "FormAccueil" et que "CBoxDevis" est un objet du formulaire "FormParametre" en l'état, ce n'est pas près de fonctionner sachant que les objets de l'un sont invisibles de l'autre !

---

Est ce qu'un préfixage du "CBoxDevis.Value" par un "FormParametre." fonctionnerait? Et ne serait il donc pas juste question de dire exactement ou se trouve la variable? :)
Il me semble que oui (mais je dis peut etre des conneries).

Citation:

---

Est ce qu'un préfixage du "CBoxDevis.Value" par un "FormParametre." fonctionnerait?

---

Bien évidemment, qu'il fonctionnerait.

Rappel : la seule évocation d'un userform le charge en mémoire et en rend accessible son contenu.