Erreur d'execution 1004 sous VBA

Question

Bonjour, 

J'ai une chose très étrange sous VBA.
le but est de faire un copier/coller d'une plage de cellule entre 2 feuilles.
ces plage peuvent etre de différente taille.

l'erreur est: "Erreur défini par l'application ou par l'objet"

cette partie fonctionne très bien
    ElseIf col2p1 <= col3p1 Then
        If col2p1 + Sheets("Details epissures").Cells(3, (5 * numep)) < 131 Then
            Sheets("Details epissures").Range(Cells(3, ((5 * numep) - 4)), Cells(Sheets("Details epissures").Cells(3, 5 * numep) + 2, ((5 * numep) - 1))).Copy
            Sheets("Tri_epissures").Cells(col2p1, 6).PasteSpecial xlPasteAll
            col2p1 = col2p1 + Sheets("Details epissures").Cells(3, (5 * numep)) + 2
            GoTo suiteEP
        Else
            GoTo page2
        End If
mais pas celle la qui me met l'erreur
    Else
        If col3p1 + Sheets("Details epissures").Cells(3, (5 * numep)) < 131 Then
->            Sheets("Details epissures").Range(Cells(3, ((5 * numep) - 4)), Cells(Sheets("Details epissures").Cells(3, 5 * numep) + 2, ((5 * numep) - 1))).Copy
            Sheets("Tri_epissures").Cells(col3p1, 11).PasteSpecial xlPasteAll
            col3p1 = col3p1 + Sheets("Details epissures").Cells(3, (5 * numep)) + 2
            GoTo suiteEP
        Else
            GoTo page2
        End If
    End If

par contre quand je suis en mode débogueur, pas de souci.

Configuration: Windows 7 / Firefox 40.0

ccm81 · Answer

Bonjour

En essayant de simplifier un peu le code
Else
  If col3p1 + .Cells(3, (5 * numep)) < 131 Then
    With Sheets("Details epissures")
      .Range(.Cells(3, ((5 * numep) - 4)), .Cells(3, 5 * numep) + 2, ((5 * numep) - 1)).Copy Sheets("Tri_epissures").Cells(col3p1, 11)
      col3p1 = col3p1 + .Cells(3, (5 * numep)) + 2
      GoTo suiteEP
    End With
  Else
    GoTo page2
  End If
End If
Cordialement

Erreur d'execution 1004 sous VBA

1 réponse

Discussions similaires

Newsletters