Microsoft 365 Recopie MFC

  • Initiateur de la discussion Initiateur de la discussion Mongo
  • 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 !

Mongo

XLDnaute Junior
Bonjour,
Je me heurte à un problème qui me fait perdre un temps fou.
Dans le fichier joint, chaque ligne correspond à transport pour lequel des propositions tarifaires sont saisies. Le but de la MFC est de faire ressortir le niveau de chaque prix par rapport aux autres, SUR CHAQUE LIGNE. Je l'ai mise en place sur les lignes 2 et 3.
Jusque là pas de soucis.
Ca se complique lorsque je dois recopier cette mise en forme conditionnelle sur plusieurs dizaines de lignes.
Je dois louper quelque chose car si je tente de la recopier en une fois, la MFC se propage sur l'ensemble des lignes et ne fait plus ressortir la hiérarchie par ligne.
Je suis obligé de la recopier ligne par ligne ce qui est très fastidieux.

Si quelqu'un a une solution, je suis preneur 🙂
 

Pièces jointes

Bonjour
Normalement c'est pas compliqué
Tu sélectionnes la ligne B2:I2 > copier
puis le reste du tableau de B3 ... à I ou tu veux
Collage spécial > format !
Je croyais que ta solution fonctionnait mais lorsque je modifie certaines données de la ligne 11, la MFC ne met plus en évidence la hiérarchie de cette ligne mais des données de la ligne 11 par rapport à chaque colonne.
 

Pièces jointes

Dernière édition:
Bonjour Mongo, TooFatBoy, herve62,

Il faut créer autant de MFC différentes qu'il y a de lignes.

Donc le plus simple est d'exécuter cette macro :
VB:
Sub Tirer_MFC()
Dim i&
Application.ScreenUpdating = False
With [B2:I14] 'à adapter
    For i = 2 To .Rows.Count
        .Rows(1).Copy
        .Rows(i).PasteSpecial xlPasteFormats
    Next
End With
Application.CutCopyMode = 0
End Sub
A+
 
Bonjour Mongo, TooFatBoy, herve62,

Il faut créer autant de MFC différentes qu'il y a de lignes.

Donc le plus simple est d'exécuter cette macro :
VB:
Sub Tirer_MFC()
Dim i&
Application.ScreenUpdating = False
With [B2:I14] 'à adapter
    For i = 2 To .Rows.Count
        .Rows(1).Copy
        .Rows(i).PasteSpecial xlPasteFormats
    Next
End With
Application.CutCopyMode = 0
End Sub
A+
Merci Job75, C'est parfait et ça me fera gagner un temps fou 👍
 
- 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