Bonjour la team,
Merci d'avance de voter aide.
Pourriez vous svp me dire comment je peux supprimer en code vba les espaces indésirables dans la date (il y en a en fin de chaine de caractère après les secondes et entre la date et l'heure ? Je n'arrive pas à les passer en date courte à cause de ces espaces en manuel ça passe mais pas avec le code vba que j'ai ici![Eek! :eek: :eek:](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
Merci d'avance de voter aide.
Pourriez vous svp me dire comment je peux supprimer en code vba les espaces indésirables dans la date (il y en a en fin de chaine de caractère après les secondes et entre la date et l'heure ? Je n'arrive pas à les passer en date courte à cause de ces espaces en manuel ça passe mais pas avec le code vba que j'ai ici
VB:
Sub TraitementITBExternes()
' Déclaration des variables
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
' Spécifier la feuille de travail
Set ws = ThisWorkbook.Sheets("Externes")
' Spécifier la plage dans la colonne H (de la ligne 2 à la dernière ligne utilisée)
Set rng = ws.Range("H2:H" & ws.Cells(ws.Rows.Count, "H").End(xlUp).Row)
' Supprimer les doubles espaces dans la colonne H et ne laisser qu'un seul espace
For Each cell In rng
cell.Value = Application.WorksheetFunction.Trim(cell.Value)
cell.Value = Replace(cell.Value, " ", " ")
Next cell
' Mettre la date en format court dans la colonne H (supposons que les valeurs soient des dates)
rng.NumberFormat = "Short Date"
End Sub