Discussion :

[BERRACHED SAID]

Bonjour le Forum

je viens solliciter vos lumières concernant un code que j'ai mis pour naviguer en quelque sorte entre plusieurs vues en utilisant CustomViews affichage personnalisé le code en question fonctionne seulement il est lourd avec des flash d’écran et parfois je Click 2 fois sur le bouton pour que j'arrive a l’exécuter donc je vous demande s'il y a moyen de parfaire.

voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub MnAdmin()
On Error Resume Next
'Feuil1.Protect Contents:=False, UserInterfaceOnly:=False, DrawingObjects:=True
 Application.ScreenUpdating = False
 Application.Calculation = xlCalculationManual
 ActiveWorkbook.CustomViews("Mn1").Show
 Sheets(1).ScrollArea = "A1:T34"
 'Feuil1.ScrollArea = "A1:T34"
 Application.ScreenUpdating = True
 Application.Calculation = xlCalculationAutomatic
 MsfORM
'Feuil1.Protect Contents:=True, UserInterfaceOnly:=True, DrawingObjects:=True
End Sub

Merci et bonne journée

[Daniel.C]

Bonjour,

Je ne constate pas ce problème avec Excel 2013. Quelle est ta version ?
PS. j'ai mis la ligne :

Code :

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

MsfORM

en commentaire. Essaie de voir si le problème ne vient pas de là.

[BERRACHED SAID]

Salut Daniel et merci

je suis sur excel 2007.

Msform c'est un code qui cache un formulaire de saisie je pense pas que le problème vient de la, j'ai essayé en le désactivant même chose.

il faut ou alléger ce code pour qu'il s’exécute convenablement ou bien j'ai un doute par le fait que ce code est associer a un bouton que j'ai créer a l'aide des formes d'excel.

reste a confirmer

[Daniel.C]

Je viens de tester avec Excel 2007. La macro s'exécute instantanément. Est-ce que tu n'aurais pas une macro événementielle qui ralentirait l'exécution ? Essaie, en l'exécutant ligne à ligne de voir à quel endroit la macro est ralentie.

[BERRACHED SAID]

Salut Daniel

j'en ai aucun macro événementielle sauf bien sur celui qui cache le formulaire
il aussi sur Workbook_Activate().

Code :

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

1
2
3
Private Sub Workbook_Activate()
Formul2
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Formul2()
 
   Feuil1.Shapes("image 30").Visible = False
   Feuil1.TextF1.Visible = False
   Feuil1.TextF2.Visible = False
   Feuil1.TextF3.Visible = False
   Feuil1.TextF4.Visible = False
   Feuil1.LabF1.Visible = False
   Feuil1.LabF2.Visible = False
   Feuil1.LabF3.Visible = False
   Feuil1.LabF4.Visible = False
    Feuil1.CommandButton1.Visible = False
End Sub

merci Daniel

[Daniel.C]

Est-ce que tu as testé l'exécution ligne à ligne (avec la touche F8) ?

[BERRACHED SAID]

salut daniel

oui j'ai testé ligne par ligne mais toujours le même résultât a la suite de ça j'ai refait le code de cette façon on pourra pas dire que c'est le top mais tous juste un petit léger mieux :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub MnAdmin()
On Error Resume Next
'Feuil1.Protect Contents:=False, UserInterfaceOnly:=False, DrawingObjects:=True
 With Application
           .EnableEvents = False
           .ScreenUpdating = False
           .Calculation = xlCalculationManual
        End With
        With ActiveWorkbook
            .CustomViews("Mn1").Show
            .Sheets(1).ScrollArea = "A1:T34"
        End With
        With Application
           .EnableEvents = True
           .ScreenUpdating = True
           .Calculation = xlCalculationAutomatic
        End With
'Feuil1.Protect Contents:=True, UserInterfaceOnly:=True, DrawingObjects:=True
End Sub

merci encore

[Daniel.C]

Le problème vient peut-être de ton classeur. Essaie avec un classeur vierge.