Copier/coller en VBA Fermé

Question

Bonjour!
J'ai ce code:
comp = 0
For i = 2 To 627

Sheets(4).Activate
If Not IsEmpty(Cells(i, 1)) Then
Cells(i, 1).Select
Selection.Copy
Sheets(5).Activate
Cells(comp + 1, 1).Select
Selection.Paste
comp = comp + 1
End If

Next i

Pour coller, apparemment, ce n'est pas la bonne procédure.
Quelle est la bonne, svp?
Merci.

floy006 · Accepted Answer

Hello,
test avec: 'ActiveSheet' et retire le 'endif'

Sub copier_coller()
Dim i As Integer
Dim comp As Integer

comp = 0 

For i = 2 To 627 
   Sheets(4).Activate 
   If Not IsEmpty(Cells(i, 1)) Then 
   Cells(i, 1).Select 
   Selection.Copy 
   Sheets(5).Activate 
   Cells(comp + 1, 1).Select 
   ActiveSheet.Paste 
   comp = comp + 1 
Next i 

End Sub

si ça ne fonctionne pas, aide-toi de l'enregistreur de macro (en le faisant à la main) puis regarde le code après!

Copier/coller en VBA

1 réponse

Discussions similaires