Suppression de caractere

Suppperr michel ton truc marche a merveille cool merci pour l'aide

Cordialement

Bonjour

Sub SupprCaractD()
Dim derlig As Integer, lig As Integer, col As Byte
Dim tablo()

Application.ScreenUpdating = False
derlig = Columns("A").Find("*", , , , , xlPrevious).Row
tablo = Range("B1:M" & derlig).Value

For lig = 1 To derlig
     For col = 1 To 12
          tablo(lig, col) = CDbl(Replace(tablo(lig, col), "h", ""))
     Next
Next

Range("B1:M" & derlig) = tablo
End Sub

http://cjoint.com/?BIAkcli3yGV voicie un lien merci de votre part.
Cordialement

merci pour vos reponse rapide. Chossette9 j'ai mis mon code je crois je te le remet alors.

Sub SupprCaractD()

Dim Nc, Cel As Range
For Each Cel In Range("G1:H1")
Cel.Value = Trim(Cel.Value) 'supprime espaces
Nc = Len(Cel) 'compte les caractères
Cel.Value = Left(Cel, Nc - 1)
Next Cel
End Sub

ce code fais le traitement mais enléve aussi la virgule du coups j'obtiens un nombre entier que un nombre decimal et celas fausse tous mes calcules suivant.

Par ailleur HOMBOURGEOIS ta méthode je l'ai déjas faite mais elle me prend trops trops de temps car j'ai plien de fichier a traité avec ce type de probleme j'aimerais juste avoir le bon code et je mettrais mon bouton.
cordialement

tu sélectionnes la plage concernée, puis édition-->remplacer, mettre h dans rechercher et rien dans remplacer puis "remplacer tout"

Pas besoin de code ..................

Bonjour,

tu n'as pas mis ton code.

Pour joindre un fichier :
aller sur le site cjoint.com, créer un lien, et copier ce lien dans une réponse à cette conversation.

Cordialement.

bout de code :

Sub SupprCaractD()
''Macros par Claude Dubois pour "rimbaut" E-P le 21 Oct 09
Dim Nc, Cel As Range
For Each Cel In Range("B1:8")
Cel.Value = Trim(Cel.Value) 'supprime espaces
Nc = Len(Cel) 'compte les caractères
Cel.Value = Left(Cel, Nc - 1)
Next Cel
End Sub