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 rechercher et remplacer les noms d'onglet de feuille dans Excel?

Il est facile de trouver et de remplacer des valeurs dans des cellules dans Excel. Mais existe-t-il un moyen de trouver et de remplacer les noms de feuilles dans Excel? Par exemple, comme illustré ci-dessous, vous avez plusieurs feuilles de calcul qui contiennent "KTE (Ventes) xxx" dans le nom de la feuille, et maintenant vous devez remplacer "KTE (Ventes)" par "KTE" dans tous les noms de feuilles, peux-tu faire? Cet article présentera une méthode VBA pour y parvenir.

Trouver et remplacer les noms d'onglet de feuille avec le code VBA


Trouver et remplacer les noms d'onglet de feuille avec le code VBA


Veuillez appliquer ci-dessous le code VBA pour trouver et remplacer les noms des onglets dans Excel. S'il vous plaît faire comme suit.

1. appuie sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Ensuite, copiez le code VBA ci-dessous dans la fenêtre de code.

Code VBA: recherche et remplace les noms des onglets 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. appuie sur le F5 clé pour exécuter le code.

4. Puis un Kutools for Excel La boîte de dialogue s'affiche, entrez les mots des noms de feuilles à remplacer, puis cliquez sur OK bouton. Voir la capture d'écran:

5. Dans la seconde Kutools for Excel boîte de dialogue, entrez le mot que vous souhaitez remplacer, puis cliquez sur le OK .

Ensuite, tous les mots connexes dans les noms d'onglet de feuille sont remplacés par un spécifié comme illustré ci-dessous.

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


Articles Liés:



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.

Be the first to comment.