supprimer des lettres

[Olyxier]

Bonjour le Forum
voici un tres bon code pour supprimer des lettres

Dim C As Range
Dim i As Byte
Dim nombre As String

For Each C In Range("BF31:BF63")
If Not IsEmpty(C) Then
For i = 1 To Len(C)
If IsNumeric(Mid(C, i, 1)) Then
nombre = nombre & Mid(C, i, 1)
End If
Next i
If nombre <> "" Then C = CDbl(nombre)
nombre = "0"
End If
Next C

il marche super pour supprimer les lettres de la colonne BF31 à BF63
mais si je veus en meme temps supprimer les lettres de ces colonnes
("BN31:BN63")-("BV31:BV63")-("CD31:CD63")-("CL31:CL63")-("CT31:CT63")
comment faut il faire Merci à vous tous et bon apres-midi

 

[Banzai64]

Re : supprimer des lettres

Bonjour

Modifies ton code

For Each C In Range("BF31:BF63")

par

 For Each C In Range("BF31:BF63,BN31:BN63,BV31:BV63,CD31:CD63,CL31:CL63,CT31:CT63")

 

[Olyxier]

Re : supprimer des lettres

ok et si je veus supprimer les lettres de certaine cases je rentre cette ligne ???
merci
For Each C In Selection("BN34,BN37,BN40,BN43,BN46,BN49,BN52,BN55,BN58")

 

[Banzai64]

Re : supprimer des lettres

Re

Fais plutôt

For Each C In [COLOR="Red"][SIZE="4"]Range[/SIZE][/COLOR]("BN34, BN37,BN40, BN43, BN46, BN49, BN52, BN55, BN58")

 

[Olyxier]

Re : supprimer des lettres

Super Merci et bonne fin de journée