Discussion :

[SpaceX]

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 ?

[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)

[SpaceX]

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)

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.

[Menhir]

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

[pijaku]

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

[SpaceX]

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

[SpaceX]

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 :

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
 
 
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é ?)

[patricktoulon]

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 :

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

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

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

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

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 ?

[Menhir]

Avez vous des idées svp ?

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

[SpaceX]

Bonjour,

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

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

[patricktoulon]

re

1. ton texte est sous quelle forme vsv html xml etc....
2. 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 :

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

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 :

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

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 :

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

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
;)

[SpaceX]

Merci !