Vous pouvez facilement remplacer tous les trémas à l'aide d'une macro
Ce n'est généralement pas un problème aussi grave qu'il y a quelques années, mais les trémas peuvent toujours causer des problèmes lors de l'échange de données. La figure suivante montre un tableau avec des textes contenant des trémas :
Si vous avez besoin d'échanger des informations avec d'autres systèmes ou d'envoyer des données vers d'autres pays, il peut donc être utile de remplacer tous les trémas d'un tableau. Vous remplacez le ä par un ae, le ö par un oe, etc.
Bien sûr, vous pouvez le faire en appelant à plusieurs reprises la fonction EDIT - REPLACE. Mais c'est beaucoup de travail. Si vous souhaitez remplacer les trois trémas ä, ö et ü en majuscule et en minuscule ainsi que le ß, vous devez effectuer sept opérations de remplacement d'affilée.
C'est plus simple avec une macro. Voici le code du programme approprié :
Sub ReplaceUmlauts ()
Dim Cell As Range
Avec Application.WorksheetFunction
Pour chaque cellule de la sélection
Cell.Valeur = .Remplacer (.Remplacer (.Remplacer (.Remplacer (_
.Remplacer (.Remplacer (.Remplacer (Valeur.Cellule, "ä", "ae"), _
"ö", "oe"), "ü", "ue"), "Ö", "Oe"), "Ü", "Ue"), "ß", "ss"), _
"Ä", "Ae")
Cellule suivante
Terminer par
Fin du sous-marin
La macro imbrique les appels de remplacement appropriés via la fonction Suppléants l'un dans l'autre. Il s'agit du nom de fonction anglais de la fonction de table REPLACE.
Pour utiliser la macro, sélectionnez d'abord les cellules dans lesquelles vous souhaitez remplacer les trémas, puis appelez la macro. La figure suivante montre à quoi ressemble le tableau avec les trémas après le démarrage de la macro :
