Accéder au contenu principal

Comment trouver et remplacer des nombres par des indices dans Excel ?

Author: Sun Last Modified: 2025-05-27
find replace number with subscript
Dans Excel, vous pouvez utiliser la fonction Rechercher et Remplacer pour remplacer un nombre par un format en exposant, mais cela ne fonctionne pas lorsque vous souhaitez le remplacer par un format en indice, comme le montre la capture d'écran ci-dessous. Cependant, je peux vous proposer quelques astuces pour gérer rapidement cette question dans Excel.

Trouver et remplacer tous les nombres par des indices via VBA

Trouver et remplacer des nombres par des indices dans des formules chimiques avec Kutools pour Excel good idea3

Trouver et remplacer tous les nombres par des indices via VBA

Dans Excel, hormis le code macro, il n'existe aucune méthode permettant de rechercher et remplacer du texte au format indice.

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

2. Cliquez sur Insérer > Module, puis collez le code ci-dessous dans le script vide.

VBA : Trouver et remplacer tous les nombres avec un format en indice

Sub SubscriptNumbers()
'UpdatebyExtendoffice20160705
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xChar As String
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xTxt = xCell.Value
        For I = 1 To Len(xTxt)
            xChar = Mid(xTxt, I, 1)
            If xChar >= "0" And xChar <= "9" Then
                xCell.Characters(I, 1).Font.Subscript = True
            End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub

copy and paste the code into the module

3. Appuyez sur F5 une touche, une Kutools pour Excel boîte de dialogue apparaît pour vous rappeler de sélectionner une plage de travail. Voir la capture d'écran :
vba code to select data range

4. Après avoir sélectionné, cliquez sur OK, et tous les nombres dans la sélection ont été convertis en indice.
all numbers in the selection have been converted to be subscript.


Trouver et remplacer des nombres par des indices dans des formules chimiques avec Kutools pour Excel

En plus du code macro, vous pouvez en réalité appliquer un outil simple appelé Indices aux nombres dans les formules chimiques pour convertir rapidement tous les nombres normaux dans les formules chimiques en format d'indice si vous avez installé Kutools pour Excel.

Kutools pour Excel propose plus de 300 fonctionnalités avancées pour simplifier les tâches complexes, augmentant ainsi la créativité et l'efficacité. Intégré à des capacités d'IA, Kutools automatise les tâches avec précision, rendant la gestion des données facile et sans effort. Informations détaillées sur Kutools pour Excel...  Essai gratuit...

Après avoir installé gratuitement Kutools pour Excel, veuillez procéder comme suit :

Sélectionnez les cellules où vous souhaitez mettre les nombres en indice, cliquez sur Kutools > Texte > Indices aux nombres dans les formules chimiques. Voir la capture d'écran :
click Subscript numbers in Chemical Formulas feature of kutools

Une boîte de dialogue apparaît pour vous indiquer combien de cellules ont été converties, et les nombres dans les formules chimiques sélectionnées ont été mis en format d'indice.
the numbers in selected range are formatted as subscript format

  Convertir un nombre en indice dans une formule chimique

 

Meilleurs outils de productivité pour Office

🤖 Kutools AI Aide : Révolutionner l'analyse des données basée sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les Fonctions améliorées
Fonctionnalités populaires : Trouver, mise en évidence ou marquer les doublons   |  Supprimer les lignes vides   |  Consolider les colonnes ou les cellules sans perdre de données   |   Arrondir sans formule ...
Super RECHERCHEV : RECHERCHEV avec critères multiples    RECHERCHEV avec valeurs multiples  |   Recherche multi-feuilles   |   Correspondance floue ....
Liste déroulante avancée : Créer rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante multi-sélection ....
Gestionnaire de colonnes : Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages & colonnes ...
Fonctionnalités en vedette : Mise au point de la grille   |  Affichage de conception   |   Barre de formule améliorée    Gestionnaire de classeur & feuille de calcul   |  Bibliothèque dAutoTexte (Auto Text)   |  Sélecteur de date   |  Fusionner les données   |  Crypter/Déchiffrer les cellules    Envoyer un e-mail par liste   |  Super Filtre   |   Filtre spécial (filtrer les cellules avec une police en gras/italique/barré...) ...
Top15 ensembles d'outils12 outils de texte (Ajouter du texte, Supprimer des caractères spécifiques, ...)   |   50+ types de graphiques (Diagramme de Gantt, ...)   |   40+ formules pratiques (Calculer lâge en fonction de la date de naissance, ...)   |   19 outils d'insertion (Insérer un code QR, Insérer une image depuis le chemin, ...)   |  12 outils de conversion (Convertir en mots, Conversion de devises, ...)   |  7 outils de fusion & division (Fusion avancée des lignes, Diviser les cellules, ...)   |   ... et plus

Boostez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité sans précédent. Kutools pour Excel propose plus de300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...


Office Tab apporte une interface à onglets à Office, et facilite grandement votre travail

  • Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de50 %, et réduit des centaines de clics de souris pour vous chaque jour !