Comme le conseil précédent, cette tâche supprime tous les nombres dans les cellules spécifiées. Encore une fois, sans l’aide d’une fonction définie par l’utilisateur ou d’une macro spéciale, ce serait un travail difficile et prendrait beaucoup de temps. Une manière plus pratique d’effectuer cette tâche consiste à utiliser une fonction définie par l’utilisateur.

Pour supprimer tous les nombres 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 NumberOut(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

Case Else

NumberOut = NumberOut & _ 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 =NumberOut(A1).
2. Press <Ctrl+Enter>.

FIGURE