XL 2021 Supprimer tous les chiffres et le premier espace sur chaque cellule

  • Initiateur de la discussion Initiateur de la discussion eCHO
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

eCHO

XLDnaute Junior
Bonjour, j'ai ce code VBA pour supprimer tous les chiffres et le premier espace sur chaque cellule. Le code fonctionne parfaitement pour la suppression des chiffres, mais il ne fonctionne pas pour l'espace entre les lettres et les chiffres.
ma situation :
Capture d'écran 2023-07-03 152716.png

le résultat vous:

Capture d'écran 2023-07-03 152740.png


Si vous avez une autre méthode, car le code prend beaucoup de temps pour traiter toutes les lignes de chansons que j'ai, soit plus de 6000 lignes.
Merci.
 

Pièces jointes

Solution
Bonjour Echo,
Un essai en PJ avec :
VB:
Sub SupprimerChiffresEtEspace()
    Dim T, i%
    T = ActiveSheet.Range("A1:A" & [A100000].End(xlUp).Row)
    For i = 1 To UBound(T)
        On Error Resume Next
        T(i, 1) = Split(T(i, 1), Chr(10))(1)
    Next i
    [A1].Resize(UBound(T, 1), UBound(T, 2)) = T
End Sub
Bonjour Echo,
Un essai en PJ avec :
VB:
Sub SupprimerChiffresEtEspace()
    Dim T, i%
    T = ActiveSheet.Range("A1:A" & [A100000].End(xlUp).Row)
    For i = 1 To UBound(T)
        On Error Resume Next
        T(i, 1) = Split(T(i, 1), Chr(10))(1)
    Next i
    [A1].Resize(UBound(T, 1), UBound(T, 2)) = T
End Sub
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
13
Affichages
941
Retour