Supprimer toutes les lettres dans les cellules spécifiées

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>.

 

 

S’abonner
Notifier de
0 Commentaires
le plus ancien
le plus récent le plus populaire
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x