l'indice n'appartient pas à la sélection

[woofette]

Bonjour, j'ai écrit une base de donnée sur mon mac et maintenant c'est le moment de la transférer sur un ordinateur windows.

Bon déjà j'ai eu les problèmes des accents sur les noms des feuilles mais c'est réglé.

Maintenant sur le nom d'une seule feuille j'ai un bug "erreur d'éxécution '9' "
Les lignes concernées sont toutes :

Sheets("...").visible = true 
Sheets("...").visible = false

J'ai beau changé le nom de la feuille comme je veux le problème ne part pas et n'a pas l'air d'arriver sur les autres feuilles

Merci pour votre aide, c'est très important

 

[Dranreb]

Re : l'indice n'appartient pas à la sélection

Bonjour à tous.
Permettez moi de vous signaler une incohérence que personne ne semble avoir vu :

For cptr = 1 To ThisWorkbook.Sheets.Count
If Sheets(cptr).Name <> "'...'" Then
Sheets(cptr).Visible = False
End If

On boucle sur les feuilles du classeur actif selon le nombre de feuilles du classeur qui porte la macro !
si ce ne sont pas un seul et même classeur c'est normal que ça bogue !
Un conseil: Qualifiez toujours tous les objets pris de collections par les parents de celles ci. Ce ne sont pas les expressions qui manquent pour cela.
Cordialement

P.S. Remarque: dans ce cas il vaudrait mieux écrire:

Dim F As Object ' et non Worksheet car au contraire de Worksheets, _
                  Sheets peut aussi contenir des Chart
For Each F In ThisWorkbook.Sheets ' (ou ActiveWorkbook.Sheets ?)
    If F.Name <> "'...'" Then F.Visible = False
    Next F

À+

 

[PascalXLD]

Re : l'indice n'appartient pas à la sélection

Bonjour

Tu n'aurais pas par hasard une référence de marquée manquante ?