copier coller de la Gamme en VBA Excel

Je suis en train de copier coller une ligne de valeurs à partir d'une feuille à l'autre, mais de garder à venir avec l'erreur d'exécution 1004: définie par l'Application ou par l'objet défini à l'erreur.
l'erreur est dans la première ligne des deux ci-dessous et je ne sais pas où je vais mal. 

Set copyRange = Worksheets("Sheet2").range(A & i + 1 & CA & i + 1)
copyRange.Copy Destination:=Cells(countD, 2)

le code a besoin de copier une ligne à la fois et de le coller dans la feuille par défaut.

Modifier
code complet

Dim List1 As range
Dim List2 As range
Dim lastRow As Integer
Dim countD As Integer
Dim found As Boolean
Dim copyRange As range

Set List1 = ThisWorkbook.Sheets("Sheet1").range("H2:H600")
Set List2 = ThisWorkbook.Sheets("Sheet2").range("I2:I600")
countD = 2
lastRow = Application.CountA(ThisWorkbook.Sheets("Sheet2").range("C:C"))

For i = lastRow To 2 Step -1
    found = False
    value1 = List1.Item(i, 1)
    For Each value2 In List2
        If value1 = value2 Then
            found = True

            Exit For
        End If
    Next

    If found = False Then
        Set copyRange = Sheets("Sheet1").range("A" & i + 1 & "CA" & i + 1)
        copyRange.Copy Destination:=Cells(countD, 2)
        Sheets("Discrepancies").Cells(countD, 1) = "name not found"
        ThisWorkbook.Sheets("Sheet1").Cells(i + 1, 1).EntireRow.Delete
        Cells(countD, 8).Interior.ColorIndex = 3

        countD = countD + 1

    End If

Next
  • Essayez range("A" & i + 1 & "CA" & i + 1)
  • non, ne fonctionne pas non plus, même le code d'erreur
  • Je dirais en fournissant votre code complet...pour identifier l'erreur....
  • Quelle est la valeur A et CA contenir? Si cela devait se référer à la colonne A une colonne CA, essayez Set copyRange = Worksheets("Sheet2").range("A" & (i + 1) & ":CA" & (i + 1)). Cela permettra de couvrir l'ensemble de la zone à partir de A2 à CA2 (en supposant que i est 1).
  • épique, merci beaucoup
InformationsquelleAutor Intern87 | 2013-08-29
  1. 6

    Exactement comme Vasim commentaire mentionne - avec l'ajout d'un colon : en face de la CA

    Sub copyRangeOver()

Dim i As Integer
i = 6

Dim copyRange  As Range
Set copyRange = ThisWorkbook.Worksheets("Sheet2").Range("A" & i + 1 & ":CA" & i + 1)

Dim countD As Integer
countD = 10
copyRange.Copy Destination:=Cells(countD, 2)


End Sub
    • (@Vasim désolé pour l'adaptation et le coller votre commentaire! ... permettez-moi de voir si je peux le faire jusqu'à vous...) ; maintenant, vous avez fait un bond de 300 points!!!
    InformationsquelleAutor whytheq