remplacer un nom

Version imprimable

remplacer un nom

Bonjour a tous,

j'ai un model qui traite differents chantiers,
je souhaite que l'utlisiteur puisse changer le nom des chantiers sachant que chaque chantier a une feuille a son nom.

Je demande donc a l'utilisateur le nom quil veut changer par une message box ainsi que le nouveau nom par une autre message box.
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 ub change_name() Dim SiteName Dim NewSiteName SiteName = Application.InputBox("Please enter the name of the Site to be changed") NewSiteName = Application.InputBox("Please enter a new Name") If NewSiteName = False Then Exit Sub Else On Error Resume Next Cells.Replace What:="SiteName", Replacement:="NewSiteName" On Error GoTo 0 If SiteName = NewSiteName Then MsgBox "Sites are the same" Sheets("Assumptions").Select Else End If End If End Sub
Mon probleme est de changer le nom de la feuille et de plus certaines formules utilisent le nom de la feuille
comment peut on faire pour aussi remplacer le nom dans les formules?

Merci d'avance

30/07/2009, 15h22
DeaD78

Bonjour,

En ce qui concerne les formules, Ctrl + H / Options et tu sélectionnes Regarder dans les formules ou un truc du genre. Tu lances ton enregistreur de macros là-dessus et tu prends ce que ça te donne. Ce n'est pas plus compliqué que ça :zoubi:

Pour ce qui est des feuilles, il va falloir boucler sur chacune d'elles et tester leur nom afin de remplacer le cas échéant. Le sujet a été abordé maintes fois sur ce forum. Une petite recherche devrait faire ton bonheur.

Bonne chance pour la suite !
30/07/2009, 15h23
LeForestier

Bonjour,
Une piste ?
Ne pas se rapporter au nom des feuilles dans les macros mais à leurs index.
L'index change pas Si ont ne déplace pas les feuilles
A+
30/07/2009, 15h43
Krovax

Personnellement je me méfie des feuille déplacé et préfère utiliser le code name des feuilles. Enfin ca dépende de tes utilisateur et de ce que tu veux pouvoir faire
30/07/2009, 15h53
LeForestier

Citation:

Envoyé par Krovax

Personnellement je me méfie des feuille déplacé et préfère utiliser le code name des feuilles. Enfin ca dépende de tes utilisateur et de ce que tu veux pouvoir faire

Je suis tout à fait de ton avis, mais dans le cas présent, je vois pas beaucoup d'autre solution sauf...
Parcourir le code et changer le nom, ce qui est également possible mais est-ce que les macros sont assignées à la feuille ou bien est-ce que la/les macros gère toute les feuilles ?
A+

Merci a tous pour vos reponses

voila ce que j'ai fait a ca marche

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
31
32
33
Sub change_name()
 
Dim SiteName
Dim NewSiteName
Dim WS As Worksheet
 
SiteName = Application.InputBox("Please enter the name of the Site to be changed")
NewSiteName = Application.InputBox("Please enter a new Name")
 
If NewSiteName = False Then
Exit Sub
 
Else
 
 
        On Error Resume Next
            Sheets(SiteName).Name = NewSiteName                 For Each WS In Worksheets
                    WS.Cells.Replace What:=SiteName, Replacement:=NewSiteName, LookAt:=xlPart, _
                    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                    ReplaceFormat:=False
                Next
 
 
 
        On Error GoTo 0
            If SiteName = NewSiteName Then
                MsgBox "Sites are the same"
                Sheets("Assumptions").Select
            Else
            End If
End If
 
End Sub

Merci encore :ccool: