Remplacer un mot dans un fichier texte à l'aide d'un textbox

Version imprimable

17/05/2018, 15h35
SpaceX

Remplacer un mot dans un fichier texte à l'aide d'un textbox

Bonjour,

J'ai un fichier texte avec ce genre de contenu :

JP026A1
JP026B1
JP026C1
JP026D1
JP026E1
JP026F1

Je souhaiterai une macro qui puisse remplacer tout les chiffres "026" par le contenu taper dans un textbox que j'ai crée dans mon userfom.

J'aimerai savoir quel est la meilleur méthode pour effectuer cela svp ?
18/05/2018, 08h00
pijaku
Bonjour,

2 petites questions anodines :
1. Qu'elle est la taille du fichier texte (en Ko) à traiter?
2. La chaîne à remplacer doit elle l'être systématiquement? (ex : J1026V026 ==> remplacer les deux fois 026)
18/05/2018, 09h11
SpaceX
Citation:
Envoyé par pijaku

Bonjour,

2 petites questions anodines :

Qu'elle est la taille du fichier texte (en Ko) à traiter?
La chaîne à remplacer doit elle l'être systématiquement? (ex : J1026V026 ==> remplacer les deux fois 026)
Salut,
- Le fichier fait 50 Ko
- Le "026" apparait systématiquement à chaque ligne mais qu'une seule fois.
D'habitude j'ouvre le fichier et je fais CTRL+F , remplacer "026" par "028" mais j'aimerai que ce soit une macro VBA qui le réalise.

Quand je parle de méthode dans mon premier message, c'est grosso modo :

Dois-je utiliser un file dialog qui ouvre le fichier et qui le passe en revu en mode read ? ou alors ce n'est pas nécessaire ?

Merci.
18/05/2018, 09h21
Menhir

Citation:

Envoyé par SpaceX

Je souhaiterai une macro qui puisse remplacer tout les chiffres "026" par le contenu taper dans un textbox que j'ai crée dans mon userfom.
J'aimerai savoir quel est la meilleur méthode pour effectuer cela svp ?

Déjà, il n'est pas judicieux de faire un userform complexe à gérer quand un simple InputBox peut suffire.
https://msdn.microsoft.com/fr-fr/VBA...utbox-function

Pour le reste, le plus simple est d'ouvrir ton fichier texte avec un simple Workbooks.OpenText.
https://msdn.microsoft.com/fr-fr/vba...t-method-excel
De faire une boucle pour scruter chaque ligne.
http://silkyroad.developpez.com/vba/boucles/
De modifier les valeurs avec une fonction Replace().
https://msdn.microsoft.com/fr-fr/VBA...place-function
et de sauvegarder le tout au format xlTextWindows.
https://msdn.microsoft.com/fr-fr/vba...s-method-excel
https://msdn.microsoft.com/fr-fr/vba...meration-excel

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Demo()
   Remplace "C:\Dossier\", "fichier.txt", "026"
End Sub
 
Sub Remplace(StrPath As String, StrName As String, StrText As String)
Dim Nb As Integer, s As String
   Nb = FreeFile
      Open StrPath & StrName For Input As #Nb
         s = Input(LOF(Nb), #Nb)
      Close #Nb
   s = Replace(s, StrText, "")
   Nb = FreeFile
      Open StrPath & StrName For Output As #Nb
         Print #Nb, s
      Close #Nb
End Sub

Citation:
Envoyé par pijaku
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub Demo() Remplace "C:\Dossier\", "fichier.txt", "026" End Sub Sub Remplace(StrPath As String, StrName As String, StrText As String) Dim Nb As Integer, s As String Nb = FreeFile Open StrPath & StrName For Input As #Nb s = Input(LOF(Nb), #Nb) Close #Nb s = Replace(s, StrText, "") Nb = FreeFile Open StrPath & StrName For Output As #Nb Print #Nb, s Close #Nb End Sub
Merci du code, je vais surement m'appuyer dessus pour remplacer le 026 mais finalement je préfère utiliser la méthode file dialog. Je n'aime pas trop indiquer le chemin de fichier car il peut y avoir des erreurs liés au chemin d'accès.

Merci

Citation:

Envoyé par Menhir

Pour le reste, le plus simple est d'ouvrir ton fichier texte avec un simple Workbooks.OpenText.
https://msdn.microsoft.com/fr-fr/vba...t-method-excel
De faire une boucle pour scruter chaque ligne.
http://silkyroad.developpez.com/vba/boucles/
De modifier les valeurs avec une fonction Replace().
https://msdn.microsoft.com/fr-fr/VBA...place-function
et de sauvegarder le tout au format xlTextWindows.
https://msdn.microsoft.com/fr-fr/vba...s-method-excel
https://msdn.microsoft.com/fr-fr/vba...meration-excel

Merci la 2ème option est la méthode que je souhaite faire.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Dim NomFich, NomFichPrincipal, TabRep NomFichPrincipal = ThisWorkbook.Name 'Le fichier contenant la macro 'Ouverture de la boîte de dialogue NomFich = Application.GetOpenFilename _ (FileFilter:="Fichier texte(*.txt),*.txt", Title:="Sélectionner le fichier") 'Nomfich comporte le chemin, le fichier n'est pas ouvert If NomFich = False Then MsgBox "Aucun fichier sélectionné." Exit Sub End If Workbooks.OpenText FileName:=NomFich, Origin:=xlWindows, _ StartRow:=1, DataType:=xlDelimited, ConsecutiveDelimiter:=True, Tab:=True, Comma:=True, Space:=True DoEvents
J'ai un doute lorsque j'ouvre mon fichier texte, doit-je l'ouvrir avec des propriétés spécifiques ? (par exemple : délimité ?)

si tes fichier sont pas trop lourd
exemple
boucle sur tout les fichiers de mondossier et remplace 026 par 028 partout dans le texte

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
    Dim x As Integer,x2 as Integer, fichier As String, texte As String, mondossier As String
    mondossier = "C:\Users\polux\Desktop\Nouveau dossier (2)\"
    fichier = Dir(mondossier & "*.txt")
    Do
        'lecture
        x = FreeFile: Open mondossier & fichier For Input As #x: texte = Input$(LOF(x), #x): Close #x
        'ecriture
        x2 = FreeFile: Open mondossier & fichier For Output As #x2: Print #x2, Replace(texte, "026", "028"): Close #x2
        fichier = Dir
    Loop While fichier <> ""
End Sub

18/05/2018, 10h45
SpaceX
Contenu de mon fichier :

JP026A1
JP026B1
JP026C1
JP026D1
JP026E1
JP026F1

Bonjour,

Voici la ligne d'instruction qui permet de remplacer le mot JC par la valeur que je rentre dans un textbox :
Code:

1 2 3 Cells.Replace What:="JP", Replacement:=txt_num.Value, LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Sauf que je ne veux pas ça, j'aimerai qu'il remplace les 3 premiers chiffre après JP par la valeur de mon textbox : txt_num.Value

Avez vous des idées svp ?
18/05/2018, 12h38
Menhir

Citation:

Envoyé par SpaceX

Avez vous des idées svp ?

Je t'ai déjà indiqué comment faire.

Bonjour,

Je n'arrive toujours pas à résoudre mon problème.

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
 
Private Sub Button_search1_Click()
 
Dim numero As Single
numero = CSng(txt_numCoque.Value)
 
Dim NomFich, NomFichPrincipal, TabRep
    NomFichPrincipal = ThisWorkbook.Name 'Le fichier contenant la macro
 
    'Ouverture de la boîte de dialogue
    NomFich = Application.GetOpenFilename _
    (FileFilter:="Fichier texte(*.txt),*.txt", Title:="Sélectionner le fichier")
 
    'Nomfich comporte le chemin, le fichier n'est pas ouvert
    If NomFich = False Then
        MsgBox "Aucun fichier sélectionné."
        Exit Sub
    End If
 
      'Pour ouvrir ainsi ton fichier texte, tu dois connaître le séparateur
    'l'exemple ci-dessous utilise ";" comme séparateur (à adapter)
    Workbooks.OpenText FileName:=NomFich, Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, ConsecutiveDelimiter:=True, Tab:=True, Comma:=True, Space:=True
    DoEvents
 
            Cells.Replace What:="JP", Replacement:="JP" + txt_num.Value, LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 
  If NomFich <> "" Then TextBox1.Text = NomFich
End Sub

Lorsque je lance ma macro, ce dernier recopie correctement l'ensemble de mon fichier txt sur ma feuille excel mais au lieu d'avoir JP015F4, j'ai JP014015F4. Ce qui est normal en vue de mon code ...

En VBA est-il possible de lui indiquer de remplacer le caractère que je souhaite remplacer + les 3 caractères suivant ?

J'aimerai obtenir JP014F4 quand je rentre 014 dans mon textbox txt_num.Value

Merci d'avance.

re

ton texte est sous quelle forme vsv html xml etc....
est ce que ces 3 caracteres suivants sont tout le temps numeriques?

tu pourrais t'intéresser au regex

un petit exemple

si les 3 suivants sont toujours des numeriques alors

regarde ce que devient le texte de "mavar"dans le msgbox

on remplace 015 par 014 et on shunte les 3 suivants c'est ca ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub test() Dim maVar As String, matchs maVar = "JP015015F4 JP015546f4 JP015794k7 JP015453B9" With CreateObject("VBScript.RegExp"): .Global = True: .IgnoreCase = True: .Pattern = "015\d+" Set matchs = .Execute(maVar) If matchs.Count > 0 Then For i = 0 To matchs.Count - 1 maVar = Replace(maVar, matchs(i), "014") Next End If End With MsgBox maVar End Sub
Et!! au cas ou !!?? les 3 suivant n'etaient pas forcement numerique ou meme seraient les deux on change le pattern
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub test() Dim maVar As String, matchs maVar = "JP015abcF4 JP0155C6f4 JP015794k7 JP015453B9" With CreateObject("VBScript.RegExp"): .Global = True: .IgnoreCase = True: .Pattern = "015(\d{1}|\D{1})(\d{1}|\D{1})(\d{1}|\D{1})" Set matchs = .Execute(maVar) If matchs.Count > 0 Then For i = 0 To matchs.Count - 1 maVar = Replace(maVar, matchs(i), "014") Next End If End With MsgBox maVar End Sub
bien sur il y a plusieurs manieres de coder le pattern
et on peux aussi utiliser la fonction replace du regex (pas celle de excel )
voici un exemple avec une autre maniere de coder le pattern et l'utilisation non pas des matchs mais la fonction replace du regex ce qui allege relativement le code
le msgbox te donne un visuel sur l'original et le resultat
Code:

1 2 3 4 5 6 7 8 9 Sub test() Dim maVar As String, matchs maVar = "JP015abcF4 JP0155C6f4 JP015794k7 JP015453B9 JP015015B9" With CreateObject("VBScript.RegExp"): .Global = True: .IgnoreCase = True: .Pattern = "015([A-Z-0-9]{3})" resultat = .Replace(maVar, "014") End With MsgBox "original = " & maVar & vbCrLf & "resultat :" & resultat End Sub
j'ai tout dis je crois

si ce n'est qu'il n'est nullement besoins d'ouvrir le fichier text dans excel pour bricoler dans les cellule
alors que l'on a les fonctions open for (input/output) lecture et ecriture qui font tres bien l'affaire
;)

21/05/2018, 14h51
SpaceX

Merci !