remplacer des "." par "/" ?.

Version imprimable

15/09/2008, 10h18
Caps corp

remplacer des "." par "/" ?.
Bonjour,

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

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
15/09/2008, 10h25
ouskel'n'or

Code:

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

Bonne journée
15/09/2008, 10h50
Caps corp

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

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

Code:

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 ?

15/09/2008, 16h00
Caps corp

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

Code:

Cell = CDate(Replace(Cell, ".", "/"))
15/09/2008, 16h37
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 ?

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

Code:

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

15/09/2008, 17h20
ouskel'n'or

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

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:

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+

15/09/2008, 17h59
Caps corp

hummmm...non marche pas. Ton code march epour 1 colonne (A) ou plusieurs ?
15/09/2008, 18h03
ouskel'n'or

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

Citation:

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

par

Code:

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
16/09/2008, 09h26
Caps corp

non désolé, c'est toujours sur

Code:

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

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

Citation:

Envoyé par ouskel'n'or

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.
16/09/2008, 10h49
ouskel'n'or

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

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 :oops: et je ne sais pas pourquoi...

Code:

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...:oops:

16/09/2008, 11h22
ouskel'n'or

Just a question : Quelle version d'Excel utilises-tu ?
16/09/2008, 11h38
Caps corp

2003 SP3
16/09/2008, 11h43
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" :mouarf: Donc, utilise bien la tienne ;)
Bonne journée