Discussion :

[JonathanMQ]

Bonjour,

J'ai un petit pépin, j'essaie de faire un copie de certaines cellules d'une feuille affichée et la coller dans une feuille cachée.

Code :

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

1
2
3
 
ActiveWorkbook.ActiveSheet.Range("A1:A5").Copy
ActiveWorkbook.Sheets("Invisible").Range("B55").Paste

J'ai l'erreur propriété ou méthode non gérée par cet objet.

Pourtant si la feuille est invisible et que je fais ActiveWorkbook.Sheets

Code :

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

1
2
("Invisible").Select
Selection.Range("B55").Paste

Cela fonctionne.

Je me suis dit que peut-être on ne peut pas faire de traitement sur une feuille cachée MAIS pourtant...

Code :

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

1
2
3
4
 
ActiveWorkbook.Sheets("Invisible").Range("B55").UnMerge
et
ActiveWorkbook.Sheets("Invisible").Range("B55").ClearContents

Fonctionne.

Quelqu'un aurait une petite idée de ce qui me manque pour faire fonctionner mon paste ?

Merci.

[patricktoulon]

bonjour

Code :

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

1
2
3
4
5
6
7
8
9
 
sub copie ()
application.screenupdating=false
ActiveWorkbook.ActiveSheet.Range("A1:A5").Copy
sheet("Invisible").visible=true
ActiveWorkbook.Sheets("Invisible").Range("B55").Paste
 sheet("Invisible").visible=false
application.screenupdating=true
end sub

au plaisir

[ANOVA]

Oui, ou en beaucoup plus court :

Code :

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

ActiveWorkbook.ActiveSheet.Range("A1:A5").Copy Destination:=ActiveWorkbook.Sheets("Invisible").Range("B5")

[patricktoulon]

bonjour
anova

je sais bien mais selon la version de window ainsi que ces mises a jour

excel ne se comporte pas tout a fait pareil quand il y a des feuilles masquées

l'exemple que j ' ai donné fonctionne a coups dans toutes les circonstances


d'ailleur ta ligne ne marche pas chez moi et ne me crée meme pas d'erreur


au plaisir

[ANOVA]

Ah, c'est bon à savoir. Quelle version utilises tu ? J'ai testé sur Excel 2000 et 2010 et ça marche.

[mercatog]

une petite redondance (les activemachin)

Code :

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

Range("A1:A5").Copy Sheets("Invisible").Range("B5")