Utiliser la procedure ComboBox_Change() comme Public

Version imprimable

09/09/2016, 13h30
Naezty

Utiliser la procedure ComboBox_Change() comme Public

Bonjour,

Je suis en train de m’arracher les cheveux (ceux qu'ils me restent) sur un problème relativement simple je pense...

Environnement :
Dans une Userform que j'ai créée, une ComboBox permet la selection de différent items ranger dans une feuille Excel et affiche ces éléments dans une listbox multicolonne sur la même userform.

Objectif :
Afin d'éviter de reboucler une nouvelle fois dans la feuille excel, je souhaite sauvegarder les numéros de lignes de la feuille excel correspondant à l'affichage de la ListBox dans un tableau Public (Réutilisé a un autre endroit de la userform)

Mon Problème :
Je ne peux pas déclarer la procédure comboBox_Change() comme public et donc récupérer mes valeurs du tableau
J'ai essayer de bidouiller plusieurs solutions qui ont échouées et je suis à cours d'idée...
Qq1 peut il m'aider svp

Merci d'avance

Bonjour,

dans un module standard!
Code:

1 2 3 Sub test(Msg As Object) MsgBox Msg End Sub
dans ton UserForm!
Code:

1 2 3 4 Private Sub comboBox_Change() test Me.ComboBox End Sub

Bonjour,

Je n'ai pas bien compris ta réponse...

Voici mon code pour aider à la compréhension

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
Public Sub Nom_TRAV_ComboBox_Change()
Dim k%, derl%, cnomTRAV%, cnomTUY%, Ccouloir%, Catelier%, l%, i%
 
    derl = NombreDeLignes("Inventaire_TUY_TRAV")
    cnomTRAV = ChercheColonne("Inventaire_TUY_TRAV", "Nom TRAV")
    cnomTUY = ChercheColonne("Inventaire_TUY_TRAV", "Nom TUY")
    Ccouloir = ChercheColonne("Inventaire_TUY_TRAV", "Capsage TUY Couloir")
    Catelier = ChercheColonne("Inventaire_TUY_TRAV", "Capsage TUY Atelier")
    l = 0
    With Rempl_Inv_TUY_TRAV
        .TUY_TRAV_ListBox.Clear
            For k = 2 To derl
                If Worksheets("Inventaire_TUY_TRAV").Cells(k, cnomTRAV) = .Nom_TRAV_ComboBox Then
 
                    'Je créé un tableau dynamique dans lequel je range mes numéros de lignes
                    ReDim Tabligne(i)
                    Tabligne(i) = k
                    i = i + 1
 
                    With .TUY_TRAV_ListBox
                        .ColumnCount = 3
                        .AddItem
                        .List(l, 0) = Worksheets("Inventaire_TUY_TRAV").Cells(k, Ccouloir).Value
                        .List(l, 1) = Worksheets("Inventaire_TUY_TRAV").Cells(k, cnomTUY).Value
                        .List(l, 2) = Worksheets("Inventaire_TUY_TRAV").Cells(k, Catelier).Value
                        l = l + 1
                    End With
                End If
            Next
    End With
 
Public Sub Enregistrer_TRAV_CommandButton_Click()
Dim kmax%, k%, derl%, Cdat%, cnomTRAV%, czi%, cnomTUY%, Ccouloir%, Catelier%, i%, j%
 
    kmax = Rempl_Inv_TUY_TRAV.TUY_TRAV_ListBox.ListCount
    derl = NombreDeLignes("Inventaire_TUY_TRAV") + 1
    Cdat = ChercheColonne("Inventaire_TUY_TRAV", "Date Inventaire")
    cnomTRAV = ChercheColonne("Inventaire_TUY_TRAV", "Nom TRAV")
    czi = ChercheColonne("Inventaire_TUY_TRAV", "ZI")
    cnomTUY = ChercheColonne("Inventaire_TUY_TRAV", "Nom TUY")
    Ccouloir = ChercheColonne("Inventaire_TUY_TRAV", "Capsage TUY Couloir")
    Catelier = ChercheColonne("Inventaire_TUY_TRAV", "Capsage TUY Atelier")
 
    With Worksheets("Inventaire_TUY_TRAV")
        'lorsque je rappel le tableau il se trouve vide
        For i = 0 To UBound(Tabligne)
            j = Tabligne(i)
            .Cells(j, 1).EntireRow.Delete
        Next i
 
        If kmax <> 0 Then
            For k = 0 To kmax - 1
                .Cells(derl + k, czi) = Rempl_Inv_TUY_TRAV.ZI_TUY_TRAV_ComboBox
                .Cells(derl + k, cnomTRAV) = Rempl_Inv_TUY_TRAV.Nom_TRAV_ComboBox
                .Cells(derl + k, Ccouloir) = Rempl_Inv_TUY_TRAV.TUY_TRAV_ListBox.List(k, 0)
                .Cells(derl + k, cnomTUY) = Rempl_Inv_TUY_TRAV.TUY_TRAV_ListBox.List(k, 1)
                .Cells(derl + k, Catelier) = Rempl_Inv_TUY_TRAV.TUY_TRAV_ListBox.List(k, 2)
                .Cells(derl + k, Cdat) = Now
            Next
        End If
    End With
 
    Unload Rempl_Inv_TUY_TRAV
End Sub

MErci d'avance

09/09/2016, 14h04
Invité

les propriété et méthode des contrôle sont parfois définie comme privé comme l’événement change!

c'est le développeur du contrôle même qui l'a défini comme ça et tu ne pourras pas changer ça!

en revanche tu peux Quand l’événement se produit appeler ta propre méthode en lui passant en paramètres des élément du UserForm et ainsi le retravailler aussi sursemant que si l’événement avait été défini comme publique!
09/09/2016, 14h05
Marc-L

Bonjour !

:tagcode:‼
09/09/2016, 14h17
Naezty

ok je comprend la logique

J'avais déjà essayé une solution dans ce genre la en créant une Public Sub appelée lors de l’événement : ComboBox_change() mais ca n'avait pas fonctionné.

C'est peut être par ce que l'autre Procédure dans laquelle j'utilise ma public variable tableau est aussi privée...?

Je suis débutant en vba qu'est ce qu'une méthode et comment la créé t on?

Citation:

Envoyé par Marc-L

Bonjour !

:tagcode:‼

OK je suis nouveau désolé

Code premiere partie création de la variable public

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
 
Public Sub Nom_TRAV_ComboBox_Change()
Dim k%, derl%, cnomTRAV%, cnomTUY%, Ccouloir%, Catelier%, l%, i%
 
    derl = NombreDeLignes("Inventaire_TUY_TRAV")
    cnomTRAV = ChercheColonne("Inventaire_TUY_TRAV", "Nom TRAV")
    cnomTUY = ChercheColonne("Inventaire_TUY_TRAV", "Nom TUY")
    Ccouloir = ChercheColonne("Inventaire_TUY_TRAV", "Capsage TUY Couloir")
    Catelier = ChercheColonne("Inventaire_TUY_TRAV", "Capsage TUY Atelier")
    l = 0
    With Rempl_Inv_TUY_TRAV
        .TUY_TRAV_ListBox.Clear
            For k = 2 To derl
                If Worksheets("Inventaire_TUY_TRAV").Cells(k, cnomTRAV) = .Nom_TRAV_ComboBox Then
 
                    'Je créé un tableau dynamique dans lequel je range mes numéros de lignes
                    ReDim Tabligne(i)
                    Tabligne(i) = k
                    i = i + 1
 
                    With .TUY_TRAV_ListBox
                        .ColumnCount = 3
                        .AddItem
                        .List(l, 0) = Worksheets("Inventaire_TUY_TRAV").Cells(k, Ccouloir).Value
                        .List(l, 1) = Worksheets("Inventaire_TUY_TRAV").Cells(k, cnomTUY).Value
                        .List(l, 2) = Worksheets("Inventaire_TUY_TRAV").Cells(k, Catelier).Value
                        l = l + 1
                    End With
                End If
            Next
    End With
End Sub

Code deuxieme partie utilisation del a variable public

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
 
Public Sub Enregistrer_TRAV_CommandButton_Click()
Dim kmax%, k%, derl%, Cdat%, cnomTRAV%, czi%, cnomTUY%, Ccouloir%, Catelier%, i%, j%
 
    kmax = Rempl_Inv_TUY_TRAV.TUY_TRAV_ListBox.ListCount
    derl = NombreDeLignes("Inventaire_TUY_TRAV") + 1
    Cdat = ChercheColonne("Inventaire_TUY_TRAV", "Date Inventaire")
    cnomTRAV = ChercheColonne("Inventaire_TUY_TRAV", "Nom TRAV")
    czi = ChercheColonne("Inventaire_TUY_TRAV", "ZI")
    cnomTUY = ChercheColonne("Inventaire_TUY_TRAV", "Nom TUY")
    Ccouloir = ChercheColonne("Inventaire_TUY_TRAV", "Capsage TUY Couloir")
    Catelier = ChercheColonne("Inventaire_TUY_TRAV", "Capsage TUY Atelier")
 
    With Worksheets("Inventaire_TUY_TRAV")
        'lorsque je rappel le tableau il se trouve vide
        For i = 0 To UBound(Tabligne)
            j = Tabligne(i)
            .Cells(j, 1).EntireRow.Delete
        Next i
 
        If kmax <> 0 Then
            For k = 0 To kmax - 1
                .Cells(derl + k, czi) = Rempl_Inv_TUY_TRAV.ZI_TUY_TRAV_ComboBox
                .Cells(derl + k, cnomTRAV) = Rempl_Inv_TUY_TRAV.Nom_TRAV_ComboBox
                .Cells(derl + k, Ccouloir) = Rempl_Inv_TUY_TRAV.TUY_TRAV_ListBox.List(k, 0)
                .Cells(derl + k, cnomTUY) = Rempl_Inv_TUY_TRAV.TUY_TRAV_ListBox.List(k, 1)
                .Cells(derl + k, Catelier) = Rempl_Inv_TUY_TRAV.TUY_TRAV_ListBox.List(k, 2)
                .Cells(derl + k, Cdat) = Now
            Next
        End If
    End With
 
    Unload Rempl_Inv_TUY_TRAV
End Sub

09/09/2016, 14h33
Invité

tue peux définir des viable public dans ton UseForm! mais tu ne peux pas y avoir accès comme ça il faut décliner arborescence de ta variable {UserForm.VartavleTableau}.

en revanche comme pour l’exemple de la sub test plus haut, tu peux déclarer tes variable publique dans un module standard, de ce fait yu y accède de n’importe où y compris de on UserForm.