Lien, macro et compagnie

[Konik]

Bonjour tout le monde,

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.

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 ?

 

[soft]

Re-bonjour,

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