[Excel] Commande "anti - lag"

[badoo]

Bonjour,

Je suis en train de créer une base de donnée sous excel et donc pour pouvoir la mettre à jour j'ai crée une macro permettant d'insérer une nouvelle entrée. Donc une fenêtre s'affiche avec les différents champs à remplir pour ajouter une ligne à mon tableau. Cependant lorsque je valide on remarque un lag assez prononcé. Existe t-il une commande vba qui permettrai de supprimer ce lag ?

Voici le code de la macro si ça peut servir :

Sub NouvelleEntrée()
FNouvelleEntrée.Fessai.Value = ""
FNouvelleEntrée.FDescription.Value = ""
FNouvelleEntrée.FDate.Value = ""
FNouvelleEntrée.FCR.Value = ""
FNouvelleEntrée.FOperateur.Value = ""
FNouvelleEntrée.FProjet.Value = ""
FNouvelleEntrée.FBasePDM.Value = ""
FNouvelleEntrée.Show
If Retour = "Cancel" Then
Exit Sub
End If
Réinit
Selection.End(xlDown).Select
Selection.EntireRow.Insert

ActiveCell.Value = FNouvelleEntrée.Fessai.Value
ActiveCell.Offset(0, 1).Value = FNouvelleEntrée.FDescription.Value
ActiveCell.Offset(0, 2).Value = FNouvelleEntrée.FDate.Value
ActiveCell.Offset(0, 3).Value = FNouvelleEntrée.FCR.Value
ActiveCell.Offset(0, 4).Value = FNouvelleEntrée.FOperateur.Value
ActiveCell.Offset(0, 5).Value = FNouvelleEntrée.FProjet.Value
ActiveCell.Offset(0, 6).Value = FNouvelleEntrée.FBasePDM.Value

Tri
ActiveWorkbook.Save

End Sub

Merci d'avance !

[RobinSG]

Bonjour,

Tu peux essayer :

Sub NouvelleEntrée()
FNouvelleEntrée.Fessai.Value = ""
FNouvelleEntrée.FDescription.Value = ""
FNouvelleEntrée.FDate.Value = ""
FNouvelleEntrée.FCR.Value = ""
FNouvelleEntrée.FOperateur.Value = ""
FNouvelleEntrée.FProjet.Value = ""
FNouvelleEntrée.FBasePDM.Value = ""
FNouvelleEntrée.Show
If Retour = "Cancel" Then
Exit Sub
End If
Application.ScreenUpdating = False
Réinit
Selection.End(xlDown).Select
Selection.EntireRow.Insert

ActiveCell.Value = FNouvelleEntrée.Fessai.Value
ActiveCell.Offset(0, 1).Value = FNouvelleEntrée.FDescription.Value
ActiveCell.Offset(0, 2).Value = FNouvelleEntrée.FDate.Value
ActiveCell.Offset(0, 3).Value = FNouvelleEntrée.FCR.Value
ActiveCell.Offset(0, 4).Value = FNouvelleEntrée.FOperateur.Value
ActiveCell.Offset(0, 5).Value = FNouvelleEntrée.FProjet.Value
ActiveCell.Offset(0, 6).Value = FNouvelleEntrée.FBasePDM.Value

Tri
Application.ScreenUpdating = True
ActiveWorkbook.Save

End Sub

"Application.ScreenUpdating" permet de désactiver/réactiver le rafraîchissement automatique de l'écran lors de la mise à jour des cellules.

[badoo]

Tout d'abord merci d'avoir répondu !
Donc j'ai fais ta manip mais ça coince au de niveau de cette ligne : "Selection.EntireRow.Insert"
que faire ?

[RobinSG]

Ça coince comment ? (blocage, message d'erreur, ...)

[badoo]

Blocage.

[RobinSG]

Essaye de rajouter "Application.ScreenUpdating = True" après "Réinit" et "Application.ScreenUpdating = False" après "Selection.EntireRow.Insert".

Tu peux aussi faire une exécution en mode "pas à pas" (et si tu as un "On Error Resume Next", mets le en commentaire le temps de faire les tests)