annee 2017

EXCEL ANNEE 2017

L'heure est venue de vous presenter

Une excel et bonne annee 2017 !

De la part de toute l equipe de VeriTi

Image 1

Bienvenue

sur le site des amis d'Excel

excel.veriti.net ou fr

Image 2

Musee

Visitez le "Musee VeriTi" 24h/24 - 7j/7, des "pepites" vous y attendent

Voir la suite
Image 3

Hommage

Thierry POURTIER alias 'Ti'
s'en est alle brutalement le samedi 13 novembre 2010...

Voir la suite
Image 4

Historique

Juillet 2013 : A l'occasion du 10eme anniversaire de VeriTi, j'ai décide de réparer et de remettre en ligne le site, avec une nouvelle version plus structurée tout en gardant les mêmes fichiers Excel

Voir la suite

Membre

+ Enregistrement
Articles >Souris > Liste de choix perso

Liste de choix perso

Publié par veriland le 07-Aug-2013 16:30 (1536 lectures)

clic souris
 

partie à placer dans ThisWorkbook

module


Option Explicit
'VériTi Juillet 2004
'créer le menu contextuel à l'ouverture
Private Sub Workbook_Open()
    Call Creer_MenuContextuel
End Sub

'enlever le menu contextuel à la fermeture
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call Enleve_MenuContextuel
End Sub


'partie à placer dans un module de feuille
 
module


Option Explicit

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
' si clic droit fait dans la zone data de Sheet1 (feuille1)
      If Union(Target.Range("A1"), Range("data")).Address = Range("data").Address Then
            'affiche menu souris avec des options définies avec CreateShortcut
            CommandBars("MenuContextuel").ShowPopup
            Cancel = True
      End If
End Sub

'partie à placer dans un module standard 
module




Option Explicit

'VériTi Juillet 2004

Sub Creer_MenuContextuel()
' procédure qui va afficher le menu "clic droit souris"
Dim MaBarre As CommandBar
Dim MonTitre As CommandBarControl

    Set MaBarre = CommandBars.Add _
                  (Name:="MenuContextuel", Position:=msoBarPopup, Temporary:=True)

    Set MonTitre = MaBarre.Controls.Add(Type:=msoControlButton)
    With MonTitre
        .Caption = "&Format Nombre..."
        .OnAction = "AfficheFormatNombre"
        .FaceId = 1554    '  icône
    End With

    Set MonTitre = MaBarre.Controls.Add(Type:=msoControlButton)
    With MonTitre
        .Caption = "&Alignement..."
        .OnAction = "AfficheFormatAlignement"
        .FaceId = 217    '  icône
    End With

    Set MonTitre = MaBarre.Controls.Add(Type:=msoControlButton)
    With MonTitre
        .Caption = "&Police..."
        .OnAction = "AfficheFormatPolice"
        .FaceId = 291    '  icône
    End With

    Set MonTitre = MaBarre.Controls.Add(Type:=msoControlButton)
    With MonTitre
        .Caption = "&Bordures..."
        .OnAction = "AfficheFormatBordure"
        .FaceId = 149    '  icône
        .BeginGroup = True
    End With

    Set MonTitre = MaBarre.Controls.Add(Type:=msoControlButton)
    With MonTitre
        .Caption = "&Remplissage..."
        .OnAction = "AfficheFormatRemplissage"
        .FaceId = 1550    '  icône
    End With

    Set MonTitre = MaBarre.Controls.Add(Type:=msoControlButton)
    With MonTitre
        .Caption = "Pr&otection..."
        .OnAction = "AfficheFormatProtection"
        .FaceId = 2654    '  icône
    End With
End Sub

'Ici pour afficher Userform Format Nombre
Sub AfficheFormatNombre()
    Application.Dialogs(xlDialogFormatNumber).Show
End Sub

'Ici pour afficher Userform Format Nombre
Sub AfficheFormatAlignement()
    Application.Dialogs(xlDialogAlignment).Show
End Sub

'Ici pour afficher Userform Format Police
Sub AfficheFormatPolice()
    Application.Dialogs(xlDialogFormatFont).Show
End Sub

'Ici pour afficher Userform format Bordure cellules
Sub AfficheFormatBordure()
    Application.Dialogs(xlDialogBorder).Show
End Sub

'Ici pour afficher Userform Couleur de remplissage
Sub AfficheFormatRemplissage()
    Application.Dialogs(xlDialogPatterns).Show
End Sub

'Ici pour afficher Userform protection cellule
Sub AfficheFormatProtection()
    Application.Dialogs(xlDialogCellProtection).Show
End Sub

Sub Enleve_MenuContextuel()
    On Error Resume Next
    CommandBars("MenuContextuel").Delete
End Sub


Naviguer à travers les articles
Procédures évènementielles Article suivant
Note 0.00/5
Note: 0.0/5 (0 votes)
Les votes sont désactivés !
Les commentaires appartiennent à leurs auteurs. Nous ne sommes pas responsables de leur contenu.
Auteur Commentaire en débat

Astuces
Sélection d'articles par Catégorie
Userform
Feuille
Cel / Col / Lig
Souris
Impression
Images
Commentaires
Evènements
Fichier
Trucs et astuces
Divers
FAQ Acyd
carte des membres

Carte des membres

Menu Principal
Haut de page des téléchargements
Copyright 2013 Powered by XOOPS © 2001-2013