Discussion :

[MicroMatz]

Bonjour,

J'ai un problème bizarre sur mon fichier excel.
Après exécution d'une macro, la roulette de la souris ne fonctionne plus dans la feuille.
Pour rétablir son fonctionnement, je dois changer de fenêtre puis revenir (alt tab).
Même si je sélectionne une autre cellule dans ma feuille, la roulette ne refonctionne pas.
Par contre si je modifie une cellule en déprotégeant la feuille, ça revient.
Cela me fait penser à une perte de "focus".

Est-ce que ce problème vous est déjà arrivé ?

Pour info, mes macros contiennent :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Application.ScreenUpdating = True/False
Application.Calculation = xlCalculationManual/Automatic
Application.EnableEvents = True/False
Worksheets("name").Unprotect/Protect ("password")

Merci d'avance pour vos réponses !

[SfJ5Rpw8]

Bonjour ..

c'est quoi cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating = True/False

tu l'utilise vraiment comme cela ?

[MicroMatz]

Application.ScreenUpdating = True permet d'activer la mise à jour automatique de l'affichage.
Application.ScreenUpdating = False permet de désactiver la mise à jour automatique de l'affichage.
Cela peut permettre une exécution plus rapide du code.

[SfJ5Rpw8]

merci ... cela je le sais ... mais c'est pas ce que je vois dans ton code du post #1

poste donc ton vrai code ...!

[MicroMatz]

Le problème venait d'une ligne Worksheets("Onglet1").Select.

Si VBA sélectionne cette feuille alors que c'est déjà la feuille active, le bug se produit.

La solution est d'utiliser if ActiveSheet.Name <> "Onglet1" Then Worksheets("Onglet1").Select.

[Theze]

Bonjour,

Comme le dit bbil, cette commande n'a aucun sens (c'est soit l'un soit l'autre) et en plus, elle provoque une erreur de division par zéro : True = -1 et False = 0