VBA excel transformer des points en / Résolu

Question

Bonjour à tous et à toutes,  

Mon objectif est de convertir dans une colonne à ligne variable des points en date (exemple 01.02.2012 en 01/02/2012) je teste le code ci-dessous mais sans succès. 

Sub changerendate() 

Dim LinFin As Long 
LiFin = Range("J1:J" & Rows.Count).End(xlUp).Row 

    Selection.TextToColumns Destination:=Range(LiFin), DataType:=xlDelimited, _ 
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ 
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _ 
        :="/", FieldInfo:=Array(1, 4), TrailingMinusNumbers:=True 
         
         
End Sub 

merci d'avance de votre aide 

La chute n'est pas un échec, l'échec est de rester où l'on est tombé

ccm81 · Answer

bonjour  

peut être quelque chose comme ça  

Dim lifin As Long  
Dim d As Date  
lifin = Range("A" & Rows.Count).End(xlUp).Row  
For li = 1 To lifin  
  d = Replace(Cells(li, 1).Value, ".", "/")  
  Cells(li, 1).Value = d  
Next li
RQ. tu peux t'en sortir sans macro avec un simple remplacer . par / dans la feuille 

bonne suite

VBA excel transformer des points en /

1 réponse

Newsletters