1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
| Sub Historique()
'compteur de ligne dans la feuille de renseignement hebdomadaire
Dim Ligne As Variant
Ligne = Sheets("Renseignement").Range("A3:A" & Rows.Count).End(xlDown).Row
'test si la seconde cellule de ma feuille est vide
'Si oui : Alors on copie à partir de cette cellule
'Si non : Alors on copie à la suite
If Sheets("Historique des tournées").Cells(2, 1) = "" Then
With Sheets("Renseignement")
.Select
.Range(Cells(3, 1), Cells(Ligne, 7)).Copy
End With
Sheets("Historique des tournées").Range("A2").PasteSpecial
Else:
With Sheets("Renseignement")
.Select
.Range(Cells(3, 1), Cells(Ligne, 7)).Copy
End With
Ligne = Sheets("Historique des tournées").Range("A1:A" & Rows.Count).End(xlDown).Row
With Sheets("Historique des tournées")
.Select
.Range(Cells(Ligne + 1, 1)).PasteSpecial
End With
End If
End Sub |
Partager