Suppression de caractere Résolu/Fermé

Question

Bonjour, 

c'est trés urgent.

j'ai une plage de cellule qui contient des caractéres exemple 12,55h : 45,87h : 78,6h ...
j'aimerais supprimer le caractere "h" et garder le chiffre sans enlever la virgule. 

le resultat serais : 12,55: 45,87: 78,6 

quelqu'un peux t'il m'aider voicie mon bou de code il fonctionne mais il enleve la virgule.


Merci pour votre aide

kiko · Answer

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

chossette9 · Answer

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.

Utilisateur anonyme · Answer

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

kiko · Answer

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

kiko · Answer

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

michel_m · Answer

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

kiko · Answer

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

Suppression de caractere

7 réponses

Discussions similaires