Effacer une cellule fusionnée

Bonjour à tous,

Je voudrai avoir l'inverse de ce que j'ai demandé lors de la confirmation de la saiise de fusionner des cellules, maintenant je voudrai quand je sélectionne une cellule fusionnée quand je supprime le contenu que la cellule fusionnée soit dé fusionnée.

Est-ce possible?

Merci de me tenir informé

Amicalement

Noel

Teste ceci

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.MergeCells = True Then
        If IsEmpty(Target(1)) Then
            Target.UnMerge
        End If
    End If
End Sub

Bonjour EngueEngue ,

Merci pour ton aide

Ce code dois-je le mettre dans la feuille?

Car si c'est dans la feuille j'ai fait cela ne fonctionne pas.

N'oublies que je dois faire l'action d'effacer le contenu des cellules fusionnées.

Merci encore

@+

Amicalement

Noel

Dans thisworkbook.

Re,

Effectivement ça fonctionne. Comme ces cellules sont colorées, je voudrai qu'elle reprennent les couleurs de fond qui est gris

j'ai mis ce bout de code Target.MergeCells.Interior.ColorIndex = 15 cela bug avec le message "Objet requis"

As-tu une solution

Merci d'avance

Amicalement

Noel

Bonjour tous,

Bonjour EngueEngue ,

Ca y est j'ai trouvé la solution. il suffisait de MFC.

Merci à tous ceux qui m'ont apporté une solution.

Amicalement

Noel