XL 2019 Supprimer des chIffres dans une cellules en VBA

[eduraiss]

Bonjour le forum

Je joins un fichier avec les explications

J'aimerais si possible avoir un code VBA me permettant de supprimer les chiffres et l'espace dans une cellule (à ma droite du texte)

Merci de votre aide

 

[dysorthographie]

Sub test()
Debug.Print SupprimerChiffre("SADRE A 2")

End Sub

Function SupprimerChiffre(v As String) As String
Dim regex As Object, str As String
Set regex = CreateObject("VBScript.RegExp")
With regex
  .Pattern = "[0-9]"
  .Global = True
End With
SupprimerChiffre = Trim(regex.Replace(v, ""))
Set regex = Nothing
End Function

 

[patricktoulon]

bonsoir robert
ta méthode fait un travail unitaire
x cellule = x appel de SupprimerChiffre donc x création d'object regex et x replace

ma méthode replace toutes les cells en même temps et pareil pour le trim
teste ta méthode du 5000 lignes et teste ensuite la mienne

 

[dysorthographie]

salut Patrick ,je suis convaincu que tu as raison!