Microsoft 365 Recopie MFC

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

  • Test MFC par ligne.xlsx
    9.7 KB · Affichages: 7

Mongo

XLDnaute Junior
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

  • Test MFC par ligne modifié.xlsx
    9.6 KB · Affichages: 1
Dernière édition:

job75

XLDnaute Barbatruc
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+
 

Mongo

XLDnaute Junior
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 👍
 

Discussions similaires

Réponses
25
Affichages
632

Statistiques des forums

Discussions
312 034
Messages
2 084 808
Membres
102 676
dernier inscrit
LN6