Il est souvent nécessaire de rencontrer des lettres latines (anglaises) dans un texte écrit en cyrillique (ukrainien ou russe). Cela se produit souvent lors de l'analyse et du traitement d'informations textuelles provenant de bases de données, où, à leur tour, le texte a été saisi par des opérateurs qui n'ont pas eu le temps de passer à une nouvelle disposition de clavier.
Nous avons donc besoin d'un mécanisme permettant trouver l'alphabet cyrillique dans l'alphabet latin ou, à l'inverse, trouver du latin en cyrillique . Excel n'a pas d'outils standard à ces fins. Ci-dessous vous trouverez une macro prête à l'emploi sur VBA , qui réalise rechercher des lettres latines dans le texte , écrit en cyrillique et vice versa.
Vous devez ajouter le code VBA à votre classeur avant d'utiliser cette macro. Pour ça:
Vous pouvez maintenant sélectionner une plage de cellules, exécuter une macro et ainsi vérifier le texte pour les caractères étrangers.
Code macro pour rechercher des lettres latines :
Sub ShowLatin() 'moonexcel.com.ua Dim c As Range, i As Long For Each c In Selection For i = 1 To Len(c) If Mid$(c, i, 1) Like "[A-Za-z]" Then c.Characters(Start:=i, Length:=1).Font.ColorIndex = 3 Next i, c End Sub
Le résultat de la vérification du texte en latin :
Code macro pour rechercher des lettres cyrilliques :
Sub ShowCyrylic() 'moonexcel.com.ua Dim c As Range, i As Long For Each c In Selection For i = 1 To Len(c) If Mid$(c, i, 1) Like "[А-Яа-яЁЄЇІҐёєїіґ]" Then c.Characters(Start:=i, Length:=1).Font.ColorIndex = 3 Next i, c End Sub
Le résultat de la vérification du texte cyrillique :