Copier des cases sans copier les menus

[phoque.r]

Bonjour

voici mon code pour copier mes données:

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

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]

Re : Copier des cases sans copier les menus

Bonjour

Ca donne quoi si tu testes cela?

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]

Re : Copier des cases sans copier les menus

Je viens de faire ca:

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

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

qui n'est pas acceptée

 

[Staple1600]

Re : Copier des cases sans copier les menus

Re


Ca correspond à quoi nb2?

Ca fonctionne chez moi

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]

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 :

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

bonne journée
@+

edition : suppression d'un point en trop

 

[phoque.r]

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