pb copier coller une plage de donnée

[noemie45]

Bonjour
j'essaye de copier plusieurs colonne de la ligne 2 à la dernière ligne non vide
et les coller dans un autre fichier à patir de la 1ère ligne vide.

mais rien de se copie.

est ce que vous pouvez me dire ce qui ne va pas dans ma macro?

 

[ERIC S]

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à

 

[noemie45]

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

 

[ERIC S]

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

 

[noemie45]

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

 

[ERIC S]

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é)

     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

 

[ERIC S]

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 ) à :

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

 

[noemie45]

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

 

[ERIC S]

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

 

[noemie45]

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?

 

[ERIC S]

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