1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| Sub efface_zone_utilisee(nom_feuille As String, ligne_depart As Integer, colonne_depart As Integer, colonne_fin As Integer)
Dim ligne_fin As Integer
Dim plage As Range
ligne_fin = Worksheets(nom_feuille).UsedRange.Row + Worksheets(nom_feuille).UsedRange.Rows.Count - 1
Set plage = Worksheets(nom_feuille).Range(Worksheets(nom_feuille).Cells(ligne_depart, colonne_depart), Worksheets(nom_feuille).Cells(ligne_fin, colonne_fin))
'plage.ClearContents
'plage.ClearFormats
plage.Delete xlShiftUp
Set plage = Nothing
End Sub |
