Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Menu click droit sur onglet

Menu click droit sur onglet

16 réponses
Avatar
Gaspareau
Bonjour,

Je voudrais savoir si c'est possible de modifier le menu
qui affiche lorsqu'on clique avec le bouton droit
de la souris sur l'onglet. (dissocier, copier, déplacer,
etc..)

Je voudrais y ajouter la commande imprimer

C'est faisable ??

Merci

--
Gaspareau

Règle anti spam
Pour réponse personnelle enlever un d au
début de mon adresse courriel
Signaler un problème avec ce contenu

6 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
1 2
Avatar
isabelle
en anglais et francais,

Sub ListeCommandBars()
x = 1
For Each cb In CommandBars
Range("a" & x) = cb.Name
Range("b" & x) = cb.NameLocal
x = x + 1
Next
End Sub

isabelle


Présentement ça fonctionne très très bien

une question:

Si je voulais voir apparaître le menu complet avec choix
d'imprimante (ctrl P)
au lieu de directement imprimer, je changerais la commande
imprime par : ????

Merci

--
Gaspareau

Règle anti spam
Pour réponse personnelle enlever un d au
début de mon adresse courriel

"AV" a écrit dans le message de
news:
je croyais que c'était sur la CommandBars("Ply") que
Gaspareau voulait


ajouter imprime (?)


Pffffffffff....
Heureusement que tu surveilles !
:-)
Remplacer "Cell" par "Ply" donc !

AV







Avatar
gilbert
Bonjour AV

Merci AV pour la réponse et pour le code

@++

--
supprimer 'stpspam' à mon adresse de messagerie pour me joindre directement
. SVP

"AV" a écrit dans le message de news:
#
Il y a-t-il une formule pour connaître tous les noms des commandbars de
l'application


Une formule ?

Sub zz_CmdB()
On Error Resume Next
For i = 1 To 1000
x = Application.CommandBars(i).Name
If Err.Number = 0 Then
Cells(i, 1) = x
Cells(i, 2) = i
End If
Next
End Sub

AV





Avatar
gilbert
Bonjour Isabelle

merci pour la réponse

Gilbert

--
supprimer 'stpspam' à mon adresse de messagerie pour me joindre directement
. SVP
--

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

en anglais et francais,

Sub ListeCommandBars()
x = 1
For Each cb In CommandBars
Range("a" & x) = cb.Name
Range("b" & x) = cb.NameLocal
x = x + 1
Next
End Sub

isabelle


Présentement ça fonctionne très très bien

une question:

Si je voulais voir apparaître le menu complet avec choix
d'imprimante (ctrl P)
au lieu de directement imprimer, je changerais la commande
imprime par : ????

Merci

--
Gaspareau

Règle anti spam
Pour réponse personnelle enlever un d au
début de mon adresse courriel

"AV" a écrit dans le message de
news:
je croyais que c'était sur la CommandBars("Ply") que
Gaspareau voulait


ajouter imprime (?)


Pffffffffff....
Heureusement que tu surveilles !
:-)
Remplacer "Cell" par "Ply" donc !

AV









Avatar
AV
Tu as bien mis dans le module de ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Ply").Reset
End Sub

AV
Avatar
Gaspareau
Oui voici le code copié intégrallement de mon fichier:

Private Sub Workbook_Open()
With
Application.CommandBars("Ply").Controls.Add(msoControlButton
)
.Caption = "Imprimer"
.BeginGroup = True
.FaceId = 4
.OnAction = "Impression"
End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Ply").Reset
End Sub

Et rien à faire il ne veut pas faire le reset sur
beforeclose
pour remettre correct je dois le mettre la commande de reset
sur workbook open mais il ne veut pas faire les deux à
l'ouverture
alors je dois effacer le code ajoutant le menu.


--
Gaspareau

Règle anti spam
Pour réponse personnelle enlever un d au
début de mon adresse courriel


"AV" a écrit dans le message de
news:
Tu as bien mis dans le module de ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Ply").Reset
End Sub

AV




Avatar
Gaspareau
Ok j'ai trouvé la solution voici le code corrigé
pour que ça fonctionne ici :


Private Sub Workbook_Open()
Application.CommandBars("Ply").Reset
With
Application.CommandBars("Ply").Controls.Add(msoControlButton
)
.Caption = "Imprimer"
.BeginGroup = True
.FaceId = 4
.OnAction = "Impression"
End With
End Sub

Merci beaucoup pour l'aide apportée

--
Gaspareau

Règle anti spam
Pour réponse personnelle enlever un d au
début de mon adresse courriel


"AV" a écrit dans le message de
news:
Tu as bien mis dans le module de ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Ply").Reset
End Sub

AV




1 2