Ajout de noms sur feuille masquée

[niala]

Bonjour,

Dans un classeur, j'ai une feuille qui me permet d'ajouter automatiquement un nom, prénom,etc dans une autre feuille (Liste)
Si cette feuille est visible cela marche parfaitement.
Si la feuille (Liste) est masquée, cela ne marche plus. J'ai une erreur 1004 "La méthode select de la classe Worksheet a échoué"
Or j'aimerai masquer cette feuille.
Avez-vous une solution?
Merci

Sub ESSAI()
'
Rows("11:11").Select
Selection.Copy
Sheets("Liste").Select 'Ligne erreur'
Rows("4:4").Select
Range("A2").Activate
Selection.Insert Shift:=xlDown
Sheets("Accueil").Select
End Sub

 

[david84]

Re : Ajout de noms sur feuille masquée

Bonjour,
tester en passant la propriété Visible de la feuille à True en début de macro (pour afficher la feuille) puis la repasser à False en fin de macro.
A+

 

[niala]

Re : Ajout de noms sur feuille masquée

Merci,
Mais quelle est la ligne de commande
Object.Visible ?

 

[david84]

Re : Ajout de noms sur feuille masquée

Merci,
Mais quelle est la ligne de commande
Object.Visible ?

En début de procédure

Worksheets("Nom_de_la_feuille").Visible = True

En fin de procédure

Worksheets("Nom_de_la_feuille").Visible = False

A+

 

[niala]

Re : Ajout de noms sur feuille masquée

Impec, exactement ce qu'il me fallait
Grand merci
Alain

 

[Modeste]

Re : Ajout de noms sur feuille masquée

Bonsoir niala,
Salut David

Pour autant que j'aie bien compris, il n'est pas nécessaire de sélectionner, ni activer une cellule ou ligne de la feuille masquée, pour y coller quelque chose (si c'est bien là l'objectif!?).

Partant de là, la feuille peut rester masquée, me semble-t-il et quelque chose comme ce qui suit devrait fonctionner:

Sub ajout()
ActiveSheet.Rows("11:11").Copy
Sheets("Liste").Rows("4:4").Insert Shift:=xlDown
End Sub

 

[david84]

Re : Ajout de noms sur feuille masquée

Bonsoir niala,
Salut David

Pour autant que j'aie bien compris, il n'est pas nécessaire de sélectionner, ni activer une cellule ou ligne de la feuille masquée, pour y coller quelque chose (si c'est bien là l'objectif!?).

Partant de là, la feuille peut rester masquée, me semble-t-il et quelque chose comme ce qui suit devrait fonctionner:

Sub ajout()
ActiveSheet.Rows("11:11").Copy
Sheets("Liste").Rows("4:4").Insert Shift:=xlDown
End Sub

Oui c'est exact mais à vrai dire je n'ai pas voulu retoucher le code de présenté ne sachant pas si c'était un exemple de circonstance ou un exemple explicite. Je suis donc parti du code fourni au départ sans chercher à l'optimiser.
A+

 

[Modeste]

Re : Ajout de noms sur feuille masquée

Re, David

Je suis donc parti du code fourni au départ sans chercher à l'optimiser

Et moi, ce que j'en disais, c'était surtout pour l'information de niala ... Toi, il y a bien longtemps que je sais que tu sais

 

[david84]

Re : Ajout de noms sur feuille masquée

Re, David

Et moi, ce que j'en disais, c'était surtout pour l'information de niala ... Toi, il y a bien longtemps que je sais que tu sais

Oui Modeste mais tu as raison de le préciser.
A+