Fichier qui ne marche pas

Salut à tous!

Voila, j'utilise un fichier Excel pour mon boulot. Depuis que j'ai changé d'ordinateur, j'ai des grosses difficultés à utiliser les listes déroulante de ce fichier. Dès que je clique sur un des choix de la liste, le rond (anciennement sablier) se met à tourner, le pointeur se met à clignoter très vite et à sautiller, sans fin. Je suis parfois obligé de faire un CTRL+ALT+SUPR pour m'en sortir. J'ai changé de version d'Excel, en vain.

Si je mets le fichier à disposition, est ce que vous pourriez le tester pour moi et éventuellement me dire ce qui ne va pas.

https://www.dropbox.com/s/haxhdzk4ivuolla/etat_nominatif_2015_v1.xls?dl=0

Vous pouvez par exemple essayer de cliquer sur la colonne "Nature" et choisir n'importe quoi dans la liste pour voir ce que cela donne.

Merci d'avance pour votre aide précieuse.

Bonjour,

Je viens de regarder un peu ton code.

Déjà dans le code de la feuille donnees, tu fais une boucle sur 806 lignes. Il est préférable de limiter cette boucle au nombre de majeur.

Voici une partie du code que tu peux modifier.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Range(Target.Address).Interior.ColorIndex = 3 Then
    ActiveSheet.Unprotect "MP2005"
    Range(Target.Address).Interior.ColorIndex = 36
    ActiveSheet.Protect "MP2005"
    End If
SaisieCorrecte = True
If Automatique = True Then Exit Sub
Automatique = True
Call DefinirDureeEtatNominatif
Application.ScreenUpdating = False
NbMajeur = Range("A" & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne A
For LigneEnCours = 7 To NbMajeur '

Pense à déclarer Public NbMajeur as integer dans le module 1

Pense à remettre les evenements à true Application.enableEvents=True en fin de ce code

Je pense que tu devrais trouver du changement.

Une remarque encore l'Application.ScreenUpdating peut faire des sauts à l'écran dans la mesure où tu passes de false à true inutilement.

Il faut tenter de les limiter.

Pour cela il faut suivre ton code pas à pas et supprimer les inutiles.

Cordialement

Déjà, merci beaucoup pour ta réponse. Le problème c'est que je suis simple utilisateur "lambda" d'Excel.

C'est vraiment du chinois pour moi et je suis bien incapable de modifier tout ça. Est ce que tu peux m'en dire un peu plus ou bien est ce que tu penses que je dois m'adresser à la personne qui a créer le fichier?

Merci encore.

Non, inutile de demander à l'auteur. Voici le fichier.

Cordialement

ddetp88

Y a encore des types en or sur cette putain de planète.

Que de dire de plus que MERCI MERCI et ENCORE MERCI MILLE FOIS.

Hé, çà fait plaisir!

Merci à toi pour ta gentillesse et au plaisir de te rendre service.

ddetp88