Evan a une feuille de travail qui contient un certain nombre de notations de composés chimiques, tels que H2O. Lorsqu’il entre pour la première fois dans le composé, il peut formater le 2 en indice, comme il se doit. Cependant, Evan doit rechercher les instances où le 2 n’est pas en indice et le remplacer par la notation correctement indexée. Il se demande s’il existe un moyen simple de le faire.

Il n’existe aucun moyen de le faire à l’aide des fonctionnalités Rechercher et remplacer d’Excel.

La raison? Comme l’a dit un abonné d’ExcelTips, « Excel est incroyablement mauvais pour gérer le texte riche dans les cellules. » La preuve en est le fait même que vous ne pouvez pas rechercher une mise en forme mixte dans une cellule ou la remplacer par une mise en forme mixte.

Notez que j’ai dit «formatage mixte», ce que veut Evan – le «H»

et « O » utilisent un formatage différent du « 2 ». Si Evan avait voulu changer le contenu entier de la cellule en texte normal ou s’abonner, vous auriez pu utiliser l’outil Rechercher et remplacer standard. Cela ne fonctionnera pas pour le formatage mixte, cependant.

Cela signifie que la meilleure approche consiste à utiliser une macro pour effectuer la recherche et le remplacement. Vous pouvez aborder cela de plusieurs manières; ce qui suit est juste un.

Sub SubscriptNumbers()

Dim c As Range     Dim sWord As String     Dim sChar As String     Dim x As Long

For Each c In Selection         sWord = c.Value         For x = 1 To Len(sWord)

sChar = Mid(sWord, x, 1)

If sChar >= "0" And sChar <= "9" Then                 c.Characters(Start:=x, Length:=1).Font _                   .Subscript = True             End If         Next x     Next c     Set c = Nothing End Sub

Pour utiliser la macro, sélectionnez les cellules que vous souhaitez modifier, puis exécutez-la.

Il parcourt chaque cellule de la sélection, puis examine le contenu de la cellule. S’il y a des chiffres dans le contenu, alors ces chiffres sont formatés en indice.

_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 (13362) s’applique à Microsoft Excel 2007, 2010, 2013, 2016, 2019 et Excel dans Office 365.