Thomas_Abitbol
XLDnaute Nouveau
Bonjour à tous,
Depuis peu j'ai commencé un programme afin de gérer la maintenance des équipements dans des PME PMI. J'ai réalisé mes codes qui vont parfaitement bien (J'en suis étonné moi même étant débutant en VBA) mais mon seul soucis est que je suis obligé de fermé mon programme et le relancer afin de voir les nouvelles entrées dans mes listbox. De ce fait j'aimerais donc ajouter une commande qui permet d'actualiser mon menu principal sans avoir besoin de le fermer pour voir les nouvelles entrées.
Voici le code dans lequel je voudrais implanter la commande d'actualisation :
Private Sub CommandButtonvaliderajoutmachine_Click()
Sheets("Equipements").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
'Range("A1").Select
Range("A1").Value = Range("A2").Value + 1
Range("B1").Value = Ajouterunemachine.TextBox1.Value
Sheets("=> PROGRAMME <=").Select
Ajouterunemachine.Hide
End Sub
En vous remerciant d'avance pour vos futures réponses
Depuis peu j'ai commencé un programme afin de gérer la maintenance des équipements dans des PME PMI. J'ai réalisé mes codes qui vont parfaitement bien (J'en suis étonné moi même étant débutant en VBA) mais mon seul soucis est que je suis obligé de fermé mon programme et le relancer afin de voir les nouvelles entrées dans mes listbox. De ce fait j'aimerais donc ajouter une commande qui permet d'actualiser mon menu principal sans avoir besoin de le fermer pour voir les nouvelles entrées.
Voici le code dans lequel je voudrais implanter la commande d'actualisation :
Private Sub CommandButtonvaliderajoutmachine_Click()
Sheets("Equipements").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
'Range("A1").Select
Range("A1").Value = Range("A2").Value + 1
Range("B1").Value = Ajouterunemachine.TextBox1.Value
Sheets("=> PROGRAMME <=").Select
Ajouterunemachine.Hide
End Sub
En vous remerciant d'avance pour vos futures réponses