Manip. pour rendre moins lent Excel 2013

Bonjour,

J'ai une petite question sur Excel 2013 car je le trouve très lent et de plus j'ai une macro qui fonctionnait super bien sur 2010 et la patatra ça rame tellement que ma macro "Bugue".

Je voudrais tester une manipulation sur mon ordinateur :

- Cliquez sur le bouton "Démarrer", en bas et à gauche de l'écran de l'ordinateur.

- Dans la zone de texte, saisissez la commande "regedit".

Vous ouvrez l'éditeur de Registre.

- Cherchez la clé de registre HKEY_CURRENT_USER

Déroulez les éléments de la clé : Software, Microsoft, Office, 15.0 et enfin Common.

- En haut de l'écran, cliquez sur le menu "Édition", puis sur "Nouveau".

Sélectionnez "Clé".

- Dans le champ de la nouvelle clé, nommez-la "Graphics".

- Sélectionnez la nouvelle clé que vous venez de créer.

Cliquez sur le menu "Édition", puis "Nouveau" et ensuite sélectionnez "Valeur DWORD 32 bits", quelle que soit la version de votre Windows.

- Nommez la nouvelle valeur "DisableAnimations".

Faites un double-clic dessus.

- Dans le champ "Données de la valeur", saisissez "1".

Validez par "Ok".

Est ce que cette manip. fonctionne et quelle est le résultat que je devrai voir sur excel?

Merci d'avance de votre réponse. c'est super important pour mon boulot

Bonjour,

Touche Windows + U

Dans "Améliorer la lisibilité de l'ordinateur", tu coches "Désactiver toutes les animations (si possible)".

Le résultat est immédiat, sans avoir besoin d'utiliser Regedit.

Cdlt.

et cette manip est visible sur excel?

Comment je sais que cette manip. fonctionne ?

Re,

Tu devrais remarquer un démarrage plus rapide d'Excel. Pour le reste, mesure le temps (timer) d'exécution de tes procédures avec la case cochée, puis décochée.

Utilise la procédure ci-dessous...

Cdlt.

(*) n'utiliser EnableEvents que si ta procédure est exempte de bugs.

Public Sub DEMO()
Dim modeCalc As XlCalculation
Dim Start As Single, Finish As Single

    Start = Timer

    With Application
        modeCalc = .Calculation
        .Calculation = xlCalculationManual
        '.EnableEvents = False
        .ScreenUpdating = False
    End With

    'procédure

    With Application
        .Calculation = modeCalc
        '.EnableEvents = True
    End With

    Finish = Timer

    MsgBox "temps total = " & Format(Finish - Start, "0.00") & " secondes", vbInformation

End Sub

ok je vais tester

Merci

Re,

Tu aurais dû tester avant de clore le sujet.

A te relire.

Cdlt.