Sujet Précédent Sujet Suivant

VBA excel transformer des points en /

Résolu/Fermé
la_fouine_du_13 Messages postés 14 Date d'inscription mercredi 9 mai 2012 Statut Membre Dernière intervention 6 juin 2012 - Modifié par la_fouine_du_13 le 10/05/2012 à 10:30
la_fouine_du_13 Messages postés 14 Date d'inscription mercredi 9 mai 2012 Statut Membre Dernière intervention 6 juin 2012 - 10 mai 2012 à 11:42
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é
A voir également:

1 réponse

Réponse 1 / 1
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
Modifié par ccm81 le 10/05/2012 à 10:40
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
1
la_fouine_du_13 Messages postés 14 Date d'inscription mercredi 9 mai 2012 Statut Membre Dernière intervention 6 juin 2012
Modifié par la_fouine_du_13 le 10/05/2012 à 11:42
je l'ai adapté à mon exemple c'est nickel ! 1000 merci!
0