L’un des outils très utiles fournis dans Excel est Rechercher et remplacer, qui vous permet de localiser et de modifier les informations stockées dans les cellules. Cependant, les informations stockées dans les en-têtes ou les pieds de page de vos feuilles de calcul ne fonctionnent pas.

La seule façon de gérer la recherche et le remplacement d’informations dans un en-tête ou un pied de page consiste à utiliser une macro. C’est une tâche assez triviale d’accéder à ce qui est stocké dans les différentes parties de l’en-tête et du pied de page, de les vérifier pour ce que vous voulez trouver, puis de le remplacer par un nouveau texte. La macro suivante fournit un exemple.

Sub FnR_HF()         Dim sWhat As String, sReplacment As String     Const csTITLE As String = "Find and Replace"



sWhat = InputBox("Replace what", csTITLE)

If Len(sWhat) = 0 Then Exit Sub     sReplacment = InputBox("With what", csTITLE)



With ActiveSheet.PageSetup         ' Substitute Header/Footer values         .LeftHeader = Application.WorksheetFunction.Substitute( _                       .LeftHeader, sWhat, sReplacment)

.CenterHeader = Application.WorksheetFunction.Substitute( _                         .CenterHeader, sWhat, sReplacment)

.RightHeader = Application.WorksheetFunction.Substitute( _                        .RightHeader, sWhat, sReplacment)

.LeftFooter = Application.WorksheetFunction.Substitute( _                       .LeftFooter, sWhat, sReplacment)

.CenterFooter = Application.WorksheetFunction.Substitute( _                         .CenterFooter, sWhat, sReplacment)

.RightFooter = Application.WorksheetFunction.Substitute( _                        .RightFooter, sWhat, sReplacment)

End With End Sub

Notez comment la macro effectue les remplacements dans les trois parties de l’en-tête et les trois parties du pied de page.

Si vous préférez ne pas utiliser votre propre macro, ou si vous voulez une recherche et remplacement plus complète pour Excel, vous pouvez envisager le complément FlexFind gratuit d’Excel MVP Jan Karel Pieterse:

http://www.jkp-ads.com/officemarketplaceff-en.asp

Cela ajoute régulièrement des recherches, mais également des recherches dans de nombreux autres domaines, notamment les en-têtes et les pieds de page.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (3928) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

link: / excelribbon-Find_and_Replace_in_Headers [Rechercher et remplacer dans les en-têtes].