Insérer une formule dans un entête

[scoubidou35]

Bonjour à tous
J'ai un problème. Je dois créer un document qui en fonction de l'année sélectionné affiche en entête l'une des deux adresses.
Je ne m'y connais pas assez en macro donc si des personnes peuvent m'aidez si cela est possible.
Merci d'avance
Cordialement
Sebastien

 

[Brice G]

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

 

[scoubidou35]

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

 

[phlaurent55]

Bonjour à tous,

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

avec ce 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

 

[scoubidou35]

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

 

[phlaurent55]

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

 

[scoubidou35]

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

 

[scoubidou35]

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é.

 

[scoubidou35]

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

 

[phlaurent55]

Re-bonjour,

le fichier en retour

à+
Philippe

 

[scoubidou35]

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

 

[phlaurent55]

Re,

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

voir fichier joint

à+
Philippe

 

[scoubidou35]

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