Recopier une MFC sur une plage de taille variable en VBA

  • Initiateur de la discussion Initiateur de la discussion pharai
  • Date de début Date de début

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 !

pharai

XLDnaute Nouveau
Bonjour,

J'ai joint un fichier exemple car assez dur à expliquer ...
Toute latitude est donnée aux modos pour modifier le titre du post !

Je cherche en VBA, quand je défusionne une plage de cellules (sélectionnées à la souris) à ce que toutes les cellules de la sélection récupèrent le formatage conditionnel que seule la 1ère cellule de la plage "défusionnée" conserve".

J'ai essayé de modifer ma macro "défusion" mais j'ai sûrement loupé une (ou plusieurs) étapes :

Code:
Sub defusion()
Dim RangeToCopyMFC As Range, X As Long

'Déprotection de la feuille active
ActiveSheet.Unprotect

Set RangeToCopyMFC = Selection.Cells
    With Selection
            .MergeCells = False
            .Locked = False
        For X = 1 To Selection.Cells.Count
            Selection.Cells(1, 1).Copy
            Selection.Cells(X).PasteSpecial Paste:=xlPasteAllMergingConditionalFormats, Operation _
        :=xlNone, SkipBlanks:=False, Transpose:=False
        Next X
        
    End With

'Reprotection de la feuille active sans mot de passe
ActiveSheet.Protect

End Sub

En sachant que ce n'est que le début de mes questions : je cherche pour l'instant seulement la "défusion" en vertical dans un tableau où toutes les MFC sont identiques dans toutes les cellules.
Mais j'aurai aussi besoin d'aide pour faire la même chose en "horizontal" (avec des MFC différentes toutes les colonnes ...).

Je remercie d'avance les personnes qui pourront me donner un coup de main
 

Pièces jointes

- 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

Retour