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

eCHO · 3 Juillet 2023

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.

sylvanu · 3 Juillet 2023

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 · 3 Juillet 2023

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

sylvanu · 3 Juillet 2023

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

eCHO · 3 Juillet 2023

sylvanu à dit:

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

Merci 😍

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

eCHO

XLDnaute Junior

le résultat vous:

Pièces jointes

sylvanu

Cousinhub

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

eCHO

XLDnaute Junior

Discussions similaires

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

eCHO

XLDnaute Junior

le résultat vous:​

Pièces jointes

Cousinhub

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

eCHO

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency

le résultat vous: