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

Version imprimable

30/03/2007, 19h48
franckB

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

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.:oops:
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
30/03/2007, 21h42
edelweisseric
Bonsoir à tous

Pour répondre à ta question :
Code:

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:

Application.ScreenUpdating = False

que tu repositionnes à true à la fin

A+

Eric

Code:

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 ? ;)

31/03/2007, 10h11
franckB

merci a vous... Je vais essayer tout ça dés que possible.
31/03/2007, 13h17
ouskel'n'or

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 ;)
01/04/2007, 15h19
franckB

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
01/04/2007, 23h26
AlainTech

Le bouton résolu est au bas de la discussion.

Tu peux cliquer dessus, il ne te mordra pas.