Erreur de compilation

J'ai un message d'erreur sur ce module, faut dire que je débute totalement. si une personne peut m'aider?

1- message : erreur de compilation

2- message: variable non définie

Sub CreerBoutonsNavigation()

Dim ws As Worksheet

Dim btn As Button

Dim leftPos As Integer: leftPos = 10

Dim topPos As Integer: topPos = 10

Dim btnWidth As Integer: btnWidth = 120

Dim btnHeight As Integer: btnHeight = 30

' Créer des boutons sur chaque feuille

Dim feuilles As Variant

feuilles = Array("Classement", "Équipes", "Joueurs", "Passeurs", "Calendrier", "Historique")

Dim i As Integer

For i = LBound(historique) To UBound(historique)

Set ws = ThisWorkbook.Sheets(historique(i))

ws.Buttons.Delete ' Supprimer les anciens boutons

edit moderation : code mis entre balises "code", via le bouton </> sur la barre de menu du message. Merci d'y penser à l'avenir.

bonjour,

ta variable "historique" n'est pas définie. Je suppose que tu voulais utiliser la variable "feuilles".

Bonjour et bienvenu sur le forum

feuilles = Array("Classement", "Équipes", "Joueurs", "Passeurs", "Calendrier", "Historique")
ensuite du l'appelle historique...

A+ François

Bonjour,

Merci pour ce retour rapide.

Non Historique, c'est pour ça que je ne comprends pas

Re,

Un fichier est TOUJOURS le bienvenu...

Dans ce cas:

historique= Array("Classement", "Équipes", "Joueurs", "Passeurs", "Calendrier", "Historique")

n'oublie pas: dim historique au lieu de dim feuilles

mais ça risque de porter à confusion car tu as une feuille qui s'appelle historique...

A+ François

Merci merci,

je vais tester. concernant la feuille eh benh y en a pas :). d'où le souci.

bonne soirée

Bonjour

Etant dit que tu ne veux pas joindre de fichier....

Ci joint ma solution

A+ François

Bonjour François,

Encore merci pour tes réponses rapide.

désolé, pour le fichier.

très bonne journée.