Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Déplacer une barre d'outil

Déplacer une barre d'outil

5 réponses
Avatar
René Delcourt
Bonsoir,
en VBA, comment fait on pour déplacer une barre d'outil indépendante dans
l'espace habituel des barres d'outils?
--
René Delcourt
Signaler un problème avec ce contenu

5 réponses

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
jps
bonjour rené

With Application.CommandBars.Add("NomDeLaBarre", msoBarFloating, False,
True)
.Left = 340
.Top = 90
ne te reste plus qu'à faire des essais pour trouver les bonnes distances à
partir de la gauche et du haut de ta feuille

HTH
jps




"René Delcourt" a écrit dans le message de news:

Bonsoir,
en VBA, comment fait on pour déplacer une barre d'outil indépendante dans
l'espace habituel des barres d'outils?
--
René Delcourt


Avatar
michdenis
Bonjour René,


With Application.CommandBars("Denis")
' Place la barre en haut
.Position = msoBarTop
'Place la barre au même niveau que la barre Référence utilisée
.RowIndex = Application.CommandBars("Standard").RowIndex
'Place la barre à l'extrémité de la barre Standard
.Left = Application.CommandBars("Standard").Width
'OU
'Et pour placer d'abord en premier ta barre suivie de la barre standard
'.Left =0
End With


Salutations!




"René Delcourt" a écrit dans le message de news:
Bonsoir,
en VBA, comment fait on pour déplacer une barre d'outil indépendante dans
l'espace habituel des barres d'outils?
--
René Delcourt
Avatar
René Delcourt
Merci, c'est top.
Cependant, quand je glisse la barre à la main, elle s'intègre dans une barre
qui apparaît automatiquement.
A l'initialisation, j'ai caché toutes les barres (enableúlse).
Tu vois autre chose?
--
René Delcourt



bonjour rené

With Application.CommandBars.Add("NomDeLaBarre", msoBarFloating, False,
True)
.Left = 340
.Top = 90
ne te reste plus qu'à faire des essais pour trouver les bonnes distances à
partir de la gauche et du haut de ta feuille

HTH
jps




"René Delcourt" a écrit dans le message de news:

Bonsoir,
en VBA, comment fait on pour déplacer une barre d'outil indépendante dans
l'espace habituel des barres d'outils?
--
René Delcourt






Avatar
René Delcourt
Merci, c'est TOP!
--
René Delcourt



Bonjour René,


With Application.CommandBars("Denis")
' Place la barre en haut
.Position = msoBarTop
'Place la barre au même niveau que la barre Référence utilisée
.RowIndex = Application.CommandBars("Standard").RowIndex
'Place la barre à l'extrémité de la barre Standard
.Left = Application.CommandBars("Standard").Width
'OU
'Et pour placer d'abord en premier ta barre suivie de la barre standard
'.Left =0
End With


Salutations!




"René Delcourt" a écrit dans le message de news:
Bonsoir,
en VBA, comment fait on pour déplacer une barre d'outil indépendante dans
l'espace habituel des barres d'outils?
--
René Delcourt





Avatar
jps
bon, ben heureusement que l'incontournable michel était là pour prendre le
relais, rené...
jps

"René Delcourt" a écrit dans le message de
news:
Merci, c'est TOP!
--
René Delcourt



Bonjour René,


With Application.CommandBars("Denis")
' Place la barre en haut
.Position = msoBarTop
'Place la barre au même niveau que la barre Référence utilisée
.RowIndex = Application.CommandBars("Standard").RowIndex
'Place la barre à l'extrémité de la barre Standard
.Left = Application.CommandBars("Standard").Width
'OU
'Et pour placer d'abord en premier ta barre suivie de la barre
standard


'.Left =0
End With


Salutations!




"René Delcourt" a écrit dans le message de news:



Bonsoir,
en VBA, comment fait on pour déplacer une barre d'outil indépendante
dans


l'espace habituel des barres d'outils?
--
René Delcourt