XL 2016 VBA - Erreur utilisation de Application.Goto

Staple1600

XLDnaute Barbatruc

• 12 Décembre 2020

• #2

Bonjour

Pas d'erreur chez moi avec ce test

VB:

Sub testt()
With ActiveSheet
Application.Goto .Range("S1600"), True
End With
End Sub

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 12 Décembre 2020

• #3

Oui, bizarre. La feuille est protégée. Je ne connais pas ce qui a été coché dans les options de protection, mais je peux sélectionner A1 :

VB:

    With Sheets("Prop")
      .Select
      [A1].Select

fonctionne.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Décembre 2020

• #4

Re

A tester peut-être si protection

VB:

Sub test_B()
With ActiveSheet
.Unprotect
Application.Goto .Range("A10"), True
.Protect
End With
End Sub

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 12 Décembre 2020

• #5

Merci. Malheureusement, je n'ai pas le mot de passe (je l'attends depuis deux jours...).
Je crois qu'il va falloir attendre. Désolé de ne pas pouvoir aller plus loin. J'ai fait un test avec un autre classeur et une feuille protégée (options de protection par défaut). Pas de problème.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Décembre 2020

• #6

Bonjour danielco, JM,

Je ne comprends pas, chez moi ceci fonctionne que la feuille soit protégée ou non :

VB:

Sub a()
With Sheets("Prop")
    .Visible = xlSheetVisible 'si la feuille est masquée
    Application.Goto .[A1], True
End With
End Sub

A+

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 12 Décembre 2020

• #7

Bonjour @job75
Merci de ton intervention. Oui, moi aussi, avec un autre classeur. La feuille est protégée et je n'ai pas accès aux options de protection. Je vais attendre d'avoir le mot de passe.

Daniel

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 12 Décembre 2020

• #8

Voici le début de la macro (les lignes commentées, elles, fonctionnent) :

VB:

Private Sub Workbook_Open()
  With Sheets("Prop")
    .Range("L34:L35") = ""
'    .Select
'    [A1].Select
    Application.Goto .Range("A1"), True
  End With

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 12 Décembre 2020

• #9

job75 à dit:

Bonjour danielco, JM,

Je ne comprends pas, chez moi ceci fonctionne que la feuille soit protégée ou non :

VB:

Sub a()
With Sheets("Prop")
    .Visible = xlSheetVisible 'si la feuille est masquée
    Application.Goto .[A1], True
End With
End Sub

A+

Cliquez pour agrandir...

Bonjour danielco, JM, Job75
Chez moi aussi (xl2007)
Sauf si......
"Sélectionner les cellules verrouillées" est décoché

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 12 Décembre 2020

• #10

Bonjour @Jacky67

Je n'ai pas accès aux options de protection, mais on peut sélectionner A1, donc...

Daniel

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Décembre 2020

• #11

danielco à dit:

Je n'ai pas accès aux options de protection, mais on peut sélectionner A1, donc...

Cliquez pour agrandir...

...donc normalement la macro de mon post #6 doit fonctionner.

Et ceci aussi si A1 n'est pas sélectionnable :

VB:

Sub b()
With Sheets("Prop")
    .Visible = xlSheetVisible 'si la feuille est masquée
    .Select
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollColumn = 1
End With
End Sub

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 12 Décembre 2020

• #12

J'ai extrait le feuille.

Daniel

 

Pièces jointes

• ApplicationGoTo.xlsx

  20.8 KB · Affichages: 13

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Décembre 2020

• #13

Oui les seules cellules sélectionnables sont les 21 cellules déverrouillées E1:E11, L22:L26, L28:L29, L34:L36.

La macro b de mon post #11 va très bien...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Décembre 2020

• #14

Cela dit pas besoin d'attendre pour ôter le mot de passe, mettez dans un module standard et exécutez :

VB:

Sub SansProtection()
Sheets.Add
With Sheets("Prop")
    .UsedRange.Copy Range(.UsedRange.Address)
    Application.DisplayAlerts = False
    .Delete
End With
ActiveSheet.Name = "Prop"
Application.Goto [A1], True
End Sub

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 12 Décembre 2020

• #15

Merci. je me retrouve avec une feuille non protégée. Ca peut effectivement se gérer, mais sais-tu pourquoi ça bloque ?

Daniel

 

Vote positif 0 Vote négatif