Placer un userform à droite et en bas de la cellule active

[aubelix]

Bonjour à tous.
J'ai effectué des recherches, mais pas de réponse à mon problème qui est le suivant :
Lorque je clique avec le bouton droit de la souris, un userform s'affiche au centre de l'écran.
Comment le placer automatiquement à "Droite et en bas de la cellule active"
Ci-joint fichier exemple.
Merci pour votre aide.

 

[Robert]

Salut Aubelix, salut le forum,

En piece jointe ton fichier modifié.

À plus,

Robert

 

[aubelix]

Bonjour Robert et le Forum.
Ta correction fonctionne à la perfection et tombe exactement à l'endroit désiré.
Aucune modification dans ma configuration à apporter. "Pile Poil"
Mille mercis pour ton aide. Une autre question (voir fichier joint)
Est-il possible d'attribuer 2 actions au clic droit : affichage d'un calendrier ou du userform comme dans le premier exemple.
Merci pour votre aide.

 

[Robert]

Re Aubelix, bonsoir le forum,

Essaie comme ça :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A2:B2, J5:J800")) Is Nothing Then
Cancel = True
UserForm5.Show
Else
On Error Resume Next
Cancel = True
USF1.Left = Target.Offset(1, 1).Left + 20
USF1.Top = Target.Offset(1, 1).Top + 96
USF1.Show
End If
End Sub

À plus,

Robert

 

[aubelix]

Bonsoir Robert et tout le Forum.
Une fois de plus mille mercis. Tout fonctionne parfaitement.
Bonne soirée.