Discussion :

[isrdum]

Bonjour
Je veux simplement changer le titre de mon tableau qui s'appelle actuellement "UserFrom1" pour quelque chose de plus révélateur du genre "Sélection des pages"
Voici le code

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
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
Private Sub UserForm_Initialize()
 
    Dim CaseACocher As MSForms.CheckBox
    Dim Feuille As Worksheet
    Dim Haut As Integer
    Dim Gauche As Integer
    Dim Ligne As Integer
    Const Largeur As Integer = 150
    Const Hauteur As Integer = 15
    Const Espace As Integer = 6
 
    With Me
 
        .Width = 200
        .Height = 400
 
    End With
 
    Haut = 16
    Gauche = 16
 
    For Each Feuille In Worksheets
 
        Set CaseACocher = Controls.Add("Forms.CheckBox.1", "Chk" & Feuille.Name)
 
        With CaseACocher
 
            .Left = Gauche
            .Top = Haut
            .Width = Largeur
            .Height = Hauteur
            .Caption = Feuille.Name
            If Feuille.Visible = True Then .Value = 1
        End With
 
        Haut = Haut + Hauteur + Espace
 
    Next Feuille
 
    Set CaseACocher = Nothing
 
    With Me.CommandButton1
 
        .Width = 60
        .Height = 25
        .Top = Haut
        .Left = Gauche
        .Caption = "Valider"
 
    End With
 
End Sub

Merci

[Philippe Tulliez]

Bonjour,
Dans l'éditeur de VBA.
Sélectionner le UserForm1
Aller dans la fenêtre des propriétés (Si elle n'est pas affichée, aller dans Affichage / Fenêtre propriétés ou F4)
Et là changer son nom dans la propriété (Name).
Attention le nom doit être en un seul mot (pas d'espace) et doit commencer par une lettre.