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

B

bruno66

XLDnaute Occasionnel

• 28 Septembre 2013

• #2

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

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 28 Septembre 2013

• #3

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

Code:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Septembre 2013

• #4

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 :

Code:

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+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 28 Septembre 2013

• #5

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

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 29 Septembre 2013

• #6

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

Ilino à dit:

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

Cliquez pour agrandir...

Bonjour FORUM

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

 

Vote positif 0 Vote négatif

B

bruno66

XLDnaute Occasionnel

• 29 Septembre 2013

• #7

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

 

Vote positif 0 Vote négatif

B

bruno66

XLDnaute Occasionnel

• 29 Septembre 2013

• #8

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 ....

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 30 Septembre 2013

• #9

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+

 

Pièces jointes

• REMISE A ZERO LES CELLULES FUSIONNEES.xlsm

  45.3 KB · Affichages: 46

Vote positif 0 Vote négatif