Karen a un grand nombre de cellules qui ont un caractère tilde (~) au début des cellules. Elle aimerait changer le tilde en un caractère différent (tel qu’un signe @), mais seulement si le tilde est au début de la cellule. Elle ne sait pas comment effectuer cette tâche à l’aide de Rechercher et remplacer.

La fonction Rechercher et remplacer d’Excel serait un bon choix si vous vouliez remplacer tous les tildes de votre texte. Dans ce cas, il vous suffit de rechercher ~~ (notez qu’il s’agit de deux tildes d’affilée) et de le remplacer par @. Cependant, puisque vous souhaitez remplacer uniquement un tilde apparaissant à la première position du caractère, Rechercher et remplacer ne le fera pas pour vous. Vous pouvez aborder le problème de deux manières.

La première méthode consiste à utiliser une formule pour supprimer le tilde. Il existe de nombreuses variantes d’une telle formule, la suivante étant un exemple:

=IF(LEFT(A1,1)="~","@" & MID(A1,2,LEN(A1)),A1)

Vous pouvez copier la formule autant de cellules que nécessaire, puis copier les résultats et utiliser Collage spécial pour coller les valeurs dans la colonne d’origine.

L’autre option consiste à utiliser une macro pour effectuer le remplacement. Voici un bon exemple de macro courte pour faire l’affaire:

Sub ReplaceTilde()

Dim c As Range     For Each c In Selection         If Left(c, 1) = "~" Then             c.Value = "@" & Right(c, Len(c) - 1)

End If     Next End Sub

Pour utiliser la macro, sélectionnez simplement les cellules que vous souhaitez modifier, puis exécutez-la. Chaque cellule de la sélection est évaluée et, le cas échéant, modifiée.

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