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.
Mon probleme est de changer le nom de la feuille et de plus certaines formules utilisent le nom de la feuille
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
comment peut on faire pour aussi remplacer le nom dans les formules?
Merci d'avance
Partager