Microsoft 365 Suppression espace indésirable et avoir une date courte

AD95 à dit:

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

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

Regarde la pièce jointe 1188547

Cliquez pour agrandir...

Dranreb à dit:

Bonjour.
Comme ça :

VB:

Sub TraitementITBExternes()
' Déclaration des variables
   Dim Wsh As Worksheet, Rng As Range, T(), L As Long
 
' Spécifier la plage dans la colonne H (de la ligne 2 à  la dernière ligne utilisée)
   Set Wsh = ThisWorkbook.Sheets("Externes")
   Set Rng = Wsh.Range("H2:H" & Wsh.Cells(Wsh.Rows.Count, "H").End(xlUp).Row)
 
' Convertir les textes en dates
   T = Rng.Value
   For L = 1 To UBound(T, 1)
     If VarType(T(L, 1)) = vbString Then T(L, 1) = CDate(T(L, 1))
     Next L
   Rng.Value = T
 
' Mettre la date en format court dans la colonne H (supposons que les valeurs soient des dates)
   Rng.NumberFormat = "dd/mm/yyyy hh:mm"
   End Sub

Cliquez pour agrandir...

Modeste geedee à dit:

bonsour®
Pour info : l'espace insécable a pour code Chr(160) !!!
de nombreux exemples de mise en œuvre sont régulièrement proposé dans le forum...

Cliquez pour agrandir...

Dranreb à dit:

Bonjour.
Comme ça :

VB:

Sub TraitementITBExternes()
' Déclaration des variables
   Dim Wsh As Worksheet, Rng As Range, T(), L As Long
 
' Spécifier la plage dans la colonne H (de la ligne 2 à  la dernière ligne utilisée)
   Set Wsh = ThisWorkbook.Sheets("Externes")
   Set Rng = Wsh.Range("H2:H" & Wsh.Cells(Wsh.Rows.Count, "H").End(xlUp).Row)
 
' Convertir les textes en dates
   T = Rng.Value
   For L = 1 To UBound(T, 1)
     If VarType(T(L, 1)) = vbString Then T(L, 1) = CDate(T(L, 1))
     Next L
   Rng.Value = T
 
' Mettre la date en format court dans la colonne H (supposons que les valeurs soient des dates)
   Rng.NumberFormat = "dd/mm/yyyy hh:mm"
   End Sub

Cliquez pour agrandir...

AD95 à dit:

sur mon fichier original j'intègre ton code dans un code qui récupère des données dans une feuille et les colle dans une autre

Cliquez pour agrandir...

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    ModType = Table.TransformColumnTypes(Source,{{"TEST ", type datetime}})
in
    ModType

Cousinhub à dit:

Bonjour,
Comme tu as 365, tu peux également utiliser Power Query, notamment pour ce traitement, voire même pour effectuer toute la manipulation (import dans un autre onglet, traitements autres....)

Le code pour convertir :

PowerQuery:

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    ModType = Table.TransformColumnTypes(Source,{{"TEST ", type datetime}})
in
    ModType

Voici ton fichier. Pour mettre à jour, clic droit dans la requête, "Actualiser"
Bonne fin d'apm

Cliquez pour agrandir...