[Excel] selection et copier-coller de cellule sans activer les sheets

**franckB** · 30/03/2007, 19h48

Bonjour,

J'aimerai vous soumettre un petit problème que je n'arrive pas à résoudre. C'est d'autant plus énervant que je suis sûr que c'est quelque chose de simple à mettre en oeuvre.

Voici mon problème
J'ai un classeur W1 qui posséde 10 Sheets.
Je veux sélectionner des cellules des sheets 2 à 10 et les copier dans la sheet 1. Je ne veux pas bufferiser l'ensemble. Le principe est je copie une cellule de la sheet 2 et je la colle dans la sheet 1 et je recommence (je copie une cellule de la sheet 2 (ou bien une autre sheet) et je la colle dans la sheet 1). Comme je fais plusieurs fois l'aller retour entre les différentes sheet j'ai une espéce de flicker sur ma appli.
Donc ma question est : est-il possible de selectionner des cellules (et de copier le contenu) d'une sheet qui n'est pas activé (et/ou selectionné).
En gros je voudrais que mon appli reste scotché sur la sheet 1 et que tout le travail de copier-coller ne soit pas visible.

merci de votre aide
NB : Je ne peux pas vous fournir mon code car il est resté sur mon PC pro

A bientôt

**edelweisseric** · 30/03/2007, 21h42

Bonsoir à tous

Pour répondre à ta question :

Code :

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

1
2
 
Range("a1").Value = Sheets("Feuil2").Range("a1").Value

mais pour que tu restes "scotché" sur ta feuille 1 tu peux mettre au début de la macro :

Code :

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

Application.ScreenUpdating = False

que tu repositionnes à true à la fin

A+

Eric

**ouskel'n'or** · 30/03/2007, 23h00

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
    'Copier une plage de cellules
    Workbooks("Liste.xls").Worksheets("feuil1").Range("B3:F3").Copy _
    destination:=Workbooks("Classeur1").Worksheets("Feuil1").Range("B3:F3")
 
    'Copier des colonnes
    Workbooks("Liste.xls").Worksheets("feuil1").Range("B:F").Copy _
    destination:=Workbooks("Classeur1").Worksheets("Feuil1").Range("B1")
    'ou
    Workbooks("Liste.xls").Worksheets("feuil1").Range("B:F").Copy _
    destination:=Workbooks("Classeur1").Worksheets("Feuil1").Range("C:G")
 
    'Copier les lignes
    Workbooks("Liste.xls").Worksheets("feuil1").Rows(5).Copy _
    destination:=Workbooks("Classeur1").Worksheets("Feuil1").Rows(6)
    'ou
    Workbooks("Liste.xls").Worksheets("feuil1").Rows("5:8").Copy _
    destination:=Workbooks("Classeur1").Worksheets("Feuil1").Rows("9:12")
    'ou
    Workbooks("Liste.xls").Worksheets("feuil1").Rows(5).Copy
    Workbooks("Classeur1").Worksheets("Feuil1").Rows("67:67").Insert Shift:=xlDown

Tu pourras te débrouiller avec ça ?

**franckB** · 31/03/2007, 10h11

merci a vous... Je vais essayer tout ça dés que possible.

**ouskel'n'or** · 31/03/2007, 13h17

J'ai oublié de confirmer la solution d'edelweiss pour "masquer" les sauts de pages à l'écran. Mais autant que possible, évite les select et activate qui alourdissent et ralentissent le code

**franckB** · 01/04/2007, 15h19

Merci pour les infos.
Donc la fonction application.screenupdating = false correspond bien à ce que je veux faire.
De plus je vais suivre le conseil de nettoyage du code des .activate et .select qui traine..
NB: Je ne sais pas comment passer le fil en "Resolu". Est-ce à moi ou au modérateur de la passer?

merci