[XL-2007] Affichage boutons d'option [Résolu]

[danisoaz]

Bonjour,

Dans un formulaire je crée un frame à l'intérieur duquel j'insère 4 boutons d'option pour créer un groupe de boutons.
J'initialise un des 4 à True les 3 autres à False
Les 4 visible = true
Quand j'ouvre mon formulaire, le cadre est vide !
Je cherche un magicien qui va les faire sortir de son chapeau...

Merci

[bbil]

Il n' as pas de raison ... ce que tu appelle Formulaire c'est bien un UserForm Excel ?

as-tu d'autre code événementiel associé à cet Userform ..?

[gFZT82]

Bonjour,

As-tu vérifié la propriété visible de ton Frame ?

Code :

Frame1.visible=True

[Theze]

Bonjour,

En mode création, tes OptionButtons se déplacent ils avec le Frame ? Car si ce n'est pas le cas, tu ne les a pas placés comme il faut et le Frame les cache.

Hervé.

[danisoaz]

Bonjour à Tous,

L'IHM est +/- une gestion co.
Cet Userform édite, utilise des données déjà saisies dans d'autres modules et permet la saisie des devis
Le frame est sur la page 3 d'un multipage intégré à cet userform.

Mes 4 boutons se déplacent avec le frame en mode créa
Boutons et frame visible = True

J'ai bien sur d'autres codes évènementiels mais qui ne se lancent pas quand je sélectionne la page 3.

Je pense avoir répondu à vos questions

Merci encore
Cordialement
Daniel

Bonjour aux Lèves Tôt ou au Couches très Tard,

Rappel les boutons sont dans un frame d'une page de multipage dans un userform.
J'ai supprimé le frame et laissé les boutons = invisible
J'ai sorti les boutons du multipage pour les mettre sur l'userform = invisible
Je les ai lié par la propriété GroupName = invisible
J'ai créé un autre bouton unique sur le multipage = invisible

Je suis desespéré...
Bonne Journéee
Daniel

Re,

Si je place un bouton d'option dans mon UsfMenu qui appelle les autres userforms il est bien visible et fonctionnel. Quelques soient les autres Usf aucun ne m'affiche les boutons.
J'en déduis que la piste de Bbil d'un code événementiel associé aux Userform doit être la bonne sauf que je ne vois pas du tout quel type ou quel évènement peut-être en cause.
Ci dessous le code qui m'amène à mon Usf :
1) UsfMenu

Code :

1
2
3
4
5
Private Sub ImgDevis_Click()
    Me.Hide
    Devis
    Me.Show
End Sub

2)Devis est dans module1 (principa)l

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Option Explicit
Option Base 1
'-------------------------------
'Définition des variables gérant les classeurs
Public vPath As String
Public vWbkTables As Workbook
Public vWstClients As Worksheet
Public vNomUsf As String 'Nom du formulaire
Public vCommande As String 'commande
'...etc...
 
Sub Devis()
 
    Init
 
    'Ouverture feuilles Devis
    Set vWstTitres = vWbkTables.Sheets("Titres")
    Set vWstClients = vWbkTables.Sheets("Clients")
    Set vWstArticles = vWbkTables.Sheets("Articles")
    Set vWstDevis = vWbkTables.Sheets("Devis")
    Set vWstSociété = vWbkTables.Sheets("Société")
    'Lancement Gestion des devis
    UsfDevis.Show
 
End Sub
 
 
Sub Init()
 
    ThisWorkbook.Save
    'Initialisation des variables
    vPath = ThisWorkbook.Path
    vNomUsf = "MDC CONSEIL"
    vPourDevis = False
 
    'Ouverture du classeur tables
    Set vWbkTables = Workbooks.Open(vPath & "/" & "tables.xlsx")
 
End Sub

3) UsfDevis

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
Option Explicit
Option Base 1
'Définition des variables
Dim ListeFtImprimé As New Collection
'...etc...
Private Sub UserForm_Initialize()
 
' ---------- Initialisation IHM--------
InitIhm
 
'Chargement des variables
vNomUsf = "Gestion des Devis"
vCommande = "Init"
vYaNouveau = False
vMessage = ""
vNbArticles = 0
vContactBat = ""
vContactLivraison = ""
vPourDevis = True 'Identification de l'origine de l'appel des autres formulaires
vTitre = "" ' Pour Recherche du titre
 
'Paramétrage des zones commentaires
    With TxtComO
        .MultiLine = True 'Autorise les mutilignes dans le TextBox
        .EnterKeyBehavior = True 'Spécifie que la touche ENTRÉE ajoutera une nouvelle ligne.
    End With
    With TxtComCli
        .MultiLine = True
        .EnterKeyBehavior = True
    End With
 
'Chargement de l'image
ImgUsf.PictureSizeMode = fmPictureSizeModeClip
ImgUsf.Picture = LoadPicture(vPath & "/Images/Devis_0.jpg")
 
'----- Initialisation des Lvw------------
' LvwDevis------------------------
 
    'Définit le nombre de colonnes et Entêtes
    With LvwDevis.ColumnHeaders
        'Supprime les anciens entêtes
        .Clear
        'Intitulé et largeur des colonnes
        .Add , , "Code", 0
        .Add , , "Devis N° du ", 95, 1
        .Add , , "Affaire", 140
        .Add , , "Client", 110
        .Add , , "Nb Ex", 30, 1
        .Add , , "Date Modif", 40, 1
        .Add , , "Ok le", 55, 2
        .Add , , "Cloturé le", 55, 2
        .Add , , "Refusé le", 55, 2
    End With
 
'Paramétrage de l'édition
Set vLvw = LvwDevis
ParamEditLvw vLvw
 
 ' LvwDétail------------------------
 
    'Définit le nombre de colonnes et Entêtes
    With LvwDétail.ColumnHeaders
        'Supprime les anciens entêtes
        .Clear
        'Intitulé et largeur des colonnes
        .Add , , "Code", 0
        .Add , , "Qté", 40, 1
        .Add , , "Articles", 200
        .Add , , "P.U.", 40, 1
        .Add , , "Total", 60, 1
        .Add , , "Nb Poses", 50, 1
        .Add , , "Famille", 70
        .Add , , "TVA", 15
    End With
 
'Paramétrage de l'édition
Set vLvw = LvwDétail
ParamEditLvw vLvw
 
' LvwArticles------------
'Initialisation de vLvw par proc dans module1 car utilisée aussi par UsfArticles
Set vLvw = LvwArticles
InitLvwArticles vLvw
 
'----- Chargement des Listview & box ----------------------------
MajLvwArticles vLvw 'Charge LvwArticles
MajListingDevis 'Charge LvwDevis
ComboFill  'Charge les Box
 
' Mise en forme du formulaire
MlpDétail.Visible = False
Masque vUsf, vLvw, vChoisir, vdernier
 
' Affichage des boutons de commande
Commande vCmdN, vCmdN2, vCmdM, vCmdE, vCmdA, vCmdQ
 
LvwDétail.Visible = False
LabLvwDétail.Visible = False
 
End Sub

Où est le problème ?

Bonne Journée
Daniel