effacer zone cellules fusionnées

zebanx

XLDnaute Accro

• 27 Juillet 2017

• #2

Bonjour Hervé.

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

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

 

Vote positif 0 Vote négatif

A

Alza

XLDnaute Junior

• 27 Juillet 2017

• #3

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] = ""

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 27 Juillet 2017

• #4

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

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 27 Juillet 2017

• #5

Bonjour,

pour rester général :

VB:

[B9].MergeArea.ClearContents

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

 

Vote positif 0 Vote négatif