A voir également:
- Copier/coller en VBA
- Copier coller pdf - Guide
- Copier une vidéo youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
- Dessin sms copier coller - Forum Jeux vidéo
- Copier coller chatgpt ✓ - Forum Réseaux sociaux
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!
