Traitement dans une cellule: Supprimer un caractère précis.

[shmider]

Bonjour,
Comme le titre l'indique, je souhaite purger une gigantesque base de données, et qui contient des cellules avec des chiffres qui me bloque pour mon traitement.
En effet, mon problème se résume comme suite:

Dans des Cellules données, j'ai:
XXXX YYY ZZZZ 56
ccc aa uu 1
c ggg uu ooo 2
d dddd dd ddd 1

Alors, j'aimerai pouvoir enlever ces chiffres qui se retrouvent tous à la fin de chaque donnée de cellule.

Merci pour votre aide.
@+

 

[shmider]

Re : Traitement dans une cellule: Supprimer un caractère précis.

Bonjour pierrejean,
Bonjour JNP,
Bonjour homepyrof53,
Bonjour david84,
Bonjour laetitia90,

Je tiens à m'excuser tout d'abord car je n'ai pas pu donner suite à vos réponses qui m'ont et comme d'habitude très utiles.
Oui, pierrejean et JNP, vos solutions me vont super bien 😉
Merci aux autres vous etes magnifiquement réactifs 🙂

Bonne continuation à vous.

PS: Résolu à merveille !

@+

 

[JNP]

Re : Traitement dans une cellule: Supprimer un caractère précis.

Re 🙂,

Oui, pierrejean et JNP, vos solutions me vont super bien 😉

C'est sympa, mais j'ai rien fait 😛...
Je pense que tu voulais plutôt dire Pierre-Jean et Laetitia 🙄...
Bonne fin de journée 😎

 

[job75]

Re : Traitement dans une cellule: Supprimer un caractère précis.

Bonjour le fil,

Une solution bien tardive qui combine formule matricielle et VBA :

Sub SupprimeChiffres() 'supprime les chiffres et espaces [COLOR="Red"]à la fin du texte[/COLOR]
Dim plage As Range, cel As Range
Application.ScreenUpdating = False
Application.Calculation = xlManual 'évite le recalcul des formules
Range("B:B").ClearContents 'si nécessaire...
Set plage = Range("B1:B" & Range("A65536").End(xlUp).Row) 'plage de restitution
For Each cel In plage
cel.FormulaArray = "=LEFT(RC1,LEN(RC1)-MAX(IF(ISNUMBER(1*RIGHT(RC1,ROW(INDIRECT(""1:""&LEN(RC1))))),ROW(INDIRECT(""1:""&LEN(RC1))))))"
Next
plage = plage.Value 'ne conserve que les valeurs
Application.Calculation = xlAutomatic
End Sub

Les données à traiter sont en colonne A, la restitution en colonne B.

pierrejean 🙂 qu'est-ce que ça donne en temps de calcul ? Je crains que ce ne soit pas bon...

A+

 

[job75]

Re : Traitement dans une cellule: Supprimer un caractère précis.

Re,

Sans boucle c'est forcément plus rapide, à voir :

Sub SupprimeChiffres() 'supprime les chiffres et espaces à la fin du texte
Dim plage As Range
[B:B].ClearContents 'si nécessaire...
[B1].FormulaArray = "=LEFT(RC1,LEN(RC1)-MAX(IF(ISNUMBER(1*RIGHT(RC1,ROW(INDIRECT(""1:""&LEN(RC1))))),ROW(INDIRECT(""1:""&LEN(RC1))))))"
Set plage = Range("B2:B" & Range("A65536").End(xlUp).Row) 'plage de restitution
[B1].Copy plage
plage = plage.Value 'ne conserve que les valeurs
[B1] = [B1].Value
End Sub

A+

 

[pierrejean]

Re : Traitement dans une cellule: Supprimer un caractère précis.

Re

Mon cher Job :resultat des essais

Ta derniere macro sur colonne A avec resultat en colonne B : 2,67 secondes
La macro de notre ami ROGER (lettres) sur colonnes A et B avec resultats en place: 1,16 seconde

 

[job75]

Re : Traitement dans une cellule: Supprimer un caractère précis.

Re pierrejean,

Merci pour l'essai, je me doutais un peu que ce n'était pas le top.

Mais pas vu la macro de Roger, tu veux dire Laetitia ?

A+

 

[pierrejean]

Re : Traitement dans une cellule: Supprimer un caractère précis.

Re

Que Roger et Laetitia veuillent bien m'excuser

Effectivement il faut rendre a Jules ce qui est a Cesar et a Laetitia ce qui n'est pas a ROGER