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.
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 !
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.
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
Non, non, il n'est pas invisible Job75.
C'est juste que je ne l'ai pas encore testé mais je pense que je vais adopter ta solution si le résultat est conforme à ce que je veux.
Je te tiens informé demain ou lundi.
Merci beaucoup
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