XL 2013 Garder la mise en forme malgré une macro

[degards]

Bonjour à vous !!! J'ai besoin de votre soutient afin de trouver une solution à mon problème. J'ai créé un feuille afin de faire un topo de notre journée de travail. On m'a demandé d'ajouter deux cases et c'est là que ça bloque. J'aimerais conserver la mise en forme présente et que lorsque j'appuie sur "ENVOYER TOPO", il faut que l'impression PDF comprenne tout y ce que l'on voit à l'écran de la ligne 1 à la ligne correspondante à la ligne sous "AUTRES" présentement en B11. Je veux que la hauteur des lignes titre demeure la même lorsque "j'AJOUTE UN ÉVÉNEMENT".

Merci à l'avance !!!

 

[Bernard_XLD]

Bonjour degards, le forum

Voila ton fichier modifié !
[édition : c'est fait aussi pour le pdf, j'ai juste changé la formule d'area]
Bien cordialement, @+

Sub ajoutenregistrement()
'
' ajoutenregistrement Macro
'

'
    With ActiveSheet
        .Unprotect
        .Rows(.Range("Tableau7")(.Range("Tableau7").Count).Row + 1).Insert Shift:=xlDown
        .ListObjects("Tableau7").Resize Range("$A$4:$B$" & .Range("Tableau7")(.Range("Tableau7").Count).Row + 1)
        .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
            , AllowFormattingCells:=True, AllowFormattingRows:=True, _
            AllowInsertingRows:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
    End With
End Sub

 

[Bernard_XLD]

Re,

petite modification, comme cela tu peux ajouter toutes les lignes que tu veux avant ou après ton tableau.

Bien cordialement, @+

Sub ajoutenregistrement()
'
' ajoutenregistrement Macro
'

'
    With ActiveSheet
        .Unprotect
        .Rows(.Range("Tableau7")(.Range("Tableau7").Count).Row + 1).Insert Shift:=xlDown
        .ListObjects("Tableau7").Resize Range("$A$" & [Tableau7[#headers]].Row & ":$B$" & .Range("Tableau7")(.Range("Tableau7").Count).Row + 1)
        .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True, AllowFormattingRows:=True, _
            AllowInsertingRows:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
    End With
End Sub

 

[degards]

Merci de ta réponse cela fonctionne très bien , c'est vraiment sympa

Bonjour degards, le forum

Voila ton fichier modifié !
[édition : c'est fait aussi pour le pdf, j'ai juste changé la formule d'area]
Bien cordialement, @+

Sub ajoutenregistrement()
'
' ajoutenregistrement Macro
'

'
    With ActiveSheet
        .Unprotect
        .Rows(.Range("Tableau7")(.Range("Tableau7").Count).Row + 1).Insert Shift:=xlDown
        .ListObjects("Tableau7").Resize Range("$A$4:$B$" & .Range("Tableau7")(.Range("Tableau7").Count).Row + 1)
        .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
            , AllowFormattingCells:=True, AllowFormattingRows:=True, _
            AllowInsertingRows:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
    End With
End Sub

 

[Bernard_XLD]

je viens de poster une petite modif !
@+