O
oma126
Guest
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
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