Problème de mise àjour listbox

[webmasternic]

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

 

[Robert]

Re : Problème de mise àjour listbox

Bonsoir Webmaternic, bonsoir le forum,

Tu comprendras que pour assimiler ton problème il nous faudrait recréer ton environnement dans un fichier vierge... Moi franchement j'ai la flemme et j'estime que c'est à toi de le faire. Ça sert a rien de balancer 200 lignes de code !
Sinon, quand je veux actualiser une Listbox dans une Userform, je ferme l'userform et la réouvre aussitôt après...

 

[webmasternic]

Re : Problème de mise àjour listbox

Désolé, le fichier est d'une taille importante - il a été réduit.

Le fichier comprend les userform suivants :

UserFormCreation pour la création des enregistrements
UserFormRechercheRapide pour la gestion des enregistrements