Discussion :

[lindette]

Bonjour

J'ai une feuille "devis" et une feuille "pieddepage" où se trouve le montant de mon devis, la remise etc...
et donc quan d j'ai fini de remplir mondevis se fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
'on recherche la dernière ligne de la colonne A de la feuille DEVIS
derli = Sheets("DEVIS").Columns(1).Find("*", , , , , xlPrevious).Row
'on cherche le multiple de 44
derli = Application.Ceiling(derli, 44)
'on colle
Sheets("piedpage").Range("A1:F900").Copy Sheets("DEVIS").Range("A" & derli + 1)

donc cela colle bien mon piedpage sur la feuille devis seulemnt cela ne colle pas le contenu des cellules où il y a des formules??
je ne comprends pas, merci d'avance pour votre aide
Lindette

[fred65200]

bonsoir lindette

est ce qu'il n'est pas possible de paramétrer ton peied de page avant d'imprimer par l'intermédiaire de l'évènement BeforePrint

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
 
If ActiveSheet.Name = "Devis" Then
  If Range("TotalHT").Cells(5, 2) = "" And Not Range("TotalHT") = 0 Then ControleHT
  If ['Saisie des données'!C2] = "" And Not Range("TotalHT") = 0 Then
      Select Case MsgBox("Voulez-vous exporter les données sur le tableau des devis?", vbYesNoCancel, _
          "Tableau des devis " & Year(Date))
      Case vbYes
          Application.Run "VersTabDevis": ['Saisie des données'!C2] = _
          "Données exportées vers Tableau des devis " & Year(Date)
      Case vbCancel:  Cancel = True: End
      End Select
  End If
 
  EnTeteCentral = "Devis " & ['Saisie des données'!B3] & _
    " - " & ['Saisie des données'!B8]
  PiedDePageGauche = "&B&""Arial""&9MA BOITE&B&8" & vbLf & "19 rue qui Tourne" & vbLf & _
    "65200 BAGNÈRES DE BIGORRE" & vbLf & "&7SIRET 000 000 000 00000"
  PiedDePageCentral = "01 23 45 67 89" & vbLf & "&U&K0000FF&""courier""www.xxxxx.com" & vbLf & _
    "&U" & Application.Rept(" ", Len("?subject=devis " & ['Saisie des données'!B3])) & _
    "&U&K0000FFdevis@xxxx.com&K00+000?subject=Devis_" & ['Saisie des données'!B3]
  PiedDePageDroit = "&P / &N"
 
  With ActiveSheet.PageSetup
    .CenterHeader = EnTeteCentral
    .LeftFooter = PiedDePageGauche
    .CenterFooter = PiedDePageCentral
    .RightFooter = PiedDePageDroit
  End With
End If
 
End Sub

J'utilise ce code pour mes devis, tu remarqueras que la police du pied de page central est modifiée pour avoir une police fixe, pour conserver le centrage (le sujet du lien hypertexte en mis en blanc).
Adapte le code à ton projet et tiens nous au courant.

Tu peux aussi essayer CopyPicture qui te prend une "photo" avec fond transparent. N'oublie pas de supprimer le quadrillage avant de copier et de le remettre ensuite.

Salutations
fred65200

[lindette]

Bonjour
merci pour ta réponse mais non cela ne va pas....
mais je crois avoir trouver la solution merci quand même
Lindette

[fred65200]

bonjour lindette

Tu peux aussi essayer CopyPicture qui te prend une "photo" avec fond transparent. N'oublie pas de supprimer le quadrillage avant de copier et de le remettre ensuite.

fred65200