Raccourcir macro cellules fusionnées, est ce possible ?

[libellule85]

Bonsoir le forum,

Une question pour vous les pros d'Excel , est ce que l'on peut "raccourcir" (style en une seule ligne B19:B40 !!) la macro que j'ai mis en dessous ?
Cette macro concerne l'effacement de cellules fusionnées par exemple la B19 avec la C19, la B20 avec la C20 etc... jusqu'à la cellule B40.

Private Sub Label3_Click()
'Sub EffacerCorpsFac()
Range("B19").MergeArea.ClearContents
Range("B20").MergeArea.ClearContents
Range("B21").MergeArea.ClearContents
Range("B22").MergeArea.ClearContents
Range("B23").MergeArea.ClearContents
Range("B24").MergeArea.ClearContents
Range("B25").MergeArea.ClearContents
Range("B26").MergeArea.ClearContents
Range("B27").MergeArea.ClearContents
Range("B28").MergeArea.ClearContents
Range("B29").MergeArea.ClearContents
Range("B30").MergeArea.ClearContents
Range("B31").MergeArea.ClearContents
Range("B32").MergeArea.ClearContents
Range("B33").MergeArea.ClearContents
Range("B34").MergeArea.ClearContents
Range("B35").MergeArea.ClearContents
Range("B36").MergeArea.ClearContents
Range("B37").MergeArea.ClearContents
Range("B38").MergeArea.ClearContents
Range("B39").MergeArea.ClearContents
Range("B40").MergeArea.ClearContents
Range("E19:E40").ClearContents
Range("A41").MergeArea.ClearContents
Range("A19:A40").ClearContents
Range("G19:G40").ClearContents
Range("I19:I40").ClearContents
End Sub

D'avance merci pour vos réponses

 

[Pierrot93]

Re : Raccourcir macro cellules fusionnées, est ce possible ?

Bonsoir,

essaye ceci :

Range("B19:C40").Value = ""

bonne soirée
@+

 

[libellule85]

[Résolu] Raccourcir macro cellules fusionnées, est ce possible ?

Bonsoir Pierrot93,
Une fois de plus tu es mon "sauveur" !! En tout cas je te remercie pour ton code qui fonctionne très bien, et surtout pour la rapidité de ta réponse.
Encore merci
Et bonne soirée