[-RESOLUTO-]Effacer des cellules fusionnees

Private Sub CommandButton1_Click()

If MsgBox("souhaitez vous effacer le contenu du tableau ?", vbYesNo, "confirmer votre choix ") = vbNo Then Exit Sub
With Sheets("nom onglet ")
' quand je double clic sur le bouton d'effacement




' par ce code je selectionne chaque cellule individuelle a nettoyer
.Range("D3, H3, H70 ").ClearContents
'par ce code je selectionne une plage de cellule a effacer
.Range("G5:G18, G43:G69").ClearContents

' par ce code je selectionne plusieurs plages de cellule individuelles a nettoyer
'les cellules fusionnés sont a considérer commes des plages de cellules
.Range("F19:G20,F21:G31,F32:G42").ClearContents


End With


End Sub

Cliquez pour agrandir...