Il y a actuellement 69 visiteurs
Vendredi 30 Juillet 2021
accueilactualitésdossierscomparer les prixtélécharger gratuitement vos logicielsoffres d'emploiforum informatique
Connexion
Créer un compte

[Excel] Commande "anti - lag"

Besoin d'aide pour configurer un serveur ? Vous souhaitez obtenir des conseils pour référencer votre site ? Un petit souci pour accéder à votre FTP ? Des soucis de programmation en PHP / ASP / HTML / XHTML / XML / XSLT / CSS / ReactJS / AngularJS / VueJS / CGI / PERL / C / MySQL / PostgreSQL ??? Nous avons peut-être la solution dans ce forum ...

[Excel] Commande "anti - lag"

Message le 01 Juin 2011 10:10

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 !
badoo
Visiteur
Visiteur
 
Messages: 9
Inscription: 06 Mai 2011 08:25
 


Re: [Excel] Commande "anti - lag"

Message le 06 Juin 2011 14:17

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.
Image
Avatar de l'utilisateur
RobinSG
Moderateur
Moderateur
 
Messages: 1514
Inscription: 29 Juin 2004 14:26
Localisation: Atys
 

Re: [Excel] Commande "anti - lag"

Message le 09 Juin 2011 09:27

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 ?
badoo
Visiteur
Visiteur
 
Messages: 9
Inscription: 06 Mai 2011 08:25
 

Re: [Excel] Commande "anti - lag"

Message le 09 Juin 2011 14:06

Ça coince comment ? (blocage, message d'erreur, ...)
Image
Avatar de l'utilisateur
RobinSG
Moderateur
Moderateur
 
Messages: 1514
Inscription: 29 Juin 2004 14:26
Localisation: Atys
 

Re: [Excel] Commande "anti - lag"

Message le 09 Juin 2011 14:14

Blocage.
badoo
Visiteur
Visiteur
 
Messages: 9
Inscription: 06 Mai 2011 08:25
 

Re: [Excel] Commande "anti - lag"

Message le 09 Juin 2011 15:31

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)
Image
Avatar de l'utilisateur
RobinSG
Moderateur
Moderateur
 
Messages: 1514
Inscription: 29 Juin 2004 14:26
Localisation: Atys
 



Sujets similaires

Message Ordi bloqué sur "préparation de la réparation automatique
Bonjour,Mon ordi HP Envy Notebook 15 sous windows 10 s'est bloqué au démarrage sur page écran HP en "préparation de la réparation automatique". J'ai laissé tourner... mais ça tourne des heures (j'ai essayé 26h) en vain. Puis j'ai essayé un "démarrage à froid" sans plus de succès. ...
Réponses: 4

Message Réponse en mode "groupe" ?
Bonjour, mon père a un téléphone de la marque Essentiel (la marque de la franchise Boulanger). Sur son téléphone, quand il envoie un message (sms) à plusieurs personnes, ça lui met une conversation en mode groupe, avec tout le monde qui peut participer et répond donc à tout le monde. En soi, c'est p ...
Réponses: 0

Message Commande MSG (net send)
Bonjour,je recherche, jusque là sans succès, à utiliser le successeur de la commande "NET SEND".Je précise, je ne souhaite pas utiliser de logiciel, mais une commande DOS.Je souhaite en effet pouvoir envoyer un message sur un autre PC de mon réseau domestique.Par le passé, j'utilisais pas ...
Réponses: 3

Message Retour à l'état d'usine: problème "error"
Bonjour,Mon pc étant relativement lent (windows 7 edition familliale premium 64bits, asus x5die de 2008) j'ai voulue le remettre aux paramètres d'usine via la touche f9 au démarrage de windows. En option j'ai choisis de ne refaire que la partition système C.Voici la procédure que j'ai suivi (pour un ...
Réponses: 15

Message [Réglé]Latitude 5580 bloqué sur "redémarrage en cours"
Bonjour à tous,Mon ordinateur portable, Dell Latitude 5580, est bloqué sur « redémarrage en cours » suite à une demande de redémarrage de l?ordi après une mise à jour d?acrobat reader.J?ai un écran bleu avec écrit redémarrage en cours et le logo du chargement qui tourne en boucle, quand j?éteinds et ...
Réponses: 9

Message Mise à jour sur 32 Go de " disque dur "
Un petit tutoriel pour aider à faire les Maj sur ces " scogneugneu " de PC ayant 32 Go de "disque dur" Déjà ce n'est pas un disque dur mais de la mémoire flash comme une clé usb, ce qui explique aussi qu'il n'y a pas de système de refroidissement sur ces mini-machines et le gain ...
Réponses: 5

Message PC Portable "Gamer"
Hello tout le monde,Je reviens vers vous pour de petits conseils pour une config pour un pote.@EZ : Je suis partie sur une petite config d'un portable (Il ne veut pas d'une grosse unité centrale encombrante) sur laquelle on ajoutera clavier/souris/écran.Dans l'idée le pc serait pour une utilisation ...
Réponses: 7


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 1 invité


.: Nous contacter :: Flux RSS :: Données personnelles :.