Simuler clic droit avec VBA

[aubelix]

Bonsoir à tous.

J'aurai voulu connaître le code pour simuler un clic droit de souris.
Comment enchaîner un clic droit après un déplacement dans une cellule
Exixte-t-il une aide pour toutes diverses fonctions (F1 à F12, Echap, clix gauche, droit...) ?

Merci pour votre aide.

 

[Cerber]

Salut et bonjour et bonne année le forum!!!

Ta question ou plutôt ton objectif n'est pas très clair...
Utilise l'enregistreur de macro et achève ta succession d' "opérations" dont le fameux clic droit... tu verras forcément la fonction convoitée dans le code.

J'éspère que tu trouveras ton bohneur, sinon précise ta question!

Bonne journée!

 

[michel]

bonsoir Aubelix , bonsoir Cerber

Aubelix , j'ai interprété ( peut etre à tort ) que tu souhaitais afficher directement le menu contextuel du clic droit

Sub afficherMenuContextuel()
Application.CommandBars("Cell").ShowPopup
End Sub

j'espere que cela répondra à ta demande


bonne soiree
MichelXld

 

[aubelix]

Bonsoir Cerber, Michel et tout le forum.
Merci pour vos réponses.

Pour être plus précis, je fais de la saisie et le déplacement se fait automatiquement de x cellules à droite.
Dans cette cellule, j'ai une liste de validation.
J'aurais aimé avec "Sendkeys" simuler plus exactement un clic de souris pour afficher les données dans ma cellule liée à une liste de validation.
Tout ça pour enchaîner la saisie.
J'espère avaoir été clair.
Par avance, merci pour votre aide

 

[Eric_C]

Bonsoir le forum
Bonsoir Aubélix, Cerber & Michel

Pour commencer, meilleurs à vous trois & à tout le monde

Cette soluce n'a que d'efficience que si tes déplacements entre tes listes de validations sont identiques (Toutes les 2 ou 3 ou ... cellules). Si les déplacements ne sont pas réguliers alors c'est rapé.
La 1ère sélection dans la liste de validations se fait de façon manuelle puis le déplacement se fait (dans l'ex.) toutes les 2 colonnes et active le déroulement de ta liste.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Cells(Target.Row, Target.Column + 2).Activate ' Ici toutes les 2 cells
SendKeys "%{down}"
End Sub

Donc pour être clair : Une liste unique qui est copiée dans les cells B, D, F, H ..... La 1ère sélection (manuelle) active le déplacement de 2 cells vers la droite et déclenche le déroulement de ta prochaine liste.

Si j'ai bien saisi ?

@ + Eric C

 

[aubelix]

Bonjour Eric et le Forum.
Merci pour ta réponse. Tu as bien saisi et toi aussi tu as trouvé la solution à mon problème.
Bon diamnche à tous.