Discussion :

[DeaD78]

Bonjour à toutes et à tous !

J'aurais voulu avoir quelques petites précisions sur le masquage des feuilles. Si une une feuille est définie en tant que Sheets(5) car étant la 5ème du classeur, comment se fait-il que, lorsque je masque toutes les feuilles précédentes, celle-ci ne soit plus la 5ème et je ne puisse plus y référer en tant que Sheets(5)? Le masquage considère-t-il que la feuille masquée n'est plus "présente" dans le classeur?

En réalité, j'aurais voulu masquer de nombreuses feuilles (en VeryHidden même si j'ai juste tenté le Hidden pour l'instant et protégées par mot de passe etc) car ce seraient des feuilles auxquelles l'utilisateur ne devrait pas avoir accès mais auxquelles le "programme" devrait avoir accès afin d'effectuer ses calculs. Comment puis-je réaliser cela : garder la position d'une de mes feuilles centrales en masquant le reste? De plus, je ne souhaite pas m'y référer par le nom sachant que les noms de mes feuilles varient car elles sont créées à partir d'une variable entrée par l'utilisateur au sein de nombreuses boucles imbriquées.

Merci d'avance

[ilcocodrillo]

tu peux faire référence à des valeurs contenues dans une feuilles masquée, dans un calcul par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
résultat= résultat+sheets(5).cells(X,Y)

La limitation est dans la selection de cette feuille tu ne peux pas faire ça par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
sheets(5).cells(x,Y).select

Faire une recherche non plus...

La c'est l'erreur assurée

[zazaraignée]

C'est une très bonne question. J'avoue ne pas trouver de réponse intelligente pour le moment. Mais en attendant, as-tu essayé d'y accéder en utilisant son nom (celui que tu as tapé et qui apparaît normalement dans son onglet).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print Sheets("nomDeLaFeuille").Range("A1").Value

Debug.Print affichera quelque chose si la fenêtre Exécution est affichée (menu Affichage). J'utilise souvent pour les tests (ça évite l'affichage des agaçants MsgBox!).

[DeaD78]

Bonjour et merci de vos réponses !

Et aussi merci pour ces petites explications !

Alors voilà ce que j'ai réussi à comprendre du problème après quelques tests !
Tout d'abord, j'accède bien à ma feuille par son nom (au travers d'une variable) et cela marche bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sheets(TAFT).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets(5).Cells(j, "C").Value
ActiveSheet.Visible = True
Sheets(5).Activate

Je fais en fait une copie à partir d'une feuille "exemple" qui est masquée afin de retravailler dessus par la suite puis je lui donne un nom et je la mets en visible car c'est ce que je souhaite et je retourne enfin à ma feuille "5" qui ne doit jamais être masquée. Pour cela, aucun soucis, ça marche convenablement. Ici, le "TAFT" est une variable correspondant à une ListBox d'un Userform me permettant de choisir parmi mes 5 feuilles exemples pour savoir laquelle je dois copier.

Le problème vient après et je ne sais pas trop comment m'y prendre. J'ai donc créé plusieurs feuilles les unes à la suites des autres à la fin de mon classeur et leur nom est déterminé par une variable rentrée dans une autre feuille comme on peut le voir par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Name = Sheets(5).Cells(j, "C").Value

Le nom de ces feuilles n'est donc jamais le même ainsi que leur nombre. Je dois cependant les modifier pour supprimer des lignes et y faire des ajouts etc. Pour cela, j'ai créé une variable "Var1" incrémentée à chaque nouvelle feuille (retrouver le nom pour chacune est plutôt compliqué : je dois faire une énième boucle imbriquée dans d'autres etc) et j'accède à la feuille souhaitée en faisant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(13 + Var1).Activate

car la première est toujours la feuille 14. Là, ça ne marche plus. D'autres feuilles étant cachées, ce n'est plus la feuille 14 la première. Bien entendu, je peux changer et dire que la première est la feuille 2 par exemple ("1+Var1") mais j'aurais voulu savoir si il y avait une autre solution plus propre. Il est quand même dommage de ne pouvoir déterminer une position absolue pour chacune des feuilles du classeur ne dépendant pas du masquage (par exemple celles qu'il existe dans l'explorateur de projets où on peut voir les propriétés de chacune des feuilles). Peut-être qu'au travers du "(name)" tel que Feuil1 on peut y accéder mais je ne sais pas comment

En tout cas merci de ces précisions et de l'astuce du Debug.Print, je passais encore par les fameuses MsgBox

EDIT : Lorsque je masque toutes mes feuilles à part la dernière avant de lancer la macro, cela marche. Lorsque je masque la dernière, la copie marche mais plus le :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(13 + Var1).Activate

..

[DeaD78]

En fait un dernier test m'a donné la solution mais pourquoi?!

Si je masque toute mes feuilles sauf la dernière (la 13ème), celle que je vais créer va devenir la 14ème. Si je masque la 13ème, celle créée va devenir la
13ème... Logique quand tu nous tiens...

EDIT : ça doit venir du

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(TAFT).Copy After:=Sheets(Sheets.Count)

mais je ne sais pas si on peut "compter" des feuilles masquées...

[ilcocodrillo]

c'est possible

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub CompteLesFeuillesMasuées()
Dim NbDeFeuillesMasquées As Integer
NbDeFeuillesMasquées = 0
 
For I = 1 To Sheets.Count
 
        If Sheets(I).Visible = False Then
        NbDeFeuillesMasquées = NbDeFeuillesMasquées + 1
        End If
 
Next I
MsgBox NbDeFeuillesMasquées
End Sub

[DeaD78]

Merci ça marche