Affichage farfelu

Guiv · 23 Juillet 2009

Bonjour à tous,
Il m'arrive un truc curieux. J'ai construit un fichier "plannings", assorti de moultes macros, formules, listes de validation et autres MFC... C'est un peu poussif mais ça fonctionne... parfois! Car voilà que de temps en temps (pas toujours), lorsque je navigue entre les feuilles (par macro), les lignes se mélangent (voir image jointe), et c'est le Bronx dans les formats, les validations et le reste... Mon joli tableau est en vrac!
J'ai essayé sur d'autres PC, c'est pareil.
En fait j'ai 2 moyens de naviguer entre les onglets: par choix sur un calendrier (et là pas de problème), ou par flèches avec macros et c'est là que ça merdouille de temps en temps. Ce qui m'étonne c'est que parfois ça fonctionne bien et parfois non.
Je vous copie les macros à tout hasard mais elles m'ont l'air correctes.

Code:

Sub Précédente()
Dim NomService As String
NomService = ActiveSheet.Range("A2") 

Application.ScreenUpdating = False

If  ActiveSheet.Index > 4 Then
    ActiveSheet.Previous.Activate
    ActiveSheet.Unprotect Password:="toto"
    ActiveSheet.Range("A2") = NomService
    ActiveSheet.Protect Password:="toto"
    ActiveSheet.EnableSelection = xlUnlockedCells

End If

Application.ScreenUpdating = True
End Sub

*********************************************

Sub Suivante()
Dim NomService As String
NomService = ActiveSheet.Range("A2")
Application.ScreenUpdating = False

If  ActiveSheet.Index <> Sheets.Count Then
    ActiveSheet.Next.Activate
    ActiveSheet.Unprotect Password:="toto"
    ActiveSheet.Range("A2") = NomService
    ActiveSheet.Protect Password:="toto"
    ActiveSheet.EnableSelection = xlUnlockedCells

End if

Application.ScreenUpdating = True
End Sub

Quelqu'un a-t-il une idée?
Merci d'avance

Cordialement,
Guiv

Affichage farfelu

Guiv

XLDnaute Occasionnel

Pièces jointes

Discussions similaires