Discussion :

[Somrael]

Bonjour,

Je suis débutant en VBA.

Je cherche à créer une macro me permettant de remplacer une expression du type : NRG1026X - CI - redevances par ceci: NRG1026 - Charges internes - redevances en un clic.

Il faudrait que j'arrive à effectuer ce type de remplacement sur une trentaine d'onglets dans la cellule E2 et celle-ci seulement, en sachant que je m'appuie sur deux tableaux insérés dans un des onglets pour trouver les deux types d'expression citées ci-dessus.

J'espère avoir été clair et vous remercie de votre aide.

[Daniel.C]

Bonjour,

Le code pour remplacer dans toutes les feuilles est le suivant :

Code :

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

1
2
3
4
5
6
Sub test()
    Dim Sh As Worksheet
    For Each Sh In Worksheets
        Sh.[E2].Replace "NRG1026X - CI - redevances", "NRG1026 - Charges internes - redevances", xlWhole
    Next Sh
End Sub

On peut exclure certaines feuilles du remplacement. Par contre, je n'ai pas compris ce qui suit :

en sachant que je m'appuie sur deux tableaux insérés dans un des onglets pour trouver les deux types d'expression citées ci-dessus.

Je me doute que ça doit compliquer les choses. Peux-tu préciser ?

[Somrael]

Et bien, en fait, vu que j'ai un certain nombre d'expressions, je pensais faire un code plus simple sans rajouter à chaque fois les deux expressions (celle à rajouter et celle à remplacer).

Ce que je veux dire c'est que dans mon excel, j'ai des listes d'expressions et que j'aimerais, au lieu de taper une trentaine de ligne de remplacement, que la macro aille chercher directement l'expression de remplacement dans la liste en question.

Après je ne sais pas si cela est possible et, très franchement, je pense que je vais opter pour ta solution qui me paraît plus sûre. Par contre, j'ai une autre question, en fait, il faudrait que que je puisse à nouveau remplacer "NRG1026 - Charges Internes - redevances par son expression initiale (NRG1026X - CI - redevances). J'ai besoin d'être en mesure de proposer et d'utiliser les deux écritures. Dois-je simplement réécrire la ligne de code proposée ou existe-t-il une fonction spécifique permettant de faire cela?

Merci de ton aide.

[Daniel.C]

Utilise plutôt le code suivant en modifiant les plages "Tableau1" et "Tableau2" :

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 Sh As Worksheet, Tableau1 As Range, Tableau2 As Range
    Set Tableau1 = Sheets("Feuil1").[A1:A10]
    Set Tableau2 = Sheets("Feuil1").[B1:B10]
    For Each Sh In Worksheets
        If Sh.Name <> "Feuil1" Then
            For i = 1 To Tableau1.Count
            Sh.[E2].Replace Tableau1(i), Tableau2(i), , xlWhole
            Next i
        End If
    Next Sh
End Sub

[Somrael]

Je te remercie pour le code, il fonctionne correctement!

Tu m'as dit qu'il était possible d'exclure certains onglets? Pourrais-tu me montrer la procédure?

Cdt

[Daniel.C]

Dans l'exemple précédent :

Code :

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

If Sh.Name <> "Feuil1" Then

permet d'exclure "Feuil1". Tu peux en ajouter :

Code :

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

If Sh.Name <> "Feuil1" And Sh.Name <> "Feuil2" Then

Si tu en as beaucoup, dis-le, on peut procéder autrement.