XL 2016 VBA - Erreur utilisation de Application.Goto

[danielco]

Bonjour,

J'obtiens une erreur d'exécution 1004 "la méthode 'GoTo' de l'objet "_Application a échoué"

Application.Goto .Range("A1"), True

(Il y a bien une instruction "With" auparavant).

Merci d'avance.

Daniel

 

[Staple1600]

Bonjour

Pas d'erreur chez moi avec ce test

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

 

[danielco]

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 :

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

fonctionne.

 

[Staple1600]

Re

A tester peut-être si protection

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

 

[danielco]

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.

 

[job75]

Bonjour danielco, JM,

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

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

A+

 

[danielco]

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

 

[danielco]

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

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

 

[Jacky67]

Bonjour danielco, JM,

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

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

A+

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

 

[danielco]

Bonjour @Jacky67

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

Daniel

 

[job75]

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

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

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

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

 

[danielco]

J'ai extrait le feuille.

Daniel

 

[job75]

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...

 

[job75]

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

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

 

[danielco]

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

Daniel