pb copier coller une plage de donnée

ERIC S

XLDnaute Barbatruc

• 22 Mai 2012

• #2

Re : pb copier coller une plage de donnée

Bonjour

je n'ai pas tout vérifié mais déjà avant la copie, écris

.Range("A2:I" & DLig + 1).Select

au lieu de toutes tes lignes (en exécutant ton code en pas à pas (fn F8 ou F8 selon les claviers pcs), tu verras que la sélection est différente si on le fait avec ton code ou celui-là

 

Vote positif 0 Vote négatif

N

noemie45

XLDnaute Occasionnel

• 22 Mai 2012

• #3

Re : pb copier coller une plage de donnée

Le probleme c'est que je ne veux pas toutes les colonnes, je veux uniquement la A de DàI

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 22 Mai 2012

• #4

Re : pb copier coller une plage de donnée

re

j'avais lu en diagonale

.Range("A2:A" & DLig + 1, "D2:I" & DLig + 1).Select

 

Vote positif 0 Vote négatif

N

noemie45

XLDnaute Occasionnel

• 23 Mai 2012

• #5

Re : pb copier coller une plage de donnée

Merci,
mes données se copient , mais comment dire à ma macro que je veux que mes données se copient sur la 1ère ligne vide et en colonne A,
J'ai essayé ça mais ça ne fonctionne pas

'collage de la selection
NbLignes = 0
NbLignes = ActiveSheet.UsedRange.Rows.Count
NbLignes = NbLignes + 1
Cells(NbLignes, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 23 Mai 2012

• #6

Re : pb copier coller une plage de donnée

Bonjour

Essaie de toute façon de bebugger en pas à pas avec F8 entre autres pour vérifier ta valeur nblignes

sinon essaie (non testé)

Code:

     Workbooks.Open Filename:= _
        "S:fICHIER DES ANOMALIES.xlsx"
    Sheets("BAL").Select
 range("A" & Range("A65536").end(xlup).row+1).select  

'collage de la selection
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 23 Mai 2012

• #7

Re : pb copier coller une plage de donnée

re

j'ai pris le temps de tester et j'arrive (sur un fichier destination à moi, avec feuil1 ) à :

Code:

Sub MAJ_ANOMALIE()
 Dim DLig As Long
 chemin = ThisWorkbook.Path & "\"
  
  With Sheets("transaction")
  .ListObjects("Tableau1").Range.AutoFilter Field:=15, Criteria1:= _
        "<>"
    DLig = .Range("A" & 65536).End(xlUp).Row
    .Range("A2:A" & DLig + 1).Select
    Selection.Copy
    End With
  Workbooks.Open Filename:= _
         chemin & "TableauES.xls"
Sheets("feuil1").Range("A" & Range("A65536").End(xlUp).Row + 1).Select
'collage de la selection
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
     :=False, Transpose:=False

     End Sub

avec une précision importante : mon code est dans un module et non en private sur la feuille

 

Vote positif 0 Vote négatif

N

noemie45

XLDnaute Occasionnel

• 23 Mai 2012

• #8

Re : pb copier coller une plage de donnée

Ah merci,
j'ai encore une question !! peut être bête, mais bon!!!
Sous excel 2010, on n'est plus limité à 65536 lignes, donc est ce que la fonction .Range("A" & 65536).End(xlUp).Row, fonctionne au delà de la 65536 lignes??

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 23 Mai 2012

• #9

Re : pb copier coller une plage de donnée

Re

bien sûr, c'est un mauvais réflexe qu'il faut que le perde 😱, mais bon, je n'ai jamais cottoyé d'utilisateurs de plus de 65000 lignes mais je sais que cela existe 🙄


remplacer 65536 par rows.count

 

Vote positif 0 Vote négatif

N

noemie45

XLDnaute Occasionnel

• 24 Mai 2012

• #10

Re : pb copier coller une plage de donnée

Eric,
dans la discussion tu mettais que pour selectionner plusieurs colonnes il fallait mettre
Range("A2:A" & DLig + 1, "D2:I" & DLig + 1).Select

maintenant je souhaiterais selectionner de AàI de MàN et de RàR.
j'ai essayé ça
.Range("A2:I" & DLig + 1, "M2:N" & DLig + 1, "R2:R" & DLig + 1).Select
Mais j'ai un message d'erreur avec "nombre d'argument incorrect

Une solution?

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 24 Mai 2012

• #11

Re : pb copier coller une plage de donnée

Bonjour

Range("A2:I" & dlig+1 & ",M2:N" & dlig+1 & ",R2:R" & dlig+1).Select
devrait marcher

 

Vote positif 0 Vote négatif