barre de menu des feuilles selon monique et celeda

[roberto]

salut,

encore moi.. souhaitant créer un menu pour naviguer dans les feuilles de mon fichier, j'ai appliqué la méthode de celeda dans autres formules III, ne comprenant rien, j'ai fait un copier/coller, où j'ai adapté la formule à mon nombre de feuilles et aux nom de mes feuilles. malheureusement, ma barre n'apparaît pas. lorsque je fais un audit (debogage) du tout, sur le module comprenant la macro, j'ai un message d'erreur "erreur de compilation variable non définie" à l'endroit qui suit : la 1ere ligne apparaît en jaune
et la dernière expression est surlignée en gris (captionbarre)
je ne comprend pas... dans le module de AFIII, la synthaxe est rigoureusement la même.... help me please (je tourne sous WXP avec office xp=

Sub CreeBarreMenuDroite()
Dim LBar As CommandBar, LBouton As CommandBarPopup
Dim LitemBouton As CommandBarButton
Dim StyleBouton As Long
SupprimeBarreMenuDroite
On Error Resume Next
Set LBar = CommandBars(BarreDroite)
On Error GoTo 0
If Not LBar Is Nothing Then Exit Sub

StyleBouton = msoButtonCaption

Set LBar = CommandBars.Add(Name:=BarreDroite, _
Position:=msoBarRight, temporary:=True)

Set LBouton = LBar.Controls.Add(Type:=msoControlPopup)
With LBouton
.Caption = CaptionBarre

 

[roberto]

bon ben oui, voilà quoi, je me réponds à moi même !! l

'obstination qui caractérise le taureau que je suis a fini par payer.....

vous voulez la réponse ? facile, fallait placer les lignes destinées à nommer les boutons AVANT les lignes donnant les instructions !!

bien que je ne maîtrise ps encore le vocabulaire pour programmer, je commence à comprendre l'esprit du fonctionnement général !! je suis tout fier.

merci encore une fois donc à toutes celles et ceux qui donnent ici l'exemple..

ciao tutti

roberto