Bonjour a tous,

Après avoir réussi mon code en "séquentiel", je tente de le refaire en partant de 0 mais en programmant en objet.

Alors en tant que débutant, j'ai déjà un problème, je veux créer une classe graphe qui a :

  • une variable fichier de type string qui permettra d'importer le fichier csv associé.
  • une méthode qui créer un listbox et l'insérer


Alors voici ce que j'ai commencer à faire:

J'ai créer un Module de classe nommé graphe qui contient:
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
 
Public Nom As String
Public PositionHaut As Boolean
 
Sub UHF_VHF()
 
Dim Obj As Control
 
Set Obj = IHM.Controls.Add("forms.Checkbox.1")
 
With Obj
    .Name = "CheckBoxHaut"
    .Object.Caption = Nom
    .Left = 642
    .Top = 36
    .Width = 114
    .Height = 18
End With
 
End Sub
Dans mon Userform:
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
Private Sub ComboBox1_Change()
 
Dim GrapheHaut As New cGraphe
 
Select Case IHM.ComboBox1.Value
 
    Case "graphe1":
        With GrapheHaut
            .Nom = "graphe1"
            .PositionHaut = True
            .UHF_VHF
        End With
 
    Case "graphe2":
        With GrapheHaut
            .Nom = "graphe2"
            .PositionHaut = True
        End With
 
End Select
 
End Sub
 
Private Sub CommandButton1_Click()
 
If CheckBoxHaut = True Then
    MsgBox "case cochée"
Else
    MsgBox "case NON cochée"
End If
 
End Sub
Cependant meme si je coche la case rien toujours vu comme non coché!

De plus je voudrais supprimer un élément ainsi que tous ses controles associé comment faire?


Merci pour votre aide et si vous connaissez un bon tuto pour coder en objet en vba n'hésitez pas je cherche partout je lis tout ce que je trouve

Bastien