Supprimer tout sauf les nombres dans une colonne

Bonjour,

Je souhaite supprimer tous les caractères autres que des chiffres dans une colonne. Si j’arrive à le faire sur une cellule précise (en remplaçant « Cells(j, 2) » par « ActiveCell » , je n’y parviens pas dans l’ensemble de la colonne... voici mon code

Sub supprimernonnum ()

Dim val1 as string

Dim i as long

Dim j as long

Dim derligne as long

Derligne = worksheets(« sheet1 »).Cells(rows.count, « B »).End(xlUp).Row

For j = 1 to derligne

For i = 1 to Len (Cells(j,2))

If Asc(Mid(Cells(j,2), i, 1)) > 47 and Asc(Mid(Cells(j,2), i, 1))<59 Then val1 = val1 & Mid(Cells(j,2), i, 1)

Next i

Cells(j, 2) = val1

Next j

End sub

Merci d’avance pour l’aide que vous pourrez m’apporter

cordialement

Bonjour,

il faut "vider" la variable val1 en fin de boucle For i .... (traitement d'une cellule) après avoir copier son contenu dans la cellule...
Sinon on cumule les données de chaque cellule dans cette variable

A+

.... je me sens vraiment con de pas y avoir pensé.

Merci beaucoup !