webmasternic
XLDnaute Nouveau
Bonjour,
J'ai créé une petite BD sous Excel. Cette base de donnée comprend un formule de création d'un enregistrement et un formulaire de gestion des enregistrements. Lorsque je créé mon enregistrement et que je souhaite immédiatement le consulter ensuite sous mon formulaire de gestion des enregistrements, il n'est pas automatiquement affiché dans ma listbox. Je suis obligé de ressortir du formulaire gestion enregistrement et d'y revenir. La liste des enregistrement doit s'afficher sous la listbox intitulée ListFaillites :
Dim Item As Byte
'On Error Resume Next
T = False
DoEvents
Sheets("DonneesPrinc").Visible = True
Application.ScreenUpdating = True
Sheets("DonneesPrinc").Activate
Dim Ws As Worksheet
Set Ws = Worksheets("DonneesPrinc")
With Sheets("DonneesPrinc")
tabtemp = .Range("A2:R" & .Range("A65536").End(xlUp).Row).Value
For L = 1 To UBound(tabtemp, 1)
tabtemp(L, UBound(tabtemp, 2)) = 2 + L
Next
NbrCol = UBound(tabtemp, 2) - 1
End With
Region.AddItem "Broye et Nord vaudois"
Region.AddItem "Est vaudois"
Region.AddItem "La Côte"
Region.AddItem "Lausanne"
CatFaillite.AddItem "Privé"
CatFaillite.AddItem "Société"
Procedure.AddItem "Ordinaire"
Procedure.AddItem "Sommaire"
Procedure.AddItem "Suspension"
Procedure.AddItem "Révocation"
Procedure.AddItem "Annulation"
Article731bCO.AddItem "Oui"
Article731bCO.AddItem "Non"
SuccRepudiee.AddItem "Oui"
SuccRepudiee.AddItem "Non"
InscriptionRC.AddItem "Oui"
InscriptionRC.AddItem "Non"
Decouvert.Value = Format(Decouvert.Value, "### ### ##0.00")
ReDim tablo(1 To 16)
tablo(1) = "IDFaillite"
tablo(2) = "DesignationFaillite"
tablo(3) = "DateOuvertureJour"
tablo(4) = "DateOuvertureMois"
tablo(5) = "DateOuvertureAnnee"
tablo(6) = "Gestionnaire"
tablo(7) = "Procedure"
tablo(8) = "DateClotureJour"
tablo(9) = "DateClotureMois"
tablo(10) = "DateClotureAnnee"
tablo(11) = "Decouvert"
tablo(12) = "CatFaillite"
tablo(13) = "Article731bCO"
tablo(14) = "SuccRepudiee"
tablo(15) = "InscriptionRC"
tablo(16) = "Region"
With Me.ListFaillites
.Clear
.ColumnCount = 2
.ColumnWidths = "50;150;00"
For L = 1 To UBound(tabtemp, 1)
.AddItem tabtemp(L, 1)
.Column(1, .ListCount - 1) = tabtemp(L, 2)
.Column(2, .ListCount - 1) = tabtemp(L, UBound(tabtemp, 2))
Next
End With
Worksheets(1).AutoFilterMode = False
CommandButton1.Visible = False
CommandButton11.Visible = False
With ListDonnees1
.ColumnCount = 2
.ColumnWidths = "170;00"
.AddItem ("Gestionnaire")
.Column(1, .ListCount - 1) = 6
.AddItem ("Region")
.Column(1, .ListCount - 1) = 16
End With
LabelNombreDossiers.Caption = ""
Me.LabelNombreDossiers.Caption = Me.ListFaillites.ListCount
Rechercher.SetFocus
Y a-t-il une erreur dans mon code - comment raffraîchir la listbox
J'ai créé une petite BD sous Excel. Cette base de donnée comprend un formule de création d'un enregistrement et un formulaire de gestion des enregistrements. Lorsque je créé mon enregistrement et que je souhaite immédiatement le consulter ensuite sous mon formulaire de gestion des enregistrements, il n'est pas automatiquement affiché dans ma listbox. Je suis obligé de ressortir du formulaire gestion enregistrement et d'y revenir. La liste des enregistrement doit s'afficher sous la listbox intitulée ListFaillites :
Dim Item As Byte
'On Error Resume Next
T = False
DoEvents
Sheets("DonneesPrinc").Visible = True
Application.ScreenUpdating = True
Sheets("DonneesPrinc").Activate
Dim Ws As Worksheet
Set Ws = Worksheets("DonneesPrinc")
With Sheets("DonneesPrinc")
tabtemp = .Range("A2:R" & .Range("A65536").End(xlUp).Row).Value
For L = 1 To UBound(tabtemp, 1)
tabtemp(L, UBound(tabtemp, 2)) = 2 + L
Next
NbrCol = UBound(tabtemp, 2) - 1
End With
Region.AddItem "Broye et Nord vaudois"
Region.AddItem "Est vaudois"
Region.AddItem "La Côte"
Region.AddItem "Lausanne"
CatFaillite.AddItem "Privé"
CatFaillite.AddItem "Société"
Procedure.AddItem "Ordinaire"
Procedure.AddItem "Sommaire"
Procedure.AddItem "Suspension"
Procedure.AddItem "Révocation"
Procedure.AddItem "Annulation"
Article731bCO.AddItem "Oui"
Article731bCO.AddItem "Non"
SuccRepudiee.AddItem "Oui"
SuccRepudiee.AddItem "Non"
InscriptionRC.AddItem "Oui"
InscriptionRC.AddItem "Non"
Decouvert.Value = Format(Decouvert.Value, "### ### ##0.00")
ReDim tablo(1 To 16)
tablo(1) = "IDFaillite"
tablo(2) = "DesignationFaillite"
tablo(3) = "DateOuvertureJour"
tablo(4) = "DateOuvertureMois"
tablo(5) = "DateOuvertureAnnee"
tablo(6) = "Gestionnaire"
tablo(7) = "Procedure"
tablo(8) = "DateClotureJour"
tablo(9) = "DateClotureMois"
tablo(10) = "DateClotureAnnee"
tablo(11) = "Decouvert"
tablo(12) = "CatFaillite"
tablo(13) = "Article731bCO"
tablo(14) = "SuccRepudiee"
tablo(15) = "InscriptionRC"
tablo(16) = "Region"
With Me.ListFaillites
.Clear
.ColumnCount = 2
.ColumnWidths = "50;150;00"
For L = 1 To UBound(tabtemp, 1)
.AddItem tabtemp(L, 1)
.Column(1, .ListCount - 1) = tabtemp(L, 2)
.Column(2, .ListCount - 1) = tabtemp(L, UBound(tabtemp, 2))
Next
End With
Worksheets(1).AutoFilterMode = False
CommandButton1.Visible = False
CommandButton11.Visible = False
With ListDonnees1
.ColumnCount = 2
.ColumnWidths = "170;00"
.AddItem ("Gestionnaire")
.Column(1, .ListCount - 1) = 6
.AddItem ("Region")
.Column(1, .ListCount - 1) = 16
End With
LabelNombreDossiers.Caption = ""
Me.LabelNombreDossiers.Caption = Me.ListFaillites.ListCount
Rechercher.SetFocus
Y a-t-il une erreur dans mon code - comment raffraîchir la listbox