Comment rechercher et remplacer les noms des onglets de feuille dans Excel ?

Il est facile de rechercher et remplacer des valeurs dans les cellules d'Excel. Mais existe-t-il un moyen de rechercher et remplacer les noms des feuilles dans Excel ? Par exemple, comme le montre la capture d'écran ci-dessous, vous avez plusieurs feuilles de calcul contenant « KTE(Ventes) xxx » dans le nom de la feuille, et maintenant vous devez remplacer tous les « KTE(Ventes) » par « KTE » dans tous les noms de feuilles concernés. Que pouvez-vous faire ? Cet article présentera une méthode VBA pour y parvenir.

Rechercher et remplacer les noms des onglets de feuille avec du code VBA

Rechercher et remplacer les noms des onglets de feuille avec du code VBA

Veuillez appliquer le code VBA ci-dessous pour rechercher et remplacer les noms des onglets de feuille dans Excel. Veuillez procéder comme suit.

1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Insertion > Module. Ensuite, copiez le code VBA ci-dessous dans la fenêtre de code.

Code VBA : rechercher et remplacer les noms des onglets de feuille dans Excel

Sub Find_replace_sheet_name()
'Update by Extendoffice 2018/5/24
    Dim xNum As Long
    Dim xRepName As String
    Dim xNewName As String
    Dim xSheetName As String
    Dim xSheet As Worksheet
    xRepName = Application.InputBox("Please type in the word you will replace：", "Kutools for Excel", , , , , , 2)
    xNewName = Application.InputBox("Please type in the word you will replace with：", "Kutools for Excel", , , , , , 2)
    If xRepName = "false" Or xNewName = "false" Then Exit Sub
    On Error GoTo ExitLab
    For Each xSheet In ActiveWorkbook.Sheets
        xSheetName = xSheet.Name
        xNum = InStr(1, xSheetName, xRepName)
        If xNum > 0 Then
            xSheet.Name = Replace(xSheetName, xRepName, xNewName)
        End If
ExitLab:
    Next
End Sub

3. Appuyez sur la touche F5 pour exécuter le code.

4. Ensuite, une boîte de dialogue Kutools for Excel apparaît, veuillez entrer les mots des noms de feuilles que vous souhaitez remplacer, puis cliquez sur le bouton OK. Voir la capture d'écran :

5. Dans la deuxième boîte de dialogue Kutools for Excel, entrez le mot avec lequel vous souhaitez remplacer, puis cliquez sur le bouton OK.

Ensuite, tous les mots correspondants dans les noms des onglets de feuille sont remplacés par celui spécifié, comme le montre la capture d'écran ci-dessous.

Remarque : Le code ci-dessus est sensible à la casse.

Découvrez la magie d'Excel avec Kutools AI

• Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
• Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
• Codage VBA : Écrivez et implémentez du code VBA sans effort.
• Interprétation des formules : Comprenez facilement des formules complexes.
• Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.

Améliorez vos capacités Excel avec des outils alimentés par l'IA. Téléchargez maintenant et découvrez une efficacité sans précédent !

Articles connexes :

• Comment rechercher et remplacer toutes les cellules vides par un certain nombre ou texte dans Excel ?
• Comment remplacer les virgules par des sauts de ligne (Alt + Entrée) dans les cellules d'Excel ?
• Comment créer un code macro pour effectuer une recherche et un remplacement de texte dans Excel ?
• Comment trouver une valeur dans une cellule avec une liste séparée par des virgules dans Excel ?
• Comment trouver l'intersection de deux listes de colonnes dans Excel ?