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