TOP

Rechercher des lettres latines dans un texte cyrillique et vice versa

YouLibreCalc for Excel logo

Description

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:

  1. Appuyez sur ALT + F11 pour ouvrir l'éditeur Visual Basic ;
  2. Ajouter un nouveau module vide via le menu Insert - Module;
  3. Copiez et collez le code de la macro dans le module ;
  4. Enregistrez le fichier et revenez à Excel.

Vous pouvez maintenant sélectionner une plage de cellules, exécuter une macro et ainsi vérifier le texte pour les caractères étrangers.

Rechercher l’alphabet latin en cyrillique

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 :

Rechercher le cyrillique dans l’alphabet 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 :

Articles sur le sujet :