Discussion :

[brunolemaire]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ZTeddy]

Salut,

erreurde ma par

[unparia]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

BtnDemandeDevis.Visible = ChBoxDemandeDevis.Value

[ZTeddy]

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

[brunolemaire]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

BtnDemandeDevis.Visible = False

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

[Theze]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub UserForm_Initialize()
 
    Me.Height = 700
    Me.Width = 900
    BtnDemandeDevis.Visible = ChBoxDemandeDevis.Value
 
End Sub