Copier/coller en VBA
Mehdi Ier
-
floy006 -
floy006 -
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.
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.
A voir également:
- Copier/coller en VBA
- Historique copier coller - Guide
- Copier coller pdf - Guide
- Copier-coller - Accueil - Informatique
- Style d'écriture a copier coller - Guide
- Arobase copier coller - Forum Windows 10
1 réponse
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!
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!