Clearcontent de toute les cellules nommées dans la feuille active

Bonjour,

je souhaiterais effacer le contenu de toutes les cellules nommées de ma feuille active.

(Les cellules étant nommées sont des cellule fusionnées)

Merci de vos propositions

pour le moment je cherche de cette façon mais ca ne fonctionne pas

Sub Reset()

Dim noms As Excel.Name

For Each noms In ActiveWorkbook.Names

Range(noms).MergeArea.ClearContents

Next noms

End Sub

Bonsoir Fabrice0501

Il faut faire attention avec une plage nommée, car elle n'appartient pas à l'objet Sheet, mais Workbook

Donc il faut aussi tester la feuille pour laquelle est appliqué le nom, s'il s'agit de la feuille active

Sub EffaceCelNommée()
  Dim Nom As Name
  For Each Nom In ThisWorkbook.Names
    If InStr(1, Nom.RefersTo, ActiveSheet.Name) > 0 Then
      Range(Nom.Name).Value = ""
    End If
  Next Nom
End Sub

Nota : un Clearcontents ne peut pas être appliqué à des cellules fusionnées

A+

Merci

fonctionne bien

Je n'aurais pas trouvé seul