Bonjour,
J'aurai besoin d'un petit peu d'aide pour généraliser mon code VBA à une colonne entière.
Je voudrai remplacer l'ensemble des caractères non numérique + "," par un ensemble vide.
Voici le code que j'ai pu établir:
Sub SupTVA()
For i = 1 To Len(ActivCell)
If "1234567890," Like "*" & Mid(ActiveCell, i, 1) & "*" Then
Valeur = Valeur & Mid(ActiveCell, i, 1)
End If
Next
ActiveCell = Valeur
End Sub
Mon problème :
Le code fonction bien pour une cellule active Len(ActiveCell).
Je voudrais ainsi, réaliser cette opération pour l'ensemble d'une colonne (La colonne T).
Merci pour le petit coup de pousse,
Bonne journée