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