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
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