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.
Quelqu'un a-t-il une idée?
Merci d'avance
Cordialement,
Guiv
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