question bête!

Question

bonjour,


bon elle est peut etre b&#234;te ma question mais en cas on ne la voit pa sur les forum...

Cmt efface-t-on une cellule fusionn&#233;e??

Sachant que ClearContents indique l'erreur :

"impossible de modifier une cellule fusionn&#233;e"

merci de m'aider 

Achi!

MAXIMO71 · Answer

Bonsoir si tu es en ligne que veux dire par effacer, est ce effacer son
contenu, supprimer la premi&#232;re cellule de la fusion ou encore,
supprimer toutes les cellules qui forment la cellule fusionn&#233;e?



Merci de m'apporter des pr&#233;cisions, je verais si je peux t'aider.




 MAXIMO71

cs_Achi · Answer

salu maximo71,

en faite je d&#233;sire effacer son contenu!!

l&#224; je r&#233;souds le pb en affichant  un blanc ("") ds la cellule fusionn&#233;e... ca me fait le m&#234;me effet mais ca m'int&#233;resse de savoir cmt l'effacer si tu sais!!

Achi!

MAXIMO71 · Answer

Rebonsoir,



Je te donne le code suivant qui je l'esp&#232;re t'aidera



    Range("MaCelluleFusionnee").Select 'MaCelluleFusionnee A2:F15

    Selection.Delete Shift:=xlToLeft 'xlToLeft d&#233;cale les cellules vers la gauche apr&#232;s la suppression

    

    Range("MaCelluleFusionnee").Select 'MaCelluleFusionnee A2:F2

    Selection.Delete Shift:=xlUp'xlToLeft d&#233;cale les cellules vers le haut apr&#232;s la suppression

    

    Voila, ce code permet de supprimer des cellules
fusionn&#233;es si ce n'est pas ce que tu cherche, revois un message.



    Bonne soir&#233;e    


 MAXIMO71

MAXIMO71 · Answer

Attention ce code supprime la cellule


 MAXIMO71

MAXIMO71 · Answer

Ton souci viens peut &#234;tre du fait que tu n'utilise pas la bonne adresse pour ta cellule, il faut utiliser



    Range("C8:F11").Select 'C8:F11 represent la cellule fusionn&#233;e

    Selection.ClearContents


Je pense que cela va r&#233;gler ton pb



Bonne soir&#233;e


 MAXIMO71

Question bête!

5 réponses

Discussions similaires