Tom note à juste titre que dans Word, vous pouvez utiliser Rechercher et remplacer pour mettre toutes les occurrences d’un mot en gras. (Recherchez le mot, remplacez-le par le même mot avec la mise en forme en gras activée.) Il se demande comment il peut faire la même chose dans Excel.

Faire de telles modifications dans Excel est en fait assez simple et se fait pratiquement de la même manière que dans Word. Suivez ces étapes:

  1. Appuyez sur Ctrl + H pour afficher l’onglet Remplacer de la boîte de dialogue Rechercher et remplacer.

  2. Cliquez sur le bouton Options pour développer la boîte de dialogue. (Voir la figure 1.)

  3. Dans la zone Rechercher, entrez le mot que vous souhaitez mettre en gras.

  4. Entrez le même mot dans la zone Remplacer par.

  5. Cliquez sur le bouton Format à droite de la zone Remplacer par. Excel affiche la boîte de dialogue Remplacer le format.

  6. Cliquez sur l’onglet Police. (Voir la figure 2.)

  7. Dans la liste Style de police, choisissez Gras.

  8. Cliquez sur OK pour fermer la boîte de dialogue Remplacer la police.

  9. Cliquez sur Remplacer tout pour effectuer les remplacements.

Bien que cela semble assez simple, vous devez vous rappeler que ces étapes modifient la mise en forme de cellules entières, pas seulement des mots dans une cellule.

Ainsi, si vous recherchiez et remplaçiez le mot «marron», toute cellule contenant le mot «marron» serait mise en gras – la cellule entière, pas seulement le mot.

Si vous souhaitez affecter uniquement les mots de la cellule, ces étapes ne fonctionneront pas. Au lieu de cela, vous devrez recourir à une macro pour faire le gras.

Fondamentalement, vous aurez besoin d’une macro qui examine une feuille de calcul et détermine ce qui peut être modifié. (Vous ne pouvez pas mettre en gras des mots ou des chiffres dans des formules ou des valeurs numériques; vous ne pouvez modifier que la mise en forme au niveau du mot pour les constantes de texte.)

Une fois que la macro a trouvé les cellules qu’elle peut traiter, elle doit rechercher dans les cellules le mot souhaité, puis mettre ce texte en gras. La macro suivante met en œuvre cette stratégie même:

Sub FindAndBold()

Dim sFind As String     Dim rCell As Range     Dim rng As Range     Dim lCount As Long     Dim iLen As Integer     Dim iFind As Integer     Dim iStart As Integer

On Error Resume Next     Set rng = ActiveSheet.UsedRange. _       SpecialCells(xlCellTypeConstants, xlTextValues)

On Error GoTo ErrHandler     If rng Is Nothing Then         MsgBox "There are no cells with text"

GoTo ExitHandler     End If

sFind = InputBox( _       Prompt:="What do you want to BOLD?", _       Title:="Text to Bold")

If sFind = "" Then         MsgBox "No text was listed"

GoTo ExitHandler     End If

iLen = Len(sFind)

lCount = 0

For Each rCell In rng         With rCell             iFind = InStr(.Value, sFind)

Do While iFind > 0                 .Characters(iFind, iLen).Font.Bold = True                 lCount = lCount + 1                 iStart = iFind + iLen                 iFind = InStr(iStart, .Value, sFind)

Loop         End With     Next

If lCount = 0 Then         MsgBox "There were no occurrences of" & _           vbCrLf & "' " & sFind & " '" & _           vbCrLf & "to bold."

ElseIf lCount = 1 Then         MsgBox "One occurrence of" & _           vbCrLf & "' " & sFind & " '" & _           vbCrLf & "was made bold."

Else         MsgBox lCount & " occurrences of" & _           vbCrLf & "' " & sFind & " '" & _           vbCrLf & "were made bold."

End If

ExitHandler:

Set rCell = Nothing     Set rng = Nothing     Exit Sub

ErrHandler:

MsgBox Err.Description     Resume ExitHandler End Sub

La macro définit d’abord la plage de recherche sur les cellules contenant des constantes de texte. Il demande ensuite à l’utilisateur un mot qui doit être modifié.

Une fois saisie, la macro commence alors à parcourir toutes les cellules de la plage. Chaque cellule est vérifiée pour voir si elle contient le mot cible. Si tel est le cas, la propriété .Bold de ces caractères est définie et la macro poursuit la recherche.

La macro garde également une trace du nombre de modifications apportées, affichant le total des modifications à la fin de son travail.

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

Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu d’Excel ici: link: / excel-Making_All_Occurrences_Bold [Rendre toutes les occurrences en gras].