Discussion :

[FCL31]

a tous

Voila j'ai un ficher Excel avec beaucoup de données qui sont saisie par une société autre que la notre et je ne sais pas pour quelle raison, ils n’ont pas saisi toutes les cellules au même format :

J'ai une colonne avec des dates ; certaines sont saisie normalement : 01/01/2009 (ou 01/01/09) pas de problème mais dans certains cas, ils ont mis 01.01.09

Je voudrais savoir si il y a une macro facile a faire et a mettre en place pour remplacer les caractères "." par des "/" et que se sou en format date (cette dernière n'est pas indispensable car facilement a faire sans macro)


Merci de votre aide

[laetitia]

bonjour FCL31 le forum regarde du cote de l instruction replace

[Krovax]

Je ne sais pas si ca va convenir a chaque fois (cela dépendra de la mise en forme
celui marche pour les cellule du type 01.02.08 après suffit de modifier le like

essaye quelque chose qui ressemble a ca

Code :

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

1
2
3
4
5
6
Dim c As Range
For Each c In Range("A1:Z200")
    If c.Value Like "##.##.##" Then
        c.Value = Replace(c.Value, ".", "/")
    End If
Next

[FCL31]

Merci Krovax sa a l'air de marcher sur le test que je vien de faire

Je vais voir plus en détail

Je marque mais si j'ai un probléme, je me permettrais de revenir vous voir

[laetitia]

re salut Krovax un autre exemple

Code :

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

1
2
3
4
Dim i As Long
For i = 2 To Range("a65536").End(xlUp).Row
Cells(i, 1) = Replace(Cells(i, 1), ".", "/")
Next i

[FCL31]

j'enleve car enfait, je vien de m'appercevoir que j'ai un petit probleme avec ton code Krovax :

Il marche bien sauf que j'ai

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
    Sheets("FRV").Select
    Columns("B:B").Select
    Application.Run "'02-2009.xls'!Macro1"
    Columns("B:B").Select
    Selection.NumberFormat = "m/d/yyyy"
    Range("C20").Select
    ActiveWindow.SmallScroll Down:=99
    Sheets("BBRV").Select
    Range("A:A,D:D,F:F").Select
    Range("F1").Activate
    Selection.Delete Shift:=xlToLeft
    Range("D10").Select
    Selection.AutoFilter
    Columns("H:H").Select
    Selection.Insert Shift:=xlToRight
    Columns("G:G").Select
    Selection.Copy
    Range("H1").Select
    Range("H4").Select
    Application.CutCopyMode = False
    ActiveWindow.FreezePanes = False
    Columns("G:G").Select
    Selection.Copy
    Range("H1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("G:G").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Columns("H:H").Select
    Selection.Delete Shift:=xlToLeft
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Columns("B:B").Select
    Range("A1:M46").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Selection.NumberFormat = "m/d/yyyy"
    Range("C17").Select
    Application.Run "'02-2009.xls'!Macro1"
    Sheets("PVDF").Select

qui se rajoute dans le code.

Pourquoi

Et enplus, sa me plante pour la réutiliser sur une autre feuille du classeur.

Et je voi que ce code qui se rajoute, fait référance à d'autres colonnes dont je ne fait pas référence

[laetitia]

re, le forum le code que ta donne l ami Krovax est un exemple brute comme le mieux d ailleurs!! il faut adapter a tes besoins pour ta macro il faut simplifier tout ca. cela peut se resumer en quelques lignes .

[FCL31]

Le truc c'est que je voi pas en quoi je peu modifier le code de Krovax.
Il me semble térs bien mais je ne comprend pas pourquoi une fois la macro executé, sa me rajoute des lignes de code dans la macro

J'applique la macro sur ma colonne B donc j'ai mis :

Code :

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

1
2
3
4
5
6
Dim c As Range
For Each c In Range("B1:B2000")
    If c.Value Like "##.##.##" Then
    c.Value = Replace(c.Value, ".", "/")
    End If
Next

Je ne comprend pas !!