VBA projet: Lancer une macro via click
#1
Aspirant XLPages

Inscription: 07/03/2008
De Amiens

Messages: 33

Système d'exploitation:
PC
Version Excel utilisée:
2002,2003,2010
Posté le : 23-07-2010 16h09
Bonjour,

J'étudie la faisabilité de faire sous excel (2003) un programme pouvant servir à l'enregistrement de parties de jeu de dames.

J'ai réalisé un damier avec les pions par l'utilisation d'une police particulière (Draughts Ultrech).
Les lettres (i,e,x,c,f) représentent les cases vides et les pions.
L'initialisation se fait en VBA via un bouton (pas trop de problème).

La suite du projet est de pouvoir effectuer le déplacement d'une pièce et avoir sa notation (dit PDN)
Case départ et case d'arrivée.

Dans le fichier, j'ai proposé le déplacement 32 28.

En VBA est-il possible de lancer une macro à partir d'un clic droit de la souris  sur une portion de zone nommée (ici Damier)?

Ou faut-il utiliser uniquement le double click gauche avec Target?



Merci de me donner votre éclairage et des idées.

Amicalement JackyAmiens

P.S: Le programme gratuit Dam2.2 fait cela très bien, le projet est plus un exercice de style et de manipulation VBA.

Pièce jointe:
zip PdnDamier.zip   [ Taille: 35.10 Ko - Téléchargements: 787 ]
Hors Ligne
Rapport   Haut 

Re: VBA projet: Lancer une macro via click
#2
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 23-07-2010 23h43
Bonsoir JackyAmiens, le Forum,

Citation :
JackyAmiens a écrit :
En VBA est-il possible de lancer une macro à partir d'un clic droit de la souris  sur une portion de zone nommée (ici Damier)?

Ou faut-il utiliser uniquement le double click gauche avec Target?



Merci de me donner votre éclairage et des idées.

Amicalement JackyAmiens

P.S: Le programme gratuit Dam2.2 fait cela très bien, le projet est plus un exercice de style et de manipulation VBA.


Concernant le clic droit, la piste à suivre est celle-ci :

DANS LE MODULDE DE CODE DE LA FEUIL1
Option Explicit

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("Damier")) Is Nothing Then
        'On désactive le menu contextuel (clic droit) de cellule
        Cancel = True
        'Le code de traitement ici...
        MsgBox "Clic droit sur le 'Damier'"
    End If
End Sub

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: VBA projet: Lancer une macro via click
#3
Aspirant XLPages

Inscription: 07/03/2008
De Amiens

Messages: 33

Système d'exploitation:
PC
Version Excel utilisée:
2002,2003,2010
Posté le : 26-07-2010 14h53
Bonjour Didier,


J'avais utilisé cette instruction sans parvenir à inhiber le menu contextuel de la cellule.

Je clôture donc le sujet.

Et te remercie pour la rapidité de ta réponse.

Amicalement, JB


Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes