Pb caractéristiques initiales de cellules après "défusion".

[breitzou]

Bonjour le forum,

j'ai un petit souci pour retrouver toutes les caractéristiques initiales de cellules. Plus précisemment, j'ai fusionné dans un tableau, 3 cellules. J'ai mis un fond jaune. Par un bouton de commande, je peux défusionner sans problème les 3 cellules. En revanche, seule la première cellule revient en couleur d'origine (sans remplissage), les deux autres restent en jaune. De plus, je n'arrive pas à retrouver le quadrillage d'avant la fusion.

J'ai mis un exemple de mon pb en pièce jointe. Tou y est expliqué.

Merci de votre aide.

Breitzou

 

[Hulk]

Re : Pb caractéristiques initiales de cellules après "défusion".

Slt Breitzou, Forum

Essaie comme ceci..

Sub Défusionner()

    Selection.UnMerge

    For Each cel In Selection
        Cells(cel.Row, 1) = Cells(cel.Row, 2)
        Cells.Interior.ColorIndex = 0
        Selection.Borders.LineStyle = xlContinuous
    Next

End Sub

Bon dimanche à tous !

 

[breitzou]

Re : Pb caractéristiques initiales de cellules après "défusion".

Salut Hulk, le forum

merci pour ta réponse qui correspond exactement à ce que je recherchais.
J'ai juste rajouter "selection." devant la ligne de code correspondant à la couleur de la cellule, de manière à ne supprimer que la couleur des cellules sélectionnées.
Merci encore Hulk pour ton aide précieuse.

A bientôt et bonne soirée.

Breitzou