Vanita a une feuille de calcul qui contient différentes combinaisons de lettres dans chaque cellule de la colonne A. Il cherche un moyen d’extraire les mots de cette liste qui sont «appropriés», ce qui signifie qu’ils se trouvent dans un dictionnaire de vérification orthographique.

En supposant que la colonne ne contient que des mots (pas d’espaces, de ponctuation ou de phrases), vous pouvez vérifier manuellement la liste de cette manière:

  1. Faites une copie de la colonne A dans la colonne B. Vous avez maintenant deux colonnes identiques.

  2. Sélectionnez la colonne B et exécutez la vérification orthographique.

  3. Chaque fois qu’un changement d’orthographe est suggéré, acceptez-le. Une fois terminé, vous devriez avoir la colonne A comme version originale et la colonne B comme version corrigée de l’orthographe de la colonne A.

  4. Dans la colonne C, entrez la formule = IF (A1 = B1, B1, «  ») et copiez la formule vers le bas. Cette formule n’affiche un mot dans la colonne C que si le mot d’origine correspond à la version corrigée de l’orthographe du mot.

  5. Copiez tous les mots de la colonne C et utilisez Collage spécial pour coller les valeurs dans un autre emplacement. Vous avez maintenant une liste de mots correctement orthographiés.

Si vous devez effectuer le processus de validation régulièrement, vous pouvez utiliser une macro à la place pour créer votre liste finale. La macro suivante parcourt la liste de mots de la colonne A et efface toutes les cellules qui contiennent des mots ne figurant pas dans le dictionnaire. Après avoir vérifié tous les mots, il supprime toutes les cellules effacées.

Sub ExtractDictionaryWords()

Dim rWords As Range     Dim rCell As Range

Application.ScreenUpdating = False     Set rWords = Range(Range("A1"), _       Range("A65536").End(xlUp))

For Each rCell In rWords         If Not Application.CheckSpelling(rCell.Value) Then             rCell.Clear         End If     Next     On Error Resume Next     rWords.SpecialCells(xlCellTypeBlanks). _       Delete (xlShiftUp)

On Error GoTo 0     Set rCell = Nothing     Set rWords = Nothing     Application.ScreenUpdating = True End Sub

N’oubliez pas que cette macro est intentionnellement destructrice dans son comportement, ce qui signifie qu’elle efface les cellules. Si vous avez besoin des données d’origine, vous souhaiterez exécuter la macro sur une copie des données, pas sur votre seule copie.

_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 (2834) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

lien: / excelribbon-Extracting_Proper_Words [Extraction de mots appropriés].