j'ai une question concernant les classes
j'ai dans mon USF 12 frames chaque frame contient un textbox_mt,combobox_na,textbox_re,combobox_ba,textbox_da
i de 1 a 12 frame de i contient un textbox_mt de i ,combobox_na de i,textbox_re de i,combobox_ba de i,textbox_da de i
je souhaite les gérer dans une classe
dans ma classe j'ai mis
dans mon USF
merci pour l'aide
j'ai dans mon USF 12 frames chaque frame contient un textbox_mt,combobox_na,textbox_re,combobox_ba,textbox_da
i de 1 a 12 frame de i contient un textbox_mt de i ,combobox_na de i,textbox_re de i,combobox_ba de i,textbox_da de i
je souhaite les gérer dans une classe
dans ma classe j'ai mis
VB:
Option Explicit
Public WithEvents cb As MSForms.ComboBox
Public WithEvents tb As MSForms.TextBox
Private Sub cb_Change()
If cb.ListIndex <> 0 And cb.ListIndex <> 1 Then
pour chaque combobox_na de i je souhaite afficher tetbox_re de i qui est masquer lors de l'initialisation
End If
End Sub
Code:
Private MesObjets() As New Classe_LigneEncaissement
Sub UserForm_Initialize()
Dim i As Byte
For i = 1 To 12
ReDim Preserve MesObjets(1 To i)
Set MesObjets(i).cb = Me.Controls("ComboBox_na" & i)
Set MesObjets(i).tb = Me.Controls("TextBox_re" & i)
Next i
end sub