Enlever espace dans chaine caractère VBA
Céline
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
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!!!
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!!!
A voir également:
- Enlever espace dans chaine caractère VBA
- Espace insécable - Guide
- Caractère spéciaux - Guide
- Espace de stockage gmail plein - Guide
- Caractere speciaux - Guide
- Caractère ascii - Guide
4 réponses
Bonjour,
On peut faire plus simple
Avec ce code, 00:00 donne 000
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
bonjour à tous
autre proposition
reste à savoir ce qu'on veut obtenir si l'entrée en 00:00:00
bonne suite
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
Bonjour,
Pas besoin de poster en double
Un peu biscornu mais sans vider la cellule pas moyen de changer le format.
A+
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+
