Enlever espace dans chaine caractère VBA Fermé

Question

Bonjour j,aimerais enlever des chaines de caractère sur un format heure, mais ca ne marche pas voici mon code :

Sheets("AM").Select
  Range("B3:B3").Select 'cellule où chercher l'heure (IL est deja sous format 08:30)
Selection.Copy
Range("T11:T11").Select 'cellule ou le coller
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats 'enlever les 0 et les :
Dim Ce As Variant
    Sheets("AM").Select
    For Each Ce In Range("T11:T11") '****ENLEVER LES ZÉROS
        Ce.Value = Replace(Ce.Value, "0", "")
        Ce.Value = Replace(Ce.Value, ":", "")
    Next Ce
Je veux avoir 715 à la place de 07:15 ou 1545 a la place de 15:45:00

MERCI!!!

Yoda · Answer

Bonjour,

On peut faire plus simple

Sub test()
Dim h2txt As String
h2txt = Range("b3").Text
h2txt = Left(h2txt, 2) & Mid(h2txt, 4, 2)
If Left(h2txt, 1) = "0" Then h2txt = Right(h2txt, 3)
'MsgBox h2txt
    Range("t11").Select
    Selection.NumberFormat = "@"
    Range("t11").Value = h2txt
End Sub
Avec ce code, 00:00 donne 000

ccm81 · Answer

bonjour à tous

autre proposition

Public Function cvhms(d As Date) As String
Dim ds As String
  ds = Hour(d) & Minute(d) & Second(d)
  While Right(ds, 1) = "0"
    ds = Left(ds, Len(ds) - 1)
  Wend
  cvhms = ds
End Function
reste à savoir ce qu'on veut obtenir si l'entrée en 00:00:00 

bonne suite

lermite222 · Answer

Bonjour,
Pas besoin de poster en double

Dim S As String
    'Pourquoi employer une boucle pour modifier UNE SEULE CELLULE
    S = [T11]
    S = Replace(S, "0", "")
    S = Replace(S, ":", "")
    [T11] = ""
    [T11].NumberFormat = "@"
    [T11] = S

Un peu biscornu mais sans vider la cellule pas moyen de changer le format.
A+

ccm81 · Answer

> lermite

j'ai pensé (mais bon ...) que pour quelque chose du genre 07:00:25 le résultat devait contenir le 0 des mn

bonne suite

Enlever espace dans chaine caractère VBA

4 réponses

Discussions similaires