Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Barre en haut : marche pas, en bas marche !?

Barre en haut : marche pas, en bas marche !?

1 réponse
Avatar
dvincent
Bonjour, je comprend pas, depuis vendredi je m'arrache les cheveux sur une
phénomène étrange sous Excel97

J'ai un sub qui est appelé depuis le workbook, dans ce sub j'ai la création
d'une barre de menus.

Si je défini celle-ci en bas elle se charge tout le temps, tandis que si je
la place en haut elle ne se charge qu'en forcant ( activer desactiver via
Affichage / Outils / Nom de ma barre )

Voici le code, je ne vois pas ce qui peut clocher.

Merci de votre aide, car avant de passer à la prochaine étape de mon
développement je dois pouvoir la faire fonctionner.

Dim BarNego As CommandBar

Set BarNego = Application.CommandBars.Add(Name:=NomBarMenu,
Position:=msoBarTop, MenuBar:=False, Temporary:=True)

With BarNego
.Enabled = True
.Visible = True
.Protection = msoBarNoChangeDock
.Protection = msoBarNoChangeVisible
.Protection = msoBarNoMove

' == QUALIFICATION
With .Controls.Add(msoControlPopup)
.Caption = "Qualification"

etc....

Tout les with sont bien fermés.
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
dvincent
Une petite info de plus, dans Affichage/Barre d'outils
je vois bien ma barre en actif ( car coché devant )


"dvincent" a écrit dans le message de news:

Bonjour, je comprend pas, depuis vendredi je m'arrache les cheveux sur une
phénomène étrange sous Excel97

J'ai un sub qui est appelé depuis le workbook, dans ce sub j'ai la
création

d'une barre de menus.

Si je défini celle-ci en bas elle se charge tout le temps, tandis que si
je

la place en haut elle ne se charge qu'en forcant ( activer desactiver via
Affichage / Outils / Nom de ma barre )

Voici le code, je ne vois pas ce qui peut clocher.

Merci de votre aide, car avant de passer à la prochaine étape de mon
développement je dois pouvoir la faire fonctionner.

Dim BarNego As CommandBar

Set BarNego = Application.CommandBars.Add(Name:=NomBarMenu,
Position:=msoBarTop, MenuBar:úlse, Temporary:=True)

With BarNego
.Enabled = True
.Visible = True
.Protection = msoBarNoChangeDock
.Protection = msoBarNoChangeVisible
.Protection = msoBarNoMove

' == QUALIFICATION
With .Controls.Add(msoControlPopup)
.Caption = "Qualification"

etc....

Tout les with sont bien fermés.