Discussion :

[gti64]

Bonjour,

ayant un niveau 0 en vba, j'ai fait quelque recherche sur internet pour créer une macro.

le but de la macro :
- ouvrir une sélection de fichier excel
- rechercher/remplacer plusieurs mots en changeant la couleur de la police
- fermer les fichier ouvert

le problème, c'est que cela marche que sur la feuille qui était active lors l'enregistrement.

pouvez-vous regarder et me dire mon erreur.

merci

[mercatog]

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
43
44
45
46
47
48
49
50
Sub Remplacer()
Dim Compteur As Byte
Dim Liste As String
Dim Wb As Workbook
Dim Rep As Long
Dim NomFich
 
NomFich = Application.GetOpenFilename(Title:="Ouverture des fichiers CEXP", MultiSelect:=True)
 
If TypeName(NomFich) = "Boolean" Then Exit Sub
 
With Application.ReplaceFormat.Font
    .Subscript = False
    .Color = 255
    .TintAndShade = 0
End With
 
For Compteur = 1 To UBound(NomFich)
    Liste = Liste & vbCr & NomFich(Compteur)
Next Compteur
 
Rep = MsgBox("Voici la liste des fichiers CEXP sélectionnés." & Liste & vbCr & "Voulez-vous les ouvrir ?", vbYesNo + vbQuestion, "Ouvrir les fichiers CEXP ?")
If Rep = vbYes Then
    For Compteur = 1 To UBound(NomFich)
        Set Wb = Workbooks.Open(NomFich(Compteur))
        Call Rempl(Wb)
        Set Wb = Nothing
    Next Compteur
End If
Application.ReplaceFormat.Clear
End Sub
 
Private Sub Rempl(ByVal Wbk As Workbook)
Dim Feuil As Worksheet
 
With Wbk
    For Each Feuil In .Worksheets
        With Feuil.UsedRange
            .Replace What:="-11", Replacement:="-21", LookAt:=xlPart, ReplaceFormat:=True
            .Replace What:="-13", Replacement:="-23", LookAt:=xlPart, ReplaceFormat:=True
            .Replace What:="-14", Replacement:="-24", LookAt:=xlPart, ReplaceFormat:=True
            .Replace What:="Train A", Replacement:="Train B", LookAt:=xlPart, ReplaceFormat:=True
        End With
    Next Feuil
 
    Application.DisplayAlerts = False
    .Close True
    Application.DisplayAlerts = False
End With
End Sub

[gti64]

merci !!!! ça marche !!!

pourrais-je connaitre mes erreurs ?

a+

[mercatog]

Thisworkbook désigne le classeur contenant la macro

[gti64]

Bonjour,

j'ai un problèe qui apparaît sur certain fichier

"la méthode 'replace' de l'objet 'range' a échoué"

merci encore pour ton aide.

A+

[mercatog]

Quel dommage!

[gti64]

désolé si j'ai fait quelque chose de mal mais dans tous les cas merci de m'avoir aidé.

j'ai réglé le problème en changeant cette partie du code

Code :

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

1
2
3
4
5
6
7
8
9
10
For Each Feuil In .Worksheets
        With Feuil.UsedRange
            Cells.Select
            Selection.Replace What:="-11", Replacement:="-21", LookAt:=xlPart, ReplaceFormat:=True
            Selection.Replace What:="-13", Replacement:="-23", LookAt:=xlPart, ReplaceFormat:=True
            Selection.Replace What:="-14", Replacement:="-24", LookAt:=xlPart, ReplaceFormat:=True
            Selection.Replace What:="Train A", Replacement:="Train B", LookAt:=xlPart, ReplaceFormat:=True
        End With
 
    Next Feuil