Suppression lettres dans cellules

[Quincy]

Bonjour à tous

Dans une macro excel je souhaiterais supprimer toutes les lettres dans les cellules d'une même colonne qui a plusieures centaines de lignes. J'ai bien parcouru le forum mais n'ai pas trouver de solution à mon problème. (Je voudrais éviter de remplacer "A" par "", "B" par "", etc... 26 fois !).

Exemple :
Code
223A --> 223
223B --> 223
1039 --> 1039
1043 --> 1043
5001--> 5001
5001A --> 5001
5001B --> 5001
173A --> 173
66AB --> 66
424 --> 424
1297 --> 1297
1730AC --> 173
1938 --> 1938

Je vous serai très reconnaissant si vous pouviez m'apporter une solution.
Cordialement.

 

[BOISGONTIER]

Re : Suppression lettres dans cellules

Bonjour,

Commence par caractères numéique:

For Each c In Selection
   c.Value = Val(c)
 Next

JB

 

[Quincy]

Re : Suppression lettres dans cellules

Merci d'être aussi réactif. J'essaie tout de suite.

 

[news]

Re : Suppression lettres dans cellules

Re:

une fonction simple d'utilser est Ctrl+F rechercher les lettres et remplacer par "",

certes il y a d'autres fonctions encore, qui facilitent encore plus,

bonne journée encore,

 

[Quincy]

Re : Suppression lettres dans cellules

Merci beaucoup BOISGONTIER ça marche impeccable. J'ai juste à reprendre le titre de ma colonne car "Programme" a été remplacé par "0" mais c'est pas grave.

Bonne journée à vous.

 

[Quincy]

Re : Suppression lettres dans cellules

Re:

une fonction simple d'utilser est Ctrl+F rechercher les lettres et remplacer par "",

certes il y a d'autres fonctions encore, qui facilitent encore plus,

bonne journée encore,

Merci news, mais je garde la version BOISGONTIER qui est plus académique pour une version macro. De plus, j'ai voulu essayer ce Ctrl+F et quand j'ai voulu remplacer par "" j'ai eu comme message qu'Excel ne trouvait aucunes données correspondantes à remplacer.

 

[RENAUDER]

Re : Suppression lettres dans cellules

Bonjour,
Comme j'étais parti en pensant que les letrres pouvaient être n'importe où, j'ai crée une fonction.
Même si dans le cas présent elle n'est plus d'actualité, elle peut servir dans d'autre cas et je vous la joins

 

[news]

Re : Suppression lettres dans cellules

ce Ctrl+F et quand j'ai voulu remplacer par "" j'ai eu comme message qu'Excel ne trouvait aucunes données correspondantes à remplacer.[/QUOTE]

on met aucune valeur, et on met ni les signes "",
voir le fichier que j'avais joint auparavent

 

[mécano41]

Re : Suppression lettres dans cellules

Bonjour,

J'avais traité le cas général. Je le joins à toutes fins utiles.

Cordialement