bonjour j'efface un tableau avec ceci très pratique mais pour l'instant il me fait des erreurs dans les plages enregistrées formules/gestionnaires de noms
le résultat est cecivoila la macro
Code : Sélectionner tout - Visualiser dans une fenêtre à part ='2013'!#REF!;'2013'!#REF!;'2013'!#REF!;'2013'!#REF!
pouvez vous la modifier pour que je n'ai plus ce problème svp
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager