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