effacer zone cellules fusionnées

[herve62]

Bonjour
Quelle est l'astuce pour effacer en VBA une zone de cellules fusionnées ?
car .clearcontents provoque l'erreur pour cette raison

 

[zebanx]

Bonjour Hervé.

On "dé-fusionne" avant de lancer le code peut-être ?

----
Sub Macro1()
With Selection
.MergeCells = False
End With
End Sub

 

[Alza]

Bonjour,

Si tu souhaites supprimer la fusion en plus d'effacer le contenu alors :

Sheets("sheet").[D2:E2].clear

si tu souhaites n'effacr que le contenu alors :

Sheets("sheet").[D2:E2] = ""

 

[herve62]

Merci zebanx
j'ai fait cela
Worksheets("devis").Range("b9:b13").MergeCells = False
Worksheets("devis").Range("b9:b13").ClearContents
mais il faut refusionner en vba Ma Zone fusionnée est par ligne :
B99 que j'étends jusqu'à B1313
Si tu as aussi l'astuce je gagnerais du temps
Merci

C'est bon , pendant l'écriture de mon message Alza a donné la réponse

 

[eriiic]

Bonjour,

pour rester général :

[B9].MergeArea.ClearContents

[B9] étant une cellule quelconque de ta fusion (que tu n'as pas besoin de connaitre ici)
eric