Discussion :

[Angel79]

Bonjour à tous!

Voilà, j'ai masqué une feuille dans un classeur pour éviter qu'elle ne soit supprimée par inadvertance.

Cependant, j'ai une macro dans un autre classeur qui fait appel à cette feuille. Mais comme elle est masquée, j'ai un message d'erreur indiquant : "erreur d'exécution 1004 : la méthode Select de la classe Worksheet a échoué."

Comment remédier à ce problème?

Merci d'avance!

[Megaxel]

Salut!
Est-ce que tu es obligé de faire des SELECT sur cette feuille? On peut souvent s'en passer.
Sinon, rend ta feuille visible au début de ta macro, puis recache la à la fin (Propriété ".Visible" de WorkSheets("MaFeuilleCachée")

[Angel79]

oui je suis obligée de faire des Select dans cette feuille.
Je vais essayé ce que tu me proposes.
Merci!

[Pierre Fauconnier]

Bonjour

Il est normal que tu ne puisses pas sélectionner une feuille invisible. Comment VBA pourrait-il donner le focus à une cellule d'une feuille s'il ne peut afficher celle-ci? :

Toutefois, et pour rappel, il n'est pas nécessaire de sélectionner une feuille pour pouvoir travailler avec.

Tu peux très bien manipuler les cellules d'une feuille masquée en faisant référence à celle-ci, comme dans le code suivant :

Code :

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

1
2
3
4
5
 
    Dim Feuille As Worksheet
 
    Set Feuille = Worksheets("Données")
    Feuille.Range("a1") = "Pierre"

Note toutefois qu'en utilisant le nom Excel de la feuille, tu t'exposes à une erreur d'exécution si ta feuille est renommée par l'utilisateur. Tu as tout intérêt à utiliser le nom VBA de la feuille, que tu trouves ou modifies via la fenêtre de propriétés de la feuille, dans VBE. Moi, je nomme mes feuilles (nom VBA) en les faisant précéder du préfixe sh_ (sheet en anglais...). Dès lors, si ma feuille Données (nom excel) est nommée en vba sh_Donnees, le code devient alors

Code :

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

1
2
3
4
5
 
    Dim Feuille As Worksheet
 
    Set Feuille = sh_donnees
    Feuille.Range("a1") = "Pierre"

Ok?

Pierre Fauconnier

[AlainTech]

D'après moi, on n'est jamais obligé de faire des Select.

Il y a plein d'autres options pour travailler dans une feuille.

Peux-tu nous dire pourquoi tu dois faire des Select?

Edit--> Grillé par Pierre Fauconnier

[Pierre Fauconnier]

Pourquoi es-tu obligée d'effectuer des SELECT dans cette feuille? Si tu la manipules par VBA, SELECT (qui "imite" la manipulation de la feuille par l'utilisateur) est souvent inutile et ralentit considérablement la macro. Il y a souvent moyen de contourner le SELECT en utilisant des objets Worksheet, Range et Cells...

Ok?

Pierre Fauconnier

Et moi, grillé par toi, Alain, et par Megaxel

[Angel79]

Je fais des Select dans cette feuille car elle me sert de base pour des copier/coller dans une compilation. Et je ne peux pas utiliser Range ou Cells car il y a une boucle de recherche des lignes vides, etc (ce serait trop long à expliquer).
Voici donc la petite modification que j'ai faite dans le code de ma macro, au début.

Code :

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

1
2
Sheets("Données").Visible = True
    Sheets("Données").Select

Ma compilation s'est très bien faite! Et je n'ai pas eu à écrire

Code :

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

Sheets("Données").Visible = False

à la fin car en fait, à la fin du code d'une des macros, j'ai mis:

Code :

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

Workbooks("Heures D-Dupont.XLS").Close SaveChanges:=False

Enfin, le principal c'est que ça fonctionne, et qu'il est possible de travailler sur une feuille masquée.
Merci!
Le problème est résolu pour ma part mais bon, le post a semble-t-il faitréagir certains....