Macro pour modifier caractère de cellules

Version imprimable

06/04/2009, 15h59
FCL31

Macro pour modifier caractère de cellules

:salut: 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
06/04/2009, 16h14
laetitia

bonjour FCL31 le forum regarde du cote de l instruction replace
06/04/2009, 16h17
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:

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
06/04/2009, 16h33
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 :resolu: mais si j'ai un probléme, je me permettrais de revenir vous voir

re salut Krovax un autre exemple

Code:

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

j'enleve :resolu: 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:

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 :question:

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

06/04/2009, 19h52
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 .
07/04/2009, 12h27
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:

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 !! :(
07/04/2009, 12h45
Krovax

Heu il te rajoute vraiment tout ca? 8O
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
07/04/2009, 14h37
FCL31

Citation:

Envoyé par Krovax

Heu il te rajoute vraiment tout ca? 8O

Oui

Citation:

Envoyé par Krovax

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

C'est quoi et où ???
07/04/2009, 14h44
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 :roll:.
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
10/04/2009, 12h44
FCL31

J'ai refait la macro et sa marche :king:

Je sais pas pourquoi sa a fait sa ??

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