Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment trouver et remplacer dans l'en-tête ou le pied de page dans Excel?

Pour trouver une valeur spécifique et la remplacer par une autre valeur dans Excel est commun dans notre travail quotidien, mais dans Excel, la fonction Rechercher et remplacer fonctionne bien dans sélection, feuilles et classeur, mais ne peut pas trouver et remplacer en en-tête et pied. Dans cet article, je présente un code de macro pour trouver et remplacer des valeurs dans l'en-tête et le pied de page.

Rechercher et remplacer dans l'en-tête ou le pied de page avec VBA


nousVolet de navigation - Rechercher et remplacer

Kutools for Excelest avancé Rechercher et remplacer fonction, peut vous aider à trouver et
remplacez une valeur sur plusieurs feuilles et classeurs.
doc trouver et remplacer

flèche bleue droite bulle Rechercher et remplacer dans l'en-tête ou le pied de page avec VBA


1. Activez la feuille que vous souhaitez rechercher et remplacer dans l'en-tête et le pied de page, appuyez sur Alt + F11 clés pour ouvrir Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Moduleet collez sous le code VBA dans le module. Voir la capture d'écran:

VBA: Rechercher et remplacer dans l'en-tête et le pied de page

Sub FnR_HF()
'UpdateByExtendoffice20160623
    Dim xStr As String, xRep As String
    'Const csTITLE As String = "Find and Replace"
    On Error Resume Next
    xStr = Application.InputBox("Replace what", "Kutools for Excel", , , , , 2)
    If xStr = "" Then Exit Sub
    xRep = Application.InputBox("With what", , "Kutools for Excel", , , , , 2)
    With ActiveSheet.PageSetup
        ' Substitute Header/Footer values
        .LeftHeader = Application.WorksheetFunction.Substitute(.LeftHeader, xStr, xRep)
        .CenterHeader = Application.WorksheetFunction.Substitute(.CenterHeader, xStr, xRep)
        .RightHeader = Application.WorksheetFunction.Substitute(.RightHeader, xStr, xRep)
        .LeftFooter = Application.WorksheetFunction.Substitute(.LeftFooter, xStr, xRep)
        .CenterFooter = Application.WorksheetFunction.Substitute(.CenterFooter, xStr, xRep)
        .RightFooter = Application.WorksheetFunction.Substitute(.RightFooter, xStr, xRep)
    End With
End Sub

doc find remplacer en-tête en-tête 1

3. Puis appuyez F5 clé pour exécuter le code, puis une boîte de dialogue apparaît pour vous permettre d'entrer le texte que vous voulez trouver. Voir la capture d'écran:
doc find remplacer en-tête en-tête 2

4. Cliquez OKet une autre boîte de dialogue apparaît pour entrer le texte que vous voulez remplacer. Voir la capture d'écran:
doc find remplacer en-tête en-tête 3

5. Cliquez OK. Maintenant les valeurs "KTE" ont été remplacés par "Kutools pour Excel" dans l'en-tête et le pied de page.
doc find remplacer en-tête en-tête 4

Pointe: Si vous souhaitez travailler pour l'ensemble du classeur, vous pouvez utiliser le code de macro ci-dessous.

Sub FnR_HF()
'UpdateByExtendoffice20171122
    Dim I As Long
    Dim xStr As String, xRep As String
    'Const csTITLE As String = "Find and Replace"
    On Error Resume Next
    xStr = Application.InputBox("Replace what", "Kutools for Excel", , , , , 2)
    If xStr = "" Then Exit Sub
    xRep = Application.InputBox("With what", , "Kutools for Excel", , , , , 2)
    For I = 1 To ActiveWorkbook.Sheets.Count
        With Sheets(I).PageSetup
            ' Substitute Header/Footer values
            .LeftHeader = Application.WorksheetFunction.Substitute(.LeftHeader, xStr, xRep)
            .CenterHeader = Application.WorksheetFunction.Substitute(.CenterHeader, xStr, xRep)
            .RightHeader = Application.WorksheetFunction.Substitute(.RightHeader, xStr, xRep)
            .LeftFooter = Application.WorksheetFunction.Substitute(.LeftFooter, xStr, xRep)
            .CenterFooter = Application.WorksheetFunction.Substitute(.CenterFooter, xStr, xRep)
            .RightFooter = Application.WorksheetFunction.Substitute(.RightFooter, xStr, xRep)
        End With
    Next
End Sub

Avec Kutools for Excel's Insérer des informations de classeur utilitaire, vous pouvez insérer le nom d'utilisateur, le nom de la feuille de calcul, le chemin du classeur, etc. dans le pied de page ou l'en-tête de la feuille active. Voir la capture d'écran:
doc find remplacer en-tête en-tête 5

doc télécharger 1



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Vijay · 1 years ago
    Dear all, Please advise me how to modify above VBA code to search and replace in complete WORKBOOK headers/footers. Thanks in advance
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      About your question, I have add the new VBA code in this article which can find and replace headers/footers in the whole wokrbook.