Impossible de mettre en place les boutons

Bonjour à tous,

Après des tentatives je n'arrive à faire fonctionner les 2 boutons

le bouton 1 (fournisseur) de la feuille1 vers le bouton 2(Accueil de la feuille 2)

module 1 Sub command1_Click()

Sheets("fournisseur").Select

End Sub

module2 Sub command1_Click()

Sheets("accueil").Select

End Sub

Je ne vois pas l'erreur

Merci encore

EQUIV38

Dur Dur l'apprentissage mais passionnant

Bonjour,

Tu ne veux pas plutôt passer par des Shapes sur lesquels placer des liens ?

Merci encore

Je suis partant mais je ne connais pas cette fonction

Si il y a un autre moyen plus simple je suis preneur

Après je reviendrai sur Shape pour l'étudier

EQUIV38

Bonjour EQUIV38,

Tu as un bouton nommé fournisseur sur ta feuille Acceuil. Applique lui simplement cette macro.

Sub AppelFRN()
Sheets("fournisseur").select
End sub

Tu as un bouton nommé acceuil sur ta feuille Fournisseur. Applique lui simplement cette macro.

Sub AppelACC()
Sheets("acceuil").select
End sub

Le programme long que tu présentes est un code qui permet de créer des boutons. Une fois qu'ils ont été créés c'est suffisant.

Passe plus tôt par l'éditeur (onglet développeur), puis insérer bouton(s).

Bonne continuation.