1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
If Col_Names <> "" Then
Sheets("Parameters").Select
If Cells(2, Col_Names).Value <> "" Then
ligne_names = DerCell_In_Col(Col_Names, 1)
'Selection des rangs du debut de la colonne à la fin des données
Sheets("Parameters").Range(Col_Names & L_debut & ":" & Col_Names & ligne_names).Select
'Le rang selectionné s'appellera & Nom_Names &
Sheets("Revenues").Names.Add Name:=Nom_Names, RefersTo:="='" & Sheets("Parameters").Name & "'!" & selection.Address
Sheets("Expenses").Names.Add Name:=Nom_Names, RefersTo:="='" & Sheets("Parameters").Name & "'!" & selection.Address
Sheets("Summary").Names.Add Name:=Nom_Names, RefersTo:="='" & Sheets("Parameters").Name & "'!" & selection.Address
Sheets("Parameters").Names.Add Name:=Nom_Names, RefersTo:="='" & Sheets("Parameters").Name & "'!" & selection.Address
End If
End If |
Partager