Raccourcir macro cellules fusionnées, est ce possible ?

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

libellule85

XLDnaute Accro
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.

Code:
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
 
[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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
993
Réponses
5
Affichages
1 K
G
Réponses
1
Affichages
2 K
Compte Supprimé 979
C
B
  • Question Question
Réponses
7
Affichages
1 K
LaurentTBT
L
Retour