Suppresion de chiffres dans un colonne

[oma126]

Bonjour,

Voici un code qui supprime des chiffres en conservant les lettres dans une cellule ou colonne.
Je voudrais en plus qu'il ne s'exécute que sur la colonne R.
Mais la je sèche.
Un petit coup de pouce serait le bien venu

Un grand merci


Sub Bouton1_QuandClic()
'
' Bouton1_QuandClic Macro

Dim Cell As Range
Dim TexteModifie
Dim i As Byte

For Each Cell In Selection
If Not IsEmpty(Cell) Then
TexteModifie = ''
For i = 1 To Len(Cell)
If Not Mid(Cell, i, 1) Like '[0-9]' Then
TexteModifie = TexteModifie + Mid(Cell, i, 1)
End If
Next i
Cell = Trim(TexteModifie)
End If
Next Cell
End Sub

 

[copayo]

Salut, je crois que ca devrait t'aider

Dim Cell As Range
Dim TexteModifie
Dim i As Byte


Columns('R:R').Select
For Each Cell In Selection
If Not IsEmpty(Cell) Then
TexteModifie = ''
For i = 1 To Len(Cell)
If Not Mid(Cell, i, 1) Like '[0-9]' Then
TexteModifie = TexteModifie + Mid(Cell, i, 1)
End If
Next i
Cell = Trim(TexteModifie)
End If
Next Cell
End Sub

 

[myDearFriend!]

Bonjour oma126, copayo,

Pour agir sur toute la colonne R de la Feuil1, on peut aussi faire simplement :

Dim N As Byte
        For N = 0 To 9
                  Sheets('Feuil1').Columns(18).Replace What:=N, Replacement:=''
        Next N

Cordialement,

 

[copayo]

Salut mdf,

le simplement fait toute la différence,

g pas encore ce niveau !! mais ca me fait un apprentissage de plus

 

[oma126]

Merci B)

Trop bien sa marche génial
Bonne fin d'après midi