Discussion :

[Caps corp]

Bonjour,

j'utilise le code suivant pour remplacer dans 4 colonnes contiguës les . par des / pour obtenir des dates.

Code :

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

1
2
3
Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

La modif se fait bien, mais certaines cellules ne prennent pas la forme de date. Alors que cette fonction marche en manuel.

Une idée d'amélioration ?
merci

[ouskel'n'or]

Code :

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

Cells(1, 1) = CDate(Replace(Cells(1, 1), ".", "/"))

Bonne journée

[Caps corp]

merci.
Comment appliquer ce code à toutes les cellules de 4 colonnes (F à I) ?

[ouskel'n'or]

avec PremCol : "C" et DerCol : "F"

Code :

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

1
2
3
4
5
Application.screenUpdating = false
For each Cell in Range("C" & Split(Activesheet.usedrange.address,"$")(4) & ":F" & Split(Activesheet.usedrange.address,"$")(4))
    if not isempty(Cell) then Cell = CDate(Replace(Cell, ".", "/"))
Next
Application.screenUpdating = True

Pas testé. Tu peux le faire pour moi ?

[Caps corp]

Ouskel'n'or, ton code ne fonctionne pas, le bug est sur

Code :

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

Cell = CDate(Replace(Cell, ".", "/"))

[Caps corp]

en fait je viens de comprendre que les cellules qui ne sont pas reconnues en dates sont celles qui ne commencent pas par 1 à 12 (format JJ/MM/AA). En VBA le format par défaut est anglo-saxon soit MM/JJ/AA, ce qui crée une erreur d'interprétation de format. Celles qui commence pas 1 à 12 c'est ok , aprés 12 ça bug.
QQun a une solution pour ça ?

[Caps corp]

j'ai trouvé ça avec l'enregistreur de macro et la fonction "convertir", mais ce n'est pas trés light...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Columns("F:F").Select
    Selection.TextToColumns Destination:=Range("F1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=True
 
        Columns("G:G").Select
    Selection.TextToColumns Destination:=Range("G1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=True
 
        Columns("H:H").Select
    Selection.TextToColumns Destination:=Range("H1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=True
 
        Columns("I:I").Select
    Selection.TextToColumns Destination:=Range("I1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=True

[ouskel'n'or]

As-tu testé ma proposition ? Parce que chez moi, elle respecte bien le format... et tu n'en parles pas

[ouskel'n'or]

Autant pour moi . Si les dates sont saisies manuellement dans le format jj.mm.aaaa, (ce que j'avais fait la première fois) mon code fonctionnait. Si ils sont introduit par soft, alors là ça marche plus. Tandis qu'avec le code suivant, ça fonctionne

Code :

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

1
2
3
4
5
6
7
Sub test()
    Application.ScreenUpdating = False
    For Each Cell In Range("A1:A" & Split(ActiveSheet.UsedRange.Address, "$")(4))
        If Not IsEmpty(Trim(Cell)) Then Cell.Value = CDate(Replace(Trim(Cell), ".", "/"))
    Next
    Application.ScreenUpdating = True
End Sub

C'est le .Value qui manquait...
Tu dis
A+

[Caps corp]

hummmm...non marche pas. Ton code march epour 1 colonne (A) ou plusieurs ?

[ouskel'n'or]

Le dernier code ? pour une seule. Suffit que tu remplaces

For Each Cell In Range("A1:A" & Split(ActiveSheet.UsedRange.Address, "$")(4))

par

Code :

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

For each Cell in Range("C" & Split(Activesheet.usedrange.address,"$")(4) & ":F" & Split(Activesheet.usedrange.address,"$")(4))

en adaptant les colonnes (C et F)
Tu dis

[Caps corp]

non désolé, c'est toujours sur

Code :

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

Then Cell.Value = CDate(Replace(Trim(Cell), ".", "/"))

qu'il m'indique une erreur (surligné en jaune).

Si ils sont introduit par soft, alors là ça marche plus. Tandis qu'avec le code suivant, ça fonctionne

oui c'est le cas, c'est une extraction de données d'une base de données sur serveur.

[ouskel'n'or]

Pourrais-tu nous "dévoiler" comment tu as résolu ton problème ?

[Caps corp]

oui, en fait j'ai finalement gardé ma solution (décrite plus haut) qui consiste à utiliser la fonction "convertir". Ce code n'est pas clean mais il fonctionne. Le problème c'est qu'il faut une code par colonne...

J'ai renoncé à utiliser ton code qui bug toujours sur l'instruction Cell.Value et je ne sais pas pourquoi...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Columns("F:F").Select
    Selection.TextToColumns Destination:=Range("F1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=True
 
        Columns("G:G").Select
    Selection.TextToColumns Destination:=Range("G1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=True
 
        Columns("H:H").Select
    Selection.TextToColumns Destination:=Range("H1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=True
 
        Columns("I:I").Select
    Selection.TextToColumns Destination:=Range("I1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=True

merci de tes réponses.
A+

PS: je poste une nouvelle question sur les TCD...

[ouskel'n'or]

Just a question : Quelle version d'Excel utilises-tu ?

[Caps corp]

2003 SP3

[ouskel'n'or]

Alors je n'ai pas d'explication. Désolé.
Mais rassure toi, "une bonne procédure est une procédure qui fait ce qu'on veut sans bug" Donc, utilise bien la tienne
Bonne journée