|
JackyAmiens
|
VBA projet: Lancer une macro via click |
|
Novice XLpages
Inscrit(e):
07-03-2008
De Amiens
Groupe :
Utilisateurs enregistrés
Version(s) Excel:
2002,2003
|
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.
|
|
|
|
myDearFriend!
|
Re: VBA projet: Lancer une macro via click |
|
Webmestre
Inscrit(e):
18-05-2006
De Saône-et-Loire (71)
Groupe :
Webmestre
Version(s) Excel:
97, 2000, 2002, 2003, 2007
|
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  Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
|
|
JackyAmiens
|
Re: VBA projet: Lancer une macro via click |
|
Novice XLpages
Inscrit(e):
07-03-2008
De Amiens
Groupe :
Utilisateurs enregistrés
Version(s) Excel:
2002,2003
|
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
|
|
|
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 pouvez voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.
PdnDamier.zip
Transférer
![Open in new window](javascript:CaricaFoto("/uploads/Image/mDF.gif");)
