Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Cellule fusionnée

Cellule fusionnée

8 réponses
Avatar
Jacques \(BE\)
Bonjour,

Je parcours un range de cellule dans une feuille pour effacer leur contenu.
Parmis ces cellules
certaines sont fusionnées.

Si j'utilise ClearContents,j'ai un message d'erreur

ThisWorkbook.Sheets(Sec).Range(Cel).ClearContents

et si j'utilise Delete, j'ai un message me disant que les cellules vont être
défusionnées voulez-vous continuer ...?

ActiveCell.Delete

Comment faire pour effacer le contenu d'une cellule fusionnée dans la
défusionner !! ??


Merci de vos réponses

Jacques
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacques
Ben merci tout le monde :-)


"Jacques (BE)" a écrit dans le message de news:
#
Bonjour,

Je parcours un range de cellule dans une feuille pour effacer leur
contenu.

Parmis ces cellules
certaines sont fusionnées.

Si j'utilise ClearContents,j'ai un message d'erreur

ThisWorkbook.Sheets(Sec).Range(Cel).ClearContents

et si j'utilise Delete, j'ai un message me disant que les cellules vont
être

défusionnées voulez-vous continuer ...?

ActiveCell.Delete

Comment faire pour effacer le contenu d'une cellule fusionnée dans la
défusionner !! ??


Merci de vos réponses

Jacques




Avatar
Garette
Bonsoir,

En utilisant ton code :

Sub Macro1()
sec = "Feuil1"
Cel = "A1"
ThisWorkbook.Sheets(sec).Range(Cel).MergeArea.ClearContents
End Sub
Fonctionne également lorsque la cellule n'est pas fusionnée.
Avatar
garnote
Bonsoir Garette et Jacques,

Et pour effacer le contenu d'une plage donnée,
contenant ou pas des cellules fusionnées,
peut-on faire plus court que ça ?

Sub Efface()
Dim c As Range
Dim ad As String
Dim sec As String
sec = "Feuil1"
For Each c In Range("A1:G10")
ad = c.Address
ThisWorkbook.Sheets(sec).Range(ad).MergeArea.ClearContents
Next c
End Sub

Serge


"Jacques (BE)" a écrit dans le message de news: %
Bonjour,

Je parcours un range de cellule dans une feuille pour effacer leur contenu.
Parmis ces cellules
certaines sont fusionnées.

Si j'utilise ClearContents,j'ai un message d'erreur

ThisWorkbook.Sheets(Sec).Range(Cel).ClearContents

et si j'utilise Delete, j'ai un message me disant que les cellules vont être
défusionnées voulez-vous continuer ...?

ActiveCell.Delete

Comment faire pour effacer le contenu d'une cellule fusionnée dans la
défusionner !! ??


Merci de vos réponses

Jacques




Avatar
MichDenis
| peut-on faire plus court que ça ?

Range("A1:b3").Cells.ClearContents

Dis-le pas à personne d'autre ...!
Avatar
Garette
Bonsoir Serge,

A priori on peut faire :

Sub Efface()
Dim ad As String
Dim sec As String
sec = "Feuil1"
ad="A1:G10"
ThisWorkbook.Sheets(sec).Range(ad).MergeArea.ClearContents
End Sub

Le For Each n'est pas necessaire.
Avatar
garnote
Dis-le pas à personne d'autre ...!
Si et seulement si tu ne parles pas de

ma question à personne d'autre.

Pauvre de moi et pauvre MergeArea ;-)

Serge

Avatar
garnote
Je l'avais essayé.
Ça ne fonctionne pas !

Serge

"Garette" a écrit dans le message de news:
Bonsoir Serge,

A priori on peut faire :

Sub Efface()
Dim ad As String
Dim sec As String
sec = "Feuil1"
ad="A1:G10"
ThisWorkbook.Sheets(sec).Range(ad).MergeArea.ClearContents
End Sub

Le For Each n'est pas necessaire.



Avatar
Garette
Autant pour moi, pour le coup, il faut enlever le mergearea
Sub Efface()
Dim ad As String
Dim sec As String
sec = "Feuil1"
ad = "A1:G10"
ThisWorkbook.Sheets(sec).Range(ad).ClearContents
End Sub


"garnote" a écrit dans le message de news:
%23C1E$$
Je l'avais essayé.
Ça ne fonctionne pas !

Serge

"Garette" a écrit dans le message de news:

Bonsoir Serge,

A priori on peut faire :

Sub Efface()
Dim ad As String
Dim sec As String
sec = "Feuil1"
ad="A1:G10"
ThisWorkbook.Sheets(sec).Range(ad).MergeArea.ClearContents
End Sub

Le For Each n'est pas necessaire.