Effacer le contenus dans des cellule fusionner

Marco95480

XLDnaute Nouveau
bonjour à vous tous,
Je bloque sur un code qui pourrai effacer le contenus dans des cellules fusionner
C5:F5 est fusionner

Private Sub CommandButton1_Click()
Dim Plage As Range, Cel As Range

'Etape 1 : On supprime les cellules feuille 0 C5'
Set Plage = Range("C5")
For Each Cel In Plage 'pour chaque cellule dans la plage sélectionnée
If Left(Cel.Formula, 1) <> "=" Then 'si la cellule ne contient pas de formule
With Cel
.ClearContents 'supprime le contenu
.ClearComments 'supprime le commentaire
End With
End If
Next

End Sub

Merci de votre aide
Cordialement
Marc
 

JCGL

XLDnaute Barbatruc
Bonjour à tous,

Peux-tu essayer avec :

VB:
Option Explicit

Sub Test()
    Dim Plage As Range, Cel As Range
    Set Plage = Range("C5:F5")
    Set Cel = Range("C5")
    Plage.UnMerge
    If Left(Cel.Formula, 1) <> "=" Then
        Cel.ClearContents
        Cel.ClearComments
    End If
    Plage.Merge
End Sub

A+ à tous
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour à tous,
Ce code peut-être?:
VB:
Sub Test()
  With Range("C5").MergeArea
    If Not Range("C5").HasFormula Then
      .ClearContents: .ClearComments: End If
  End With
End Sub

Houps! J'avais codé le contraire de ce qui était demandé :mad:. Version V1a corrigée.
 

Pièces jointes

  • Marco95480- effacer si constante-v1a.xlsm
    17.5 KB · Affichages: 34
Dernière édition:

Marco95480

XLDnaute Nouveau
Bonjour à tous,

Peux-tu essayer avec :

VB:
Option Explicit

Sub Test()
    Dim Plage As Range, Cel As Range
    Set Plage = Range("C5:F5")
    Set Cel = Range("C5")
    Plage.UnMerge
    If Left(Cel.Formula, 1) <> "=" Then
        Cel.ClearContents
        Cel.ClearComments
    End If
    Plage.Merge
End Sub

A+ à tous

Un grand Merci
La plage .UnMerge Scinde une zone fusionnée en cellules individuelles.
Je découvre et pourtant j'ai cherché
encore Merci a vous
 

Discussions similaires

Réponses
1
Affichages
204
Réponses
2
Affichages
129
Réponses
6
Affichages
99

Statistiques des forums

Discussions
311 720
Messages
2 081 910
Membres
101 837
dernier inscrit
Ugo