plus de clic droit

j'ai omis de vous dire que j'ai reinstallé office et que le pb persiste.
Merci de votre aide


Anne-Marie

"Donnazac" <c-dam@NOSPAMclub-internet.fr> a écrit dans le message de news:
uiNBknV3EHA.3624@TK2MSFTNGP14.phx.gbl...

Bonsoir
Je n'ai plus de clic droit quand je clique sur une entête ou un n° de
ligne. Comment faire pour le remettre?
Merci

amicalement
Anne-Marie

Bonsoir Donnazac,

Un peu te code pour t'aider :

' *******************
Option Explicit

Sub ListeBO()
Dim BO As CommandBar, Lig As Integer, Col As Byte
Workbooks.Add
Cells(1, "A") = "Nom de la barre"
Cells(1, "B") = "Nom local"
Cells(1, "C") = "Index"
Cells(1, "D") = "Visible"
Cells(1, "E") = "Active"
Cells(1, "F") = "Protection"
Cells(1, "G") = "Type"
Rows(1).Font.Bold = True
Lig = 1
For Each BO In CommandBars
Lig = Lig + 1
Col = 1
Cells(Lig, Col) = BO.Name: Col = Col + 1
Cells(Lig, Col) = BO.NameLocal: Col = Col + 1
Cells(Lig, Col) = BO.Index: Col = Col + 1
Cells(Lig, Col) = BO.Visible: Col = Col + 1
Cells(Lig, Col) = BO.Enabled: Col = Col + 1
Cells(Lig, Col) = BO.Protection: Col = Col + 1
Cells(Lig, Col) = BO.Type: Col = Col + 1
Next BO
Columns.AutoFit
End Sub

Sub ReactiverBO()
Dim wIndex
wIndex = 14 ' ou wIndex = "Visual Basic"
CommandBars(wIndex).Enabled = True
CommandBars(wIndex).Visible = True
End Sub
' ************************

Cette procédure te liste toutes les barres avec quelques propriétés (visible,enabled...)
Tu cherches la ou les barres incriminées, puis tu l'actives en utilisant la macro ReactiverBO après avoir placée le
numéro de l'index ou le nom anglais de la barre d'outils dans la variable wIndex

A+
Benead
XL97

Donnazac a écrit:

j'ai omis de vous dire que j'ai reinstallé office et que le pb persiste.
Merci de votre aide


Anne-Marie

"Donnazac" <c-dam@NOSPAMclub-internet.fr> a écrit dans le message de news:
uiNBknV3EHA.3624@TK2MSFTNGP14.phx.gbl...

Bonsoir
Je n'ai plus de clic droit quand je clique sur une entête ou un n° de
ligne. Comment faire pour le remettre?
Merci

amicalement
Anne-Marie

Bonsoir
Bravo ca a marché , vraiment pro Merci

--
amitiés
Anne-Marie

"Benead" <NoSpam-benead.forumxl@club-internet.fr> a écrit dans le message de
news: 41B76852.8070007@club-internet.fr...

Bonsoir Donnazac,

Un peu te code pour t'aider :

' *******************
Option Explicit

Sub ListeBO()
Dim BO As CommandBar, Lig As Integer, Col As Byte
Workbooks.Add
Cells(1, "A") = "Nom de la barre"
Cells(1, "B") = "Nom local"
Cells(1, "C") = "Index"
Cells(1, "D") = "Visible"
Cells(1, "E") = "Active"
Cells(1, "F") = "Protection"
Cells(1, "G") = "Type"
Rows(1).Font.Bold = True
Lig = 1
For Each BO In CommandBars
Lig = Lig + 1
Col = 1
Cells(Lig, Col) = BO.Name: Col = Col + 1
Cells(Lig, Col) = BO.NameLocal: Col = Col + 1
Cells(Lig, Col) = BO.Index: Col = Col + 1
Cells(Lig, Col) = BO.Visible: Col = Col + 1
Cells(Lig, Col) = BO.Enabled: Col = Col + 1
Cells(Lig, Col) = BO.Protection: Col = Col + 1
Cells(Lig, Col) = BO.Type: Col = Col + 1
Next BO
Columns.AutoFit
End Sub

Sub ReactiverBO()
Dim wIndex
wIndex = 14 ' ou wIndex = "Visual Basic"
CommandBars(wIndex).Enabled = True
CommandBars(wIndex).Visible = True
End Sub
' ************************

Cette procédure te liste toutes les barres avec quelques propriétés
(visible,enabled...)
Tu cherches la ou les barres incriminées, puis tu l'actives en utilisant
la macro ReactiverBO après avoir placée le numéro de l'index ou le nom
anglais de la barre d'outils dans la variable wIndex

A+
Benead
XL97

Donnazac a écrit:

j'ai omis de vous dire que j'ai reinstallé office et que le pb persiste.
Merci de votre aide


Anne-Marie

"Donnazac" <c-dam@NOSPAMclub-internet.fr> a écrit dans le message de
news: uiNBknV3EHA.3624@TK2MSFTNGP14.phx.gbl...

Bonsoir
Je n'ai plus de clic droit quand je clique sur une entête ou un n° de
ligne. Comment faire pour le remettre?
Merci

amicalement
Anne-Marie