Pied de page VBA

Bonjour à tous !

Petite question pour améliorer mon apprentissage VBA et ma présentation :

Avec VBA j'ai mis dans mon pied de page une cellule contenant du texte.

Je voudrais si cela est possible :

1 - mettre le texte avec la police de caractère de mon choix, tout comme sa taille

2 - Que mon pied de page se mette à jour dés que ma cellule change

3 - Que tous mes onglets est se pied de page

Ma formule que j'ai utilisée :

ActiveSheet.PageSetup.LeftFooter = Range("='00 - Coordonées'!b2").Value & Range("='00 - Coordonées'!c2").Value & vbLf & Range("='00 - Coordonées'!B43").Value & Range("='00 - Coordonées'!C43").Value

Voila voila.

Merci pour votre aide !!!

Bonsoir JRa

Avec l'enregistreur de macro, cela donne

With ActiveSheet.PageSetup
.RightFooter = "&""Arial,Gras""&12Ceci est un essai"
End With

2) pour cela, il faut utiliser l'évènement "Change" de la feuille

3) pour cela il faut utiliser une boucle

Sub PiedDePageTous()
  Dim Sht As Worksheet
  For Each Sht In ThisWorkbook.Sheets
    With Sht.PageSetup
      .RightFooter = "&""Arial,Gras""&12Ceci est un essai"
    End With
  Next Sht
End Sub

Bonne soirée

Merci beaucoup pour votre aide, je m'empresse de mettre en application tous cela !!!

Re bonsoir BrunoM45

Impossible d'appliquer la typo Arial sur la cellule que j'appel ... il me rajoute en texte le nom de la typo !!!

Sub UpdateFooter()
ActiveSheet.PageSetup.LeftFooter = "Numero d'affaire :" & Range("='00 - Coordonées'!c2").Value & "Arial,Gras" & vbLf & "Indice " & Range("='00 - Coordonées'!C43").Value
End Sub

Pas trouver la réponse pour écrire correctement le code afin d'appliquer une typo et une taille ...

Help !!!!

Bonjour JRa

Comme vous le dites il faut écrire correctement la ligne avec double guillemets

Vous pouvez remplacer un guillemet par l'instruction Chr(34)

Ce n'est quand même pas compliqué non

A+

Bonjour Bruno,

Merci pour l'astuce de remplacer les deux guillemets, je vais reprendre l'ensemble !

certes ce n'est pas compliquée comme formule, mais .... pour un béotien comme moi en VBA .... pas facile, mais ce n'est pas ce qu'il me fait peur !

Re,

Désolé, je n'étais pas chez moi lors de ma réponse,

Voici le code

Sub PiedDePageTous()
  Dim Sht As Worksheet
  'Set Sht = ActiveSheet
  For Each Sht In ThisWorkbook.Sheets
    With Sht.PageSetup
      .RightFooter = "&""Arial,Gras""&12" & Sheets("Coordonnées").Range("B2") & Sheets("Coordonnées").Range("C2") & Sheets("Coordonnées").Range("B43") & Sheets("Coordonnées").Range("C43")
    End With
  Next Sht
End Sub

A+

Je rentre à l'instant de déplacement, merci pour les lignes de codes, demain à la fraiche je me ferais un plaisir d'appliquer tous cela !!!!

Merci beaucoup pour votre aide !!!

bonjour le fil,

même fonctionnement mais plus lisible

Sub PiedDePageTous()
     With Sheets("Coordonnées")
          s = .Range("B2").Value & .Range("C2").Value & .Range("B43").Value & .Range("C43").Value
     End With

     For Each Sht In ThisWorkbook.Worksheets
          Sht.PageSetup.RightFooter = "&""Arial,Gras""&12" & s
     Next Sht

End Sub

Merci a tous pour cette résolution, et apprentissage !!!