R
roberto
Guest
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
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