Discussion :

[pilounet54]

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 ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 ='2013'!#REF!;'2013'!#REF!;'2013'!#REF!;'2013'!#REF!

voila la macro

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

pouvez vous la modifier pour que je n'ai plus ce problème svp

[XBS17]

Bonjour pilounet54,

En utilisant delete, tu supprimes la plage de cellule.
Si dans cette plage, il y avait des zones nommées, les noms ne peuvent plus "pointer" vers les références qui n'existent plus.

Si c'est pour effacer le contenu de la plage, je pense que clearcontents est plus approprié.