cellule fusionner

[rudy]

bonjour a tous , imaginer le code suivant
Private Sub CommandButton1_Click()
Dim Reponse
Reponse = MsgBox('Confirmez vous votre intention de réinitialiser ZoneVerte et ZoneBleu ?', vbYesNoCancel)
If Reponse = vbYes Then
Range('E4:E6').ClearContents
Range('M4:M6').ClearContents
Range('E17:G36').ClearContents
Range('M17:O36').ClearContents
End If
End Sub

pour info c est omicron qui me la ecrit et sa fonctionne impect mais quand je rajoute par exemple
Range('B4:B6').ClearContents
sa fonctionne pas car B C D sont fusionner !!

quelqu un a une reponse ? il y a la feuille excel avec l exemple si dessu nommé 'initialisation'
merci d avance

 

[Minick]

Salut,

Si B, C, D sont fusionnées il faut indiquer toute la plage fusionnées

Range('B4:D6').ClearContents

@+