Discussion :

[vidalv]

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.

[Jean-Philippe André]

Salut,

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

[wilfried_42]

Bonjour

Pour eviter une boucle sur les 98000 lignes :

Code :

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

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

[Theze]

Bonjour,

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

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
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é.

[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é.

[vidalv]

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.