Suppression de caractere
Résolu
kiko
-
kiko -
kiko -
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
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
A voir également:
- Suppression de caractere
- Caractère ascii - Guide
- Forcer suppression fichier - Guide
- Caractère spéciaux - Guide
- Caractere speciaux - Guide
- Caractere vide - Guide
7 réponses
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
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
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.
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.
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 ..................
Pas besoin de code ..................
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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