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 !!

[Krovax]

Heu il te rajoute vraiment tout ca?
Tu n'avais pas l'enregistreur de macro de lancé par hasard?
parce que a part ca je ne vois pas (je me suis amusé a le faire tourner plusieurs fois sans problème)

Pour mon code on peu facilement optimiser la détection de la dernière ligne pour éviter de traiter les cellule vide

Après pour ce qui est de gagner des lignes je n'ai jamais été très bon, j'ai même tendance à en rajouté vu que j'ai pas de problème de temps de traitement mais que le code risque d'être relu et modifier par des personne qui ne seront pas forcément super calé en vba ou qui n'auront pas trop le temps de s e plonger dedans du coup je fais tout pour être facilement lisible

[FCL31]

Heu il te rajoute vraiment tout ca?

Oui

Tu n'avais pas l'enregistreur de macro de lancé par hasard?

C'est quoi et où ???

[Krovax]

Ce tuto page 12
C'est le petit truc qui pêrmet de transformé en macro toutes les actions que tu fais (très utile pour connaitre certaine syntaxe mais génère un code très lourd et lent)

A mon avis tu as fait outil macro nouvelle macro et ca a lancé l'enregistreur .
La prochaine fois essaye de copier directement le code dans l'éditeur, Alt+F11 pour l'ouvrir. C'est mieux.

Efface le code en trop et tu verras tout ira comme sur des roulettes

[FCL31]

J'ai refait la macro et sa marche

Je sais pas pourquoi sa a fait sa ??

Surement j'avait l'enregistreur de macro de lancé