Copiage d'une plage de cellule en conservant règle de surbrillance

[philippe_chalon01]

Bonjour,
J'ai une macro qui copie une plage de cellule d'une feuille et qui va coller cette plage dans un nouveau fichier.
Cette plage de cellule contient des règles de surbrillance : vert si comprise entre telle et telle valeur, rouge si non comprise.
Seulement lors du copiage, les règle de surbrillance se conservent et cela est bien, cependant il met tout en rouge, même les valeurs positive...
Je ne comprends pas le problème puisque quand je vérifie les règles de surbrillance elles n'ont pas changé.
Est ce que je devrais alors modifier la macro pour qu'elle copie seulement la mise en forme (donc la couleur) des cellules et ne pas copier les règles de surbrillance ?

J'ai de plus un autre problème avec ce fichier. En effet lorsqu'il crée le nouveau document, j'ai choisi comme chemin de sauvegarde le même chemin que celui du fichier source mais pourtant il sauvegarde le fichier dans mes documents...
Merci à ceux qui m'aideront

 

[vgendron]

Hello

je viens de regarder
1) le code que je t'ai proposé hier, marche bien chez moi. mais effectivement, on a bien 4 pages à l'arrivée.
je pense qu'il faut donc définir la zone d'impression ET la mise en page Excel

donc voici (je viens de tester, j'ai bien un pdf avec UNE page)
je suis quasi sur que tout un tas d'instructions pourraient être ignorées. mais. comme je ne sais pas trop qui fait quoi. j'ai laissé ce que m'a donné l'enregistreur de macro

'définition de la zone d'impression ET mise en page
ActiveSheet.PageSetup.PrintArea = "$A$1:$L$59"
With ActiveSheet.PageSetup
    .PrintTitleRows = ""
    .PrintTitleColumns = ""
    .LeftHeader = ""
    .CenterHeader = ""
    .RightHeader = ""
    .LeftFooter = ""
    .CenterFooter = ""
    .RightFooter = ""
    .LeftMargin = Application.InchesToPoints(0.7)
    .RightMargin = Application.InchesToPoints(0.7)
    .TopMargin = Application.InchesToPoints(0.75)
    .BottomMargin = Application.InchesToPoints(0.75)
    .HeaderMargin = Application.InchesToPoints(0.3)
    .FooterMargin = Application.InchesToPoints(0.3)
    .PrintHeadings = False
    .PrintGridlines = False
    .PrintComments = xlPrintNoComments
    .PrintQuality = 600
    .CenterHorizontally = False
    .CenterVertically = False
    .Orientation = xlPortrait
    .Draft = False
    .PaperSize = xlPaperA4
    .FirstPageNumber = xlAutomatic
    .Order = xlDownThenOver
    .BlackAndWhite = False
    .Zoom = False
    .FitToPagesWide = 1 'ces deux lignes sont importantes !!
    .FitToPagesTall = 1 'ces deux lignes sont importantes !!
    .PrintErrors = xlPrintErrorsDisplayed
    .OddAndEvenPagesHeaderFooter = False
    .DifferentFirstPageHeaderFooter = False
    .ScaleWithDocHeaderFooter = True
    .AlignMarginsHeaderFooter = True
    .EvenPage.LeftHeader.Text = ""
    .EvenPage.CenterHeader.Text = ""
    .EvenPage.RightHeader.Text = ""
    .EvenPage.LeftFooter.Text = ""
    .EvenPage.CenterFooter.Text = ""
    .EvenPage.RightFooter.Text = ""
    .FirstPage.LeftHeader.Text = ""
    .FirstPage.CenterHeader.Text = ""
    .FirstPage.RightHeader.Text = ""
    .FirstPage.LeftFooter.Text = ""
    .FirstPage.CenterFooter.Text = ""
    .FirstPage.RightFooter.Text = ""
End With

'selection de la zone à exporter en pdf
Range("A1:L59").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Chemin & "\" & NFicPdf, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

 

[philippe_chalon01]

Ca marche, impeccable, merci beaucoup 🙂

 

[vgendron]

Ne serait ce pas un peu long par contre?
chez moi.. rien que la mise en forme, c'est plus long (15s) que les check box..

 

[vgendron]

Pour finir cette histoire de boucle qui me travaille depuis le début (je sais, t'as pas demandé ;-) )
mais puisque je l'ai fait. autant te l'envoyer

1) une seule macro de sauvegarde au lieu de 11 fois la même qu'il faut toutes modifier au moindre changement de code
2) pour qu'elle fonctionne. j'ai renommé les boutons qui font tous appel à la meme macro SauvX
3) reste toujours cette histoire de checkbox.. mais la; je sèche

regarde le code, j'ai essayé de le commenter au maximum pour que tu comprennes comment il fonctionne