Discussion :

[cylap]

Dans le code suivant (qui s'active à l'ouverture), je veux ajouter des restriction de navigation sur plusieurs pages (ScrollArea).
j'ai tenté de les ajouter au code déjà existant :

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
20
21
22
23
24
25
26
Private Sub Workbook_Open()

      Application.DisplayFormulaBar = False
    With ActiveWindow
    Worksheets("feuill 1").Activate
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
       
    End With
   with
Worksheets("feuill 1").ScrollArea = "d3"
Worksheets("feuill 2").ScrollArea = "b3"
Worksheets("feuill 3").ScrollArea = "a7:ab80"

end With

      Application.DisplayFullScreen = True
 
  Select Case MsgBox("Avez-vous enregistrer le fichier de base de la Méthodo" & Chr(10) & "sur votre Disque Dur?", vbExclamation + vbYesNo + vbApplicationModal + 256, "Enregistrement Méthodo")
     Case vbYes
        'procédure si click sur Oui
    Case vbNo
        Application.Dialogs(xlDialogSaveAs).Show
End Select
End Sub

mais voila ça ne fonctionne pas

j'ai cherché un peu partout (FAQ ...), pas de sollution à mon pb.

[Theze]

Bonjour,

De cette façon chez moi ça fonctionne :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Private Sub Workbook_Open()
 
    Application.DisplayFormulaBar = False
 
    Worksheets("feuill 1").Activate
 
    With ActiveWindow
 
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
        .DisplayWorkbookTabs = True
 
    End With
 
    Worksheets("feuill 1").ScrollArea = "D3"
    Worksheets("feuill 2").ScrollArea = "B3"
    Worksheets("feuill 3").ScrollArea = "A7:AB80"
 
    Application.DisplayFullScreen = True
 
    Select Case MsgBox("Avez-vous enregistré le fichier de base de la Méthodo" & Chr(10) & "sur votre disque dur ?", _
                        vbExclamation + vbYesNo + vbApplicationModal + 256, _
                        "Enregistrement Méthodo")
 
        Case vbYes
 
            'procédure si click sur Oui
 
        Case vbNo
 
            Application.Dialogs(xlDialogSaveAs).Show
 
    End Select
 
End Sub

Hervé.