Fonction si impossible dans userform_initialize()

Re,

Donc, le code dans le module du formulaire "FormAccueil" :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub UserForm_Initialize()   Load FormParametre 'sans qu'il soit visible 'FormParametre.Show 'là, il sera visible   BtnDevis.Visible = FormParametre.CBoxDevis.Value BtnCommande.Visible = FormParametre.CBoxCommande.Value   End Sub

---

le code dans le module du formulaire "FormParametre" :

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Initialize()   'pour le test puisque à True par défaut CBoxDevis.Value = False   End Sub

---

C'est pour cette raison que j'ai demandé un fichier car je me doutais bien qu'il y avait un loup :D

Bonsoir,
Avant de clôturer ce post, je donne ma solution. Bien évidement, je nomme correctement mes 'appels' d'objets précisément...

Dans le formulaire PARAMETRES, mise en place de CheckBox.
Lors du chargement de ce formulaire, je recherche leur état initial dans une feuille EXCEL 'PARAMETRES'

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub UserForm_Initialize() 'Parametrage formulaire PARAMETRE ' ' ' Me.Height = 700 Me.Width = 900 FormParametre.ChBoxDemandeDevis.Value = Sheets("Paramètres").Range("C38") FormParametre.ChBoxDevis.Value = Sheets("Paramètres").Range("C39")

---

Si changement d'état, enregistrement du changement d'état dans la feuille EXCEL.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

'Code dans FormPARAMETRES Private Sub ChBoxDemandeDevis_Change()   Sheets("Paramètres").Range("C38") = ChBoxDemandeDevis.Value End Sub   Private Sub ChBoxDevis_Change()   Sheets("Paramètres").Range("C39") = ChBoxDevis.Value End Sub

---

Mon code dans FormAccueil (en initialisation), je vais rechercher leur état dans la feuille EXCEL.

Code:

---

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

Private Sub UserForm_Initialize() 'Initialisation FormAccueil '     'Paramétrages de la taille Me.Height = 700 Me.Width = 900 'Rendre visible ou invisible bouton de commandes suivant FormParametre BtnDemandeDevis.Visible = Sheets("Paramètres").Range("C38").Value BtnDevis.Visible = Sheets("Paramètres").Range("C39").Value

---

Il y a certainement plus simple, mais je n'ai pas encore la fibre d'un programmeur confirmé... Bien à vous.

Merci à tous pour votre aide.