Insérer une formule dans un entête

La_Mouette

XLDnaute Occasionnel

• 22 Novembre 2017

• #2

Bonsoir,
je ne sais pas si cela répond à votre question, j'ai agit le plus simplement possible.😎

 

Pièces jointes

• Copie de aide pour macro-1.xlsx

  9.8 KB · Affichages: 47

Vote positif 0 Vote négatif

S

scoubidou35

XLDnaute Occasionnel

• 22 Novembre 2017

• #3

Bonjour,
Merci Brice G pour votre réponse mais c'est pas exactement cela que j'ai besoins. En fait j'ai besoins que l'adresse apparaisse uniquement sur l'entête du document lors de l'impression. Je ne sais si je suis très clair dans mes explications mais dans excel on peut ajouté un entête ou un pied de page et c'est à ce niveau que je veux intervenir.
Bonne journée
Sébastien

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 22 Novembre 2017

• #4

Bonjour à tous,

scoubidou35 à dit:

En fait j'ai besoins que l'adresse apparaisse uniquement sur l'entête du document lors de l'impression

Cliquez pour agrandir...

avec ce code:

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With ActiveSheet.PageSetup
        If [B5] < 2014 Then
                entete = [A2]
        Else
                entete = [B2]
        End If
    .LeftHeader = entete
    End With
End Sub

à+
Philippe

 

Pièces jointes

• 111.xlsm

  16.4 KB · Affichages: 51

Vote positif 0 Vote négatif

S

scoubidou35

XLDnaute Occasionnel

• 22 Novembre 2017

• #5

Bonjour phlaurent55
J'ai essayé votre fichier mais quand je change d'année, je reste bloqué sur l'adresse 2
de mon coté j'ai essayé ce code mais pareil j'obtiens le résultat visuel voulu mais si je change d'année il reste bloqué également sur la même adresse


Sub entete()
Dim et As String

With ActiveSheet.PageSetup
If [B29] < 2015 Then
et = [A1]
Else
et = [B1]
End If
.CenterHeader = et

End With
End Sub

@+
Sébastien

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 22 Novembre 2017

• #6

Re,

Je viens de réessayer mon fichier, tout fonctionne parfaitement suivant la demande faite
Rem: le fichier a été réalisé avec la version 2007

Attendons la réponse d'un autre intervenant qui aura testé

à+
Philippe

 

Vote positif 0 Vote négatif

S

scoubidou35

XLDnaute Occasionnel

• 22 Novembre 2017

• #7

Rebonjour phlaurent55

J'ai retesté en effet ça fonctionne lors de l'impression j'ai bien la bonne adresse. Le problème c'est quand je contrôle en allant dans le menu affichage/mode d'affichage/mise en page le changement ne s'effectue pas dans l'entête. Et par conséquent quand je demande la vue avant impression l'entête n'est pas forcément le bon.
Je ne sais pas si je suis clair dans mes explications 🙂
Cordialement
Sébastien

 

Vote positif 0 Vote négatif

S

scoubidou35

XLDnaute Occasionnel

• 22 Novembre 2017

• #8

Bon j'ai copié le code dans mon fichier et ça ne marche pas. Je me demande si la cause ne serai pas que la cellule pour sélectionner l'année est un filtre de tableau croisé.

 

Vote positif 0 Vote négatif

S

scoubidou35

XLDnaute Occasionnel

• 27 Novembre 2017

• #9

Bonjour,
J'ai essayé de trouver le code pour mon problème mais en vains
J'ai essayé en recopiant la cellule année hors du TDC mais rien.
Si quelqu'un peu m'aider. J'ai modifier mon fichier "aide pour macro" en insérant un TDC.
Merci d'avance

 

Pièces jointes

• aide pour macro.xlsx

  12.8 KB · Affichages: 21

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 27 Novembre 2017

• #10

Re-bonjour,

le fichier en retour

à+
Philippe

 

Pièces jointes

• 111.xlsm

  19.5 KB · Affichages: 37

Vote positif 0 Vote négatif

S

scoubidou35

XLDnaute Occasionnel

• 28 Novembre 2017

• #11

Bonjour,
Merci pour l'aide fourni. J'ai copié le code dans "theworkbook" comme dans votre fichier et j'ai planté mon fichier et excel. J'ai eu un mal de chien à désactiver les macro pour tout débloquer.
A l'ouverture du fichier on voyait en bas de l'écran qu'il calculait avant le plantage. Je pense que c'est du au fait que mon fichier comporte en trentaine de feuilles.Serait il possible de faire la même chose en mettant le code directement dans le worksheet.
Merci d'avance.
Sébastien

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 29 Novembre 2017

• #12

Re,

scoubidou35 à dit:

Serait il possible de faire la même chose en mettant le code directement dans le worksheet.

Cliquez pour agrandir...

voir fichier joint

à+
Philippe

 

Pièces jointes

• 111.xlsm

  19.4 KB · Affichages: 49

Vote positif 0 Vote négatif

S

scoubidou35

XLDnaute Occasionnel

• 29 Novembre 2017

• #13

Bonsoir Philippe,
ça y est je viens de mettre le code dans le fichier et ça fonctionne. Super merci beaucoup pour votre aide.
@+
Sébastien

 

Vote positif 0 Vote négatif