Copier des cases sans copier les menus

phoque.r · 27/06/2007, 11h14

Bonjour

voici mon code pour copier mes données:

Code:

Sheets("candidats").Range("b" & i & ",d" & i & ",e" & i & ",g" & i & ",i" & i & ",j" & i).Copy
Windows("archive.xls").Activate
Sheets("refusés").Select
Range("a" & nb2).Select
ActiveSheet.Paste

Seulement, des cases sont faites depuis des menus, et ca copie les menus avec.

On m'a bien donné un truc comme ça pour l'éviter, mais je n'ai pas bien compris

Code:

Range("A1:Z30").Copy
' positionnement à l'endroit du collage
Selection.PasteSpecial xlPasteValues
' désactiver la copie
Application.CutCopyMode = False

Comment utiliser?

merci
phoque.R

Staple1600 · 27/06/2007, 11h16

Bonjour

Ca donne quoi si tu testes cela?

Code:

Sheets("candidats").Range("b" & i & ",d" & i & ",e" & i & ",g" & i & ",i" & i & ",j" & i).Copy
Windows("archive.xls").Activate
Sheets("refusés").Range("a" & nb2).Paste xlPasteValues
' désactiver la copie
Application.CutCopyMode = False

edit: voir réponse plus bas

phoque.r · 27/06/2007, 11h24

Je viens de faire ca:

Code:

Sheets("candidats").Range("b" & i & ",d" & i & ",e" & i & ",g" & i & ",i" & i & ",j" & i).Copy
Windows("archive.xls").Activate
Sheets("refusés").Select
Range("a" & nb2).Select
Selection.PasteSpecial xlPasteValues
' désactiver la copie
Application.CutCopyMode = False

le truc de Staple1600 ne fonctionne pas, c'est la ligne

Code:

Sheets("refusés").Range("a" & nb2).Paste xlPasteValues

qui n'est pas acceptée

Staple1600 · 27/06/2007, 11h26

Re

Ca correspond à quoi nb2?

Ca fonctionne chez moi

Code:

Sub test()
Dim i As Long
i = 1' mis pour pour pouvoir tester
Sheets("Feuil1").Range("b" & i & ",d" & i & ",e" & i & ",g" & i & ",i" & i & ",j" & i).Copy
Windows("archive.xls").Activate
Sheets("refusés").Range("A1").PasteSpecial Paste:=xlValues
' désactiver la copie
Application.CutCopyMode = False
End Sub

edit: houps trop tard collision avecPierrot93

Pierrot93 · 27/06/2007, 11h32

Bonjour Phoque, Restapple

si nb2 est une variable qui renvoie un nu méro de ligne cela devrait fonctionner comme ceci :

Code:

Sheets("refusés").Range("a" & nb2).PasteSpecial xlPasteValues

bonne journée
@+

edition : suppression d'un point en trop

phoque.r · 27/06/2007, 11h33

ok merci

nb2 est juste le numéro de la ligne ou ca doit être copié

phoque.r

27/06/2007, 11h14	#1 (permalink)
phoque.r XLDnaute Occasionel Date d'inscription: avril 2007 Messages: 201	Copier des cases sans copier les menus Bonjour voici mon code pour copier mes données: Code: Sheets("candidats").Range("b" & i & ",d" & i & ",e" & i & ",g" & i & ",i" & i & ",j" & i).Copy Windows("archive.xls").Activate Sheets("refusés").Select Range("a" & nb2).Select ActiveSheet.Paste Seulement, des cases sont faites depuis des menus, et ca copie les menus avec. On m'a bien donné un truc comme ça pour l'éviter, mais je n'ai pas bien compris Code: Range("A1:Z30").Copy ' positionnement à l'endroit du collage Selection.PasteSpecial xlPasteValues ' désactiver la copie Application.CutCopyMode = False Comment utiliser? merci phoque.R

27/06/2007, 11h16	#2 (permalink)
Staple1600 XLDnaute Barbatruc Date d'inscription: juin 2005 Localisation: RENNES Version Excel : Excel 2000 (PC) Messages: 6 778	Re : Copier des cases sans copier les menus Bonjour Ca donne quoi si tu testes cela? Code: Sheets("candidats").Range("b" & i & ",d" & i & ",e" & i & ",g" & i & ",i" & i & ",j" & i).Copy Windows("archive.xls").Activate Sheets("refusés").Range("a" & nb2).Paste xlPasteValues ' désactiver la copie Application.CutCopyMode = False edit: voir réponse plus bas Dernière modification par Staple1600 ; 27/06/2007 à 11h38.

27/06/2007, 11h26	#4 (permalink)
Staple1600 XLDnaute Barbatruc Date d'inscription: juin 2005 Localisation: RENNES Version Excel : Excel 2000 (PC) Messages: 6 778	Re : Copier des cases sans copier les menus Re Ca correspond à quoi nb2? Ca fonctionne chez moi Code: Sub test() Dim i As Long i = 1' mis pour pour pouvoir tester Sheets("Feuil1").Range("b" & i & ",d" & i & ",e" & i & ",g" & i & ",i" & i & ",j" & i).Copy Windows("archive.xls").Activate Sheets("refusés").Range("A1").PasteSpecial Paste:=xlValues ' désactiver la copie Application.CutCopyMode = False End Sub edit: houps trop tard collision avecPierrot93 Dernière modification par Staple1600 ; 27/06/2007 à 11h38.

27/06/2007, 11h32	#5 (permalink)
Pierrot93 XLDnaute Barbatruc Date d'inscription: août 2006 Version Excel : Excel 2003 (PC) Messages: 4 750	Re : Copier des cases sans copier les menus Bonjour Phoque, Restapple si nb2 est une variable qui renvoie un nu méro de ligne cela devrait fonctionner comme ceci : Code: Sheets("refusés").Range("a" & nb2).PasteSpecial xlPasteValues bonne journée @+ edition : suppression d'un point en trop __________________ Pierrot On se trouve toujours suffisamment intelligent, vu que c'est avec ce que l'on a qu'on juge !!! Dernière modification par Pierrot93 ; 27/06/2007 à 11h36.

27/06/2007, 11h33	#6 (permalink)
phoque.r XLDnaute Occasionel Date d'inscription: avril 2007 Messages: 201	Re : Copier des cases sans copier les menus ok merci nb2 est juste le numéro de la ligne ou ca doit être copié phoque.r

ANNONCES

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email

Discussions similaires
Discussion	Auteur	Forum	Réponses	Dernier message
Copier des menus déroulants vers un autre onglet	amelie.a	Forum Excel	2	19/06/2007 14h46
Copier des cases sans copier les menus	phoque.r	Forum Excel	3	21/05/2007 23h51
copier un onglet sans copier les macros	Amaury11100	Forum Excel	3	26/04/2007 15h28
copier des cases à cocher	Suzanne	Forum Excel	2	29/08/2006 20h48
Copier coller des cases à cocher	Tof	Forum Excel	0	21/03/2006 10h38