Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

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 :

le résultat vous:



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

  • test.xlsm
    19.5 KB · Affichages: 6
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

Cousinhub

XLDnaute Barbatruc
Inactif
Bonjour,
Sans macro, mais avec Power Query, en natif dans ta version Excel
J'ai transformé ta plage de données (A1:Axx) en Tableau structuré (TS) nommé "Tableau1"
Clic droit dans la requête (colonne E), "Actualiser" pour mettre à jour
Bonne apm
 

Pièces jointes

  • Fractionner.xlsm
    20.6 KB · Affichages: 2

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

  • test (2).xlsm
    19.1 KB · Affichages: 3

Discussions similaires

Réponses
13
Affichages
574
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…