Discussion :

[eglantine217]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Didier Gonard]

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

[Didier Gonard]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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