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

breitzou · 19 Septembre 2010

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 · 19 Septembre 2010

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

Slt Breitzou, Forum 🙂

Essaie comme ceci..

Code:

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 · 19 Septembre 2010

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

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

breitzou

XLDnaute Occasionnel

Pièces jointes

Hulk

XLDnaute Barbatruc

breitzou

XLDnaute Occasionnel

Discussions similaires

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

breitzou

XLDnaute Occasionnel

Pièces jointes

Hulk

XLDnaute Barbatruc

breitzou

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency