Macro de substitution

Version imprimable

13/04/2011, 11h14
vidalv

Macro de substitution

Bonjour,

J'ai un fichier .csv de plus de 98000 lignes, parmi ces lignes il y en a qui contiennent l'expression "A A A A A A .... A A A" d'autres "B B B B B B .... B B B".

J'aimerai trouver une macro qui puisse substituer les lignes avec les " A A " en " C C " et les " B B " en " D D ".

Une idée simple pour faire ça ? :)

Merci.

Vincent.
13/04/2011, 14h45
Jean-Philippe André

Salut,

Une procedure avec une boucle et une fonction Replace ferait l'affaire ?

Bonjour

Pour eviter une boucle sur les 98000 lignes :

Code:

1
2
3
    Range("A1:A" & rows.count).Replace What:="AA AA A AAA", Replacement:="CC CC C CCC", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

merci à l'enregistreur de macro

Bonjour,

Comme le préconise Jean-Philippe, avec Replace() :

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
42
 
Sub Remplacer()
 
    Dim Tbl() As String
    Dim I As Long
    Dim Fichier As String
    Dim Ligne As String
 
    'Adapter le chemin et nom du fichier
    Fichier = "D:\Mon Fichier Texte.txt"
 
    Open Fichier For Input As #1
 
    Do While Not EOF(1)
 
        'récup la ligne entière
        Line Input #1, Ligne
 
        I = I + 1
        ReDim Preserve Tbl(1 To I)
        'remplace en stockant provisoirement dans un tableau
        'si trouve "A....." remplace par "C....."
        Tbl(I) = Replace(Ligne, "AAAAAAA", "CCCCCCC")
        'idem pour "B....."
        Tbl(I) = Replace(Tbl(I), "BBBBBBB", "DDDDDDD")
 
    Loop
 
    Close #1
 
    Open Fichier For Output As #1
 
    For I = 1 To UBound(Tbl)
 
        'réinscrit par dessus avec les modifs effectuées
        Print #1, Tbl(I)
 
    Next I
 
    Close #1
 
End Sub

Hervé.

13/04/2011, 15h07
Theze

Oups,

Désolé, j'ai répondu trop vite, je n'ai pas fait attention au type de fichier .csv :0(( Donc, ne pas tenir compte de ma réponse.

Hervé.
13/04/2011, 15h35
vidalv

Macro de substitution.

Thez, c'est pas un soucis, je peut transformer mon fichier .csv en Ascii.

Je fait un essai.

Merci pour le bout de code, il change les 49 premières occurrences puis laisse les autres telle-quelle, est-ce normale ? ou faut-il un paramètre a la fonction Replace ?

Vincent.