VBA changer les . par des /

Bonjour à tous et à toutes,

Mon objectif est de convertir dans une colonne avec un nombre de ligne variable les points en /
exemple : 12.01.2012 transformé en 12/01/2012

j'ai testé un code mais ça plante, MERCI D'AVANCE DE VOTRE AIDE

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

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

---

Bonjour,

tu injectes ta colonne dans une variable tableau.

tu parcours les élément des ton tableau en utilisant la fonction Replace (cf Aide VBA) pour changer les . en /

Tu réinjectes le tableau obtenu dans ta colonne.

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

Bonjour,

plus rapide surement...

Si one shot, tu fais à la main un chercher remplacer sur ta plage, sinon utilises l'enregistreur pour adapter, je pense que c'est la solution la plus efficiente ;)

Code:

---

1 2 3 4 5 6 7

Sub EnregistreurMacro()   Range("E6:E13").Select Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub

---

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier