Bonjour le Forum
Alors voila……, dans vba project/thisworbook, j’ai ce code (trouver sur le fil)_ depuis un moment et tout marchait tres bien
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' On remet le menu par défaut avant de fermer
Application.CommandBars("cell").Reset
End Sub
Sub MenuPerso()
With Application.CommandBars("cell")
' Clic droit par défaut
.Reset
' Efface toutes les options
For i = 1 To .Controls.Count
.Controls(i).Visible = False
Next i
' Ajoute des options
With .Controls.Add(msoControlButton)
.Caption = "Couleur remplissage vert"
.FaceId = 6729
.OnAction = "RemplirVert"
End With
' Ajoute autant d'options que nécessaire.
End With
End Sub
Sub RemplirVert()
ActiveCell.Interior.Color = vbGreen
End Sub
Et je ne sais pas quelle manip j’ai effectuée, mais je n’arrive plus à recuperer le menu de base du clic droit sur excel
Pouvez vous m aider ?
Alors voila……, dans vba project/thisworbook, j’ai ce code (trouver sur le fil)_ depuis un moment et tout marchait tres bien
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' On remet le menu par défaut avant de fermer
Application.CommandBars("cell").Reset
End Sub
Sub MenuPerso()
With Application.CommandBars("cell")
' Clic droit par défaut
.Reset
' Efface toutes les options
For i = 1 To .Controls.Count
.Controls(i).Visible = False
Next i
' Ajoute des options
With .Controls.Add(msoControlButton)
.Caption = "Couleur remplissage vert"
.FaceId = 6729
.OnAction = "RemplirVert"
End With
' Ajoute autant d'options que nécessaire.
End With
End Sub
Sub RemplirVert()
ActiveCell.Interior.Color = vbGreen
End Sub
Et je ne sais pas quelle manip j’ai effectuée, mais je n’arrive plus à recuperer le menu de base du clic droit sur excel
Pouvez vous m aider ?