Discussion :

[MarcelG]

Bonjour le Forum,

J'ai dupliqué un classeur Class1.xls en Class2.xls (enregistrer sous)

Class1.xls contient des noms de certaines cellules comportant la chaîne de caractères "TOTO".

Je souhaiterais que :
1 - dans Class2.xls, le nom de la même cellule ait sa chaîne de caractères "TOTO" remplacée par "PANPAN".
Exemple : Si une cellule est nommée "truc_TOTO" dans Class1, cette mëme cellule sera nommée "truc_PANPAN" dans Class2.xls

2 - supprimer dans Class2.xls tous les noms comportant "TOTO"

Je suis arrivé à coder la partie 2 ci dessous dans Class2.xls

Si cela peut intéresser, (sans prétention de ma part)

Code :

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

1
2
3
For Each nom In ActiveWorkbook.Names
    If InStr(1, nom.Name, "TOTO") > 0 Then nom.Delete
Next

Par contre, je n'arrive pas à coder la 1ère partie, toujours dans Class2.xls
(50 noms sur 60)

Si quelqu'un a une idée,
Merci d'avance.

Cordialement.

Marcel.

[casavba]

Bonsoir,

1 - dans Class2.xls, le nom de la même cellule ait sa chaîne de caractères "TOTO" remplacée par "PANPAN".
Exemple : Si une cellule est nommée "truc_TOTO" dans Class1, cette mëme cellule sera nommée "truc_PANPAN" dans Class2.xls

La réponse est en quelque sorte dans la question que tu as posé.
Ton problème est de remplacé une chaine de caractère par une autre ---> VBA répond à cette question par le biais d'une fonction simple d'utilisation en l'occurrence la fonction : Replace.

Il y a plusieurs manières de procèder. voici, entre autres, un exemple simple à adapter :

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
Sub RenomPlage(ByVal nFeuil As String)
 
Dim pRange As Range
Dim nNom As Name
 
 
On Error Resume Next
'Boucle sur les noms du classeur
For Each nNom In ThisWorkbook.Names
 
    Set pRange = nNom.RefersToRange
 
    If Not pRange Is Nothing Then
        'Vérifie si le nom appartient à la feuille -- 
        If Worksheets(nFeuil).Name = pRange.Worksheet.Name Then _
            nNom.Name = Replace(nNom.Name, "TOTO", "PANPAN")
    End If
 
    Set pRange = Nothing
 
Next nNom
 
End Sub

Tu remarqueras dans ce code, qu'en premier lieu, j'ai listé tous les plages nommées du classeur et puis je me suis intéressé à une feuille spécifique pour remplacer dans chaque nom de plage de cette feuille l'occurence "ToTo" par "PANPAN".

J'espère que ceci répondra à ta question.


NB: pour lancer le code il faut l'appeler à partir d'une procèdure, comme suit

Code :

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

1
2
3
4
5
Sub Test()
 
RenomPlage ("feuil1")  ' avec Feuil1 : Feuille cible où on va renommer 
 
End Sub

Bonne soirée

[MarcelG]

Merci casavba,

Juste une remarque :
-> la présence de la chaîne "TOTO" dans le nom doit être testée

Code :

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

1
2
3
If Worksheets(nFeuil).Name = pRange.Worksheet.Name _
                        And InStr(1, nNom.Name, "TOTO") > 0 Then _
                         nNom.Name = Replace(nNom.Name, "TOTO", "PANPAN")

sans quoi, les noms qui ne comportent pas cette chaîne sont supprimés.

D'autre part, et c'est logique puisque tu écris

Code :

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

Sub RenomPlage(ByVal nFeuil As String)

si l'on veut balayer toutes les feuilles du claseur, on doit utiliser l'argument FEUIL.name

Code :

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

1
2
3
4
5
6
Sub Test2()
 
Dim FEUIL As Worksheet
For Each FEUIL In ThisWorkbook.Worksheets
    RenomPlage (FEUIL.Name)
End Sub

Conclusion : Résolu et merci pour ce précieux concours.

Cordialement.

Marcel.