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]

Bonjour,
Tu peux télécharger et installer cette Macro complémentaire et exécuter la fonction REGEX_EXTRACT

Fonctions complémentaires XLP

Macro complémentaire contenant de nombreuses fonctions pratiques (des fonctions à utiliser sur feuille Excel et également des fonctions visant à simplifier les développements VBA).

www.excel-pratique.com

 

[eduraiss]

Bonjour le forum

Merci dysorthographie
Merci mais j'ai beaucoup de mal a adapter cette méthode
J'aimerais mieux un code VBA avec un bouton
Merci

 

[youky(BJ)]

Bonjour tous,
Une façon de faire parmi d'autres . . .vba
Bruno

 

[eduraiss]

Re le forum
Bonjour youky (BJ)

Merci de votre retour
Cela fonctionne quand je tape un noms cela supprime le chiffre et l'espace.
Mais ma demande n'est pas tout a fait celle là
En colonne A j'ai plus de 400 noms avec des chiffre voir pas
Il me faudrait un automatisation qui supprime les chiffres et les espaces sur les 400 noms
Merci

 

[youky(BJ)]

Re:
Voici qui est fait.
Bruno

 

[_Thierry]

Bonjour @eduraiss , @youky(BJ) @dysorthographie , le Forum

Sans faire plus de contrôles en me basant strictement sur l'exemple fourni, à savoir un seul chiffre en fin de string, et en partant du principe aussi d'un seul espace...

Un mini algo comme ceci devrait faire l'affaire :

Sub Cleaner()
Dim Plage As Range, Cell As Range

Set Plage = Range("A2:A500")
For Each Cell In Plage
    If IsNumeric(Right(Cell.Value, 1)) = True Then
        If Mid(Cell.Text, Len(Cell.Text) - 1, 1) = " " Then
        Cell.Value = Left(Cell.Text, Len(Cell.Text) - 2)
        End If
    End If
Next Cell
End Sub

Bonne journée
@+Thierry

 

[patricktoulon]

bonjour à tous
si il n'y a pas de chiffre ailleurs qu'a droite que tu voudrais éventuellement garder tu peux prendre un raccourci

Sub test()
With Range("A1", Cells(Rows.Count, "A").End(xlUp)).Cells
For i = 0 To 9: .Replace i, "": Next
End With
End Sub

en gros dans cet exemple je fait 9 replacements global au lieu de 18 replacement du right(value,1)
ça permet aussi de ne pas avoir a contrôler le right(1) ou 2 etc..au cas ou ce serait un nombre et pas qu'un chiffre

 

[_Thierry]

Bonjour Patrick
Toujours aussi efficace !
Pour l'espace, tu fais comment du coup ?
@+Thierry

 

[patricktoulon]

bonjour @_Thierry

tout simplement
For i = 0 To 9: .Replace " "& i, "": Next

 

[eduraiss]

Re le forum
Bonjour thierry
Cela fonctionne très bien, juste une petite chose
Les noms sont tapé parfois avec deux espaces entre le nom et le chiffre, mais bon ce n'est pas trés méchant

Merci beaucoup

 

[patricktoulon]

re
là encore on peut faire tout d'un coup: nombre ou chiffre ,1 espaces ou 36
astuce a don patrico de lavega 😉

Sub test()
With Range("A1", Cells(Rows.Count, "A").End(xlUp)).Cells
addr = .Address(0, 0)
For i = 0 To 9: .Replace i, "": Next
.Value = Evaluate("IF(ISTEXT(" & addr & "),LEFT(" & addr & ",FIND(""§"",SUBSTITUTE(" & addr & ",RIGHT(TRIM(" & addr & "),1),""§"",LEN(" & addr & ")-LEN(SUBSTITUTE(" & addr & ",RIGHT(TRIM(" & addr & "),1),""""))),1))," & addr & ")")
End With
End Sub

 

[eduraiss]

Re
Bonjour patricktoulon

C'est parfait
Merci a vous et merci a thierry

 

[patricktoulon]

re
une version encore plus simple

Sub test()
    With Range("A1", Cells(Rows.Count, "A").End(xlUp)).Cells
         For i = 0 To 9: .Replace i, "": Next
        .Value = Evaluate("index(TRIM(" & .Address(0, 0) & "),)")
    End With
End Sub

je suis un peu long a la détente ce matin 😉

 

[_Thierry]

Heureusement que tu es long, sinon qu'est-ce que ça serait ! 😉