Bonjour,
Je viens de nouveau vers vous car j'ai fait une grosse bétisse !!!
Je voulais par l'intermédiaire du click droit, avoir un nouveau controls dans ce menu. J'ai donc cherché sur le net et j'ai trouver ça :
Dans thisworkbook
Dans un module :
oui très bien ! Ca fonctionne. Mais comme j'ai fait plusieur click droit, il m'en à ajouté autant ET MAINTENANT JE NE SAIS PAS COMMENT SUPPRIMER TOUT CA !!! Dès que j'ouvre un fichier, il y a pas moins de 25 controls !!!
S'il vous plait : A L'AIDE !
Je viens de nouveau vers vous car j'ai fait une grosse bétisse !!!
Je voulais par l'intermédiaire du click droit, avoir un nouveau controls dans ce menu. J'ai donc cherché sur le net et j'ai trouver ça :
Dans thisworkbook
Code:
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
For i = LigHaut To LigBas
With Application.CommandBars("cell").Controls _
.Delete(Type:=msoControlButton, before:=1, temporary:=True)
.Tag = 1
.Caption = "Essai"
.OnAction = Essai
End With
Next i
End Sub
Dans un module :
Code:
Sub Essai()
Dim nb As Byte
nb = CommandBars.ActionControl.Tag
ActiveCell.Value = Cells(nb, Cells(1, 108).Value).Value
End Sub
oui très bien ! Ca fonctionne. Mais comme j'ai fait plusieur click droit, il m'en à ajouté autant ET MAINTENANT JE NE SAIS PAS COMMENT SUPPRIMER TOUT CA !!! Dès que j'ouvre un fichier, il y a pas moins de 25 controls !!!
S'il vous plait : A L'AIDE !
Dernière édition: