XL 2019 Supprimer des chIffres dans une cellules en VBA

dysorthographie

XLDnaute Accro

• 4 Juin 2020

• #16

VB:

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 4 Juin 2020

• #17

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

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 4 Juin 2020

• #18

salut Patrick ,je suis convaincu que tu as raison!

 

Vote positif 0 Vote négatif