J'adooooore la nouvelle interface: elle a su rester sobre tout en gagnant en clarté. Que du bon !
Mais bon ce n'est pas ça qui m'amène ;o)
J'ai une macro qui me permet de créer une copie d'une feuille déja existante: rien de compliqué, mais très efficace ;o). Serait-il possible de déclencher cette macro en cliquant sur un lien (ou tout autre chose) se trouvant dans une cellule et de donner à cette feuille nouvellement créée la valeur contenue dans une autre cellule.
Code:
Sub CopieAnalyse()
Dim x, y As Byte
x = InputBox('combien de feuilles')
For y = 1 To x
Sheets('Modules').Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = 'Modules' & y
Next
End Sub
Par exemple: dans une cellule il y a un lien 'Go' et lorsque je clique dessus il copie une page et lui donne comme nom la valeur de la cellule A1 ? C'est possible ?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Nom As String
Nom = Target.Value
Cancel = True
ActiveSheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Nom
End Sub
dans cet exemple on copie la feuille en cours en dernier. Si c'est pas la feuille en cours qu'il faut copier, remplace :
-activesheet.copy
par
-sheet('nom de la feuille').copy