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

 

[woofette]

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

En fait, d'un seul coup j'ai l'impression que l'erreur ne se fait plus par contre j'en ai une nouvelle : "impossible de définir la propriété visible de la classe worksheet"

Et c'est sur le code :

Sub masquer()
Dim cptr As Byte
Sheets("...").Visible = True
For cptr = 1 To ThisWorkbook.Sheets.Count
    If Sheets(cptr).Name <> "..." Then
        Sheets(cptr).Visible = False
    End If
Next
End Sub

Je veux fermer toutes les feuilles sauf la feuille dont le nom est ...
Ca marchait très bien sur excel 2011 mac..

 

[Pierrot93]

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

Bonjour,

essaye comme ceci :

Sheets("NomFeuille").Visible = xlSheetVisible 'ou xlSheetHidden

la feuille doit exister dans le classeur actif... ou dans le classeur ou est exécuté le code si tu as placé ce code dans le module "thisworkbook"

bonne journée
@+

 

[woofette]

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

En fait les deux erreurs se cumulent...

 

[Pierrot93]

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

Re,

pour ton 2ème problème, au moins une feuille doit être visible, à vérifier au moment du "plantage"...

 

[woofette]

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

Bonjour,

essaye comme ceci :

Sheets("NomFeuille").Visible = xlSheetVisible 'ou xlSheetHidden

la feuille doit exister dans le classeur actif... ou dans le classeur ou est exécuté le code si tu as placé ce code dans le module "thisworkbook"

bonne journée
@+

Bonjour Pierrot, toujours le même problème même avec ton code !

Merci beaucoup

 

[Hicsygrek]

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

Hello Woofette,

essaye :

Sub masquer()
Dim cptr As Byte
Sheets("'...'").Visible = True
For cptr = 1 To ThisWorkbook.Sheets.Count
    If Sheets(cptr).Name <> "'...'" Then
        Sheets(cptr).Visible = False
    End If
Next
End Sub

j'ai juste ajouté un apostrophe de chaque coté du nom de la feuille ...
A+

 

[woofette]

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

Re,

pour ton 2ème problème, au moins une feuille doit être visible, à vérifier au moment du "plantage"...

J'avais déjà commis cette erreur et j'ai modifié en conséquence, ça n'est donc pas ça.

 

[woofette]

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

Hello Woofette,

essaye :

Sub masquer()
Dim cptr As Byte
Sheets("'...'").Visible = True
For cptr = 1 To ThisWorkbook.Sheets.Count
    If Sheets(cptr).Name <> "'...'" Then
        Sheets(cptr).Visible = False
    End If
Next
End Sub

j'ai juste ajouté un apostrophe de chaque coté du nom de la feuille ...
A+

Toujours le même message d'erreur...

 

[Pierrot93]

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

Re,
pas sûr que tu ais vu mon post de 9h30....

 

[Pierrot93]

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

Re,

combien de feuilles dans le classeur en question ???

 

[woofette]

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

Re,
pas sûr que tu ais vu mon post de 9h30....

Celui qui dit qu'au moins toujours une feuille doit être visible ?
Sisi, je fais toujours un visible = true avant un visible = false.

Mais ce qui me chagrine le plus c'est que mon code marche sur mac...

 

[woofette]

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

Re,

combien de feuilles dans le classeur en question ???

27 feuilles !

 

[Pierrot93]

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

Re,

non, je parlais du post #3

 

[Kiseki]

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

Bonjour à tous,

Essaye de remplacer les ' par "

Je ne sait pas pourquoi certaine version fonctionnerai avec un et non l'autre.

Sinon fait nous parvenir ton fichier, même allégé (suppression du contenu de chaque feuille par exemple).