Bonjour le forum
Bonjour Arsène_Lupin, Michel & Ti
Pas faute d'avoir cherché à remettre en ordre ton code mais j'abandonne. Je ne suis qu'un tout petit joueur d'XL. Déjà tu dois placer ton Next i avant de lancer l'Action Rechercher. Enfin là n'est pas le but du sujet. Par contre, après recherches dans mes archives, j'ai trouvé ton bonheur que tu dois développer et pourquoi pas mettre en ligne à l'issue (Tu me fais signe; je suis fainéant de nature et ai plein d'activités annexes, je te quitte pour aller refaire le barreau (cassé) d'une chaise de cuisine sur mon tour à bois ... alors tu vois ... pas le temps).
Ce code dont l'auteur est anonyme mais que je salue au passage, réalise une partie de ce que tu désires :
Sub CréerBoutonCombo()
Dim bcb As Office.CommandBarControl
Set bcb = Application.CommandBars(4).Controls. _
Add(msoControlComboBox, , , 1)
With bcb
.Caption = "ComboFeuilles"
For i = 1 To Sheets.Count
.AddItem Sheets(i).Name
Next
.Text = .List(1)
.OnAction = "ActiveLaFeuille"
End With
End Sub
Sub DelBoutonCombo()
Application.CommandBars(4). _
Controls("ComboFeuilles").Delete
End Sub
Sub ActiveLaFeuille()
Sheets(Application.CommandBars(4). _
Controls("ComboFeuilles").Text).Select
End Sub
Donc à adapter à ton projet & à remettre (STP) en ligne sur le même post à l'issue. T'en remerciant par anticipation.
@++ Eric C