Effacer ( remise a zéro) les cellules Fusionnées par Bouton

[Ilino]

Bonsoir Forum
je cherche un code qui efface des cellules Fusionnées via un bouton
ci dessous un code mais il n'est pas vraiment pratique

Private Sub CommandButton1_Click()
Range("C14:G14,C28:G28,C38:D38,C42:D42,C46:G46,F58:G58,J58:N58,F60:G60,J60:N60,F62:G62,J62:N62,F64:G64,J64:N64,F66:G66,J66:N66").ClearContents
End Sub

GRAZIE

 

[bruno66]

Re : Effacer ( remise a zéro) les cellules Fusionnées par Bouton

bonjour..... je vois pas autrement effacer plus rapidement des données dans des cellules fusionnées que par cette méthode sinon nous mettre un morceau de fichier afin que l'on puisse voir comment tu l'as programmer par ailleurs

 

[Ilino]

Re : Effacer ( remise a zéro) les cellules Fusionnées par Bouton

Bonsoir Bruno
merci pour la réponse , il y a d'autre solution par le gestionnaires des noms mais elle est appliquer seulement pour les cellules simple

Private Sub CommandButton1_Click()
[CHAP1].ClearContents
'Range("C14:G14,C28:G28,C38:D38,C42:D42,C46:G46,F58:G58,J58:N58,F60:G60,J60:N60,F62:G62,J62:N62,F64:G64,J64:N64,F66:G66,J66:N66").ClearContents

End Sub

CHAP1 EST UN ENSEMBLE DES CELLULE SIMPLE

 

[job75]

Re : Effacer ( remise a zéro) les cellules Fusionnées par Bouton

Bonsoir Ilino, bruno66,

S'il s'agit d'effacer toutes les cellules fusionnées contenant des constantes :

Private Sub CommandButton1_Click()
Dim c As Range
On Error Resume Next
For Each c In Me.UsedRange.SpecialCells(xlCellTypeConstants)
  If c.MergeArea.Count > 1 Then c = ""
Next
End Sub

A+

 

[Ilino]

Re : Effacer ( remise a zéro) les cellules Fusionnées par Bouton

Bonsoir MAITRE, Bruno66,
dans mon cas on ne peut pas généraliser il y a des cellules fusionnées bien déterminées a supprimer et les autres non et dans la même feuille
GRAZIE

 

[Ilino]

Re : Effacer ( remise a zéro) les cellules Fusionnées par Bouton

Bonsoir MAITRE, Bruno66,
dans mon cas on ne peut pas généraliser il y a des cellules fusionnées bien déterminées a supprimer et les autres non et dans la même feuille
GRAZIE

Bonjour FORUM

Est ce que il n y a pas autre méthode plus facile ???
GRAZIE

 

[bruno66]

Re : Effacer ( remise a zéro) les cellules Fusionnées par Bouton

RE bonjour
mets nous un morceau de fichier sans nom confidentiel que l'on voit perso .... sans fichier et explication plus précises
pas de solution autre chose a faire en parallèle

 

[bruno66]

Re : Effacer ( remise a zéro) les cellules Fusionnées par Bouton

autre chose aussi ... en espérant que tes cellules fusionnées ne contiennent pas de formules non plus ....

 

[Ilino]

Re : Effacer ( remise a zéro) les cellules Fusionnées par Bouton

Re bruno66, Bonsoir Forum
Merci pour les réponses ci-joint un fichier exemple qui illustre mon souci mais la méthode que j’ai suivie n’est vraiment pratique 😕
Pour chaque chapitre je veux remettre a zéro toutes les cellules blanche (cellules fusionnée et cellules simple)
A+