Avec cette astuce, vous pouvez facilement supprimer toutes les lettres dans les cellules spécifiées. Le faire manuellement prendrait beaucoup de temps avec une grande liste, mais vous pouvez automatiser ce processus avec une fonction définie par l’utilisateur. Copiez le tableau présenté dans la Figure 13–10 dans une nouvelle feuille de calcul, créez la fonction définie par l’utilisateur et testez-la.

Pour supprimer toutes les lettres dans les cellules spécifiées :

1. Appuyez sur <Alt+F11> pour ouvrir Visual Basic Editor.
2. Dans le menu Insertion, cliquez sur Module.
3. Tapez la fonction suivante :

Function LetterOut(rng As Range) Dim i As Integer

For i = 1 To Len(rng)

Select Case Asc (Mid(rng.Value, i, 1))

Case 0 To 64, 123 To 197

LetterOut = LetterOut & Mid(rng.Value, i, 1) End Select

Next i

End Function

1. Revenez à la feuille de calcul, sélectionnez les cellules B1: B5 et tapez la formule =LetterOut(A1).
2. Press <Ctrl+Enter>.