Copier Bouton sur toutes les feuilles

Bonjour,

Je cherche à copier le bouton ci-dessous, sur toutes les feuilles (+de 120) de mon classeur!

Cordialement

Bonjour Galiax,

A quoi te sert ce bouton ?

attention, c'est un objet, copié sur 120 feuilles ça va t'alourdir ton fichier

c'est pour se positionner de n'importe quel onglet vers l'onglet "BdD"

A moins de créer un code par exemple un double clic sur une cellule précise...te renvoi à l'onglet "BdD!....

Re,

C'est nettement mieux ainsi, je te le dis

Sub InsérerLien()
  Dim Sht As Worksheet
  ' Pour chaque feuille du lcasseur
  For Each Sht In ThisWorkbook.Sheets
    ' SI la feuille n'est pas celle de la BDD
    If Sht.Name <> "BDD" Then
      ' Mettre un lien Hypertexte dans A1
      Sht.Hyperlinks.Add Anchor:=Sht.Range("A1"), Address:="", SubAddress:="BDD!A1", TextToDisplay:="Accès BDD"
    End If
  Next Sht
End Sub

@+

SUPER, ça fonctionne nickel! merci bcp BrunoM45

@++

Bonjour Galiax, BrunoM45

Tu peux aussi faire avec ce code. Dans Workbook

Private Sub Workbook_Open()
Application.Onkey "^," , "AppelBdD"
End Sub

Private Sub Workbook_BeforeClose(Cancel as Boolean)
Application.Onkey "^," , ""
End Sub

Puis dans un module

Sub AppelBdD()
Sheets("BdD").select
End Sub

Ensuite enregistre ton classeur, quitte le. Puis rouvre le.

En appuyant sur la Touche Ctrl (maintenue) et la touche , (virgule) tu iras directement sur ta feuille BdD

Bons tests, bonne continuation.

Bonjour X Cellus,

Top aussi ton code, merci

@++