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

R

Robert

Guest

• 11 Décembre 2004

• #2

Salut Aubelix, salut le forum,

En piece jointe ton fichier modifié.

À plus,

Robert

 

Pièces jointes

• ESSAI_DE_NOMBRE2.zip

  11.3 KB · Affichages: 142
• ESSAI_DE_NOMBRE2.zip

  11.3 KB · Affichages: 146
• ESSAI_DE_NOMBRE2.zip

  11.3 KB · Affichages: 151

Vote positif 0 Vote négatif

A

aubelix

Guest

• 11 Décembre 2004

• #3

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.

 

Pièces jointes

• ESSAI_DE_NOMBRE2.zip

  14.6 KB · Affichages: 99
• ESSAI_DE_NOMBRE2.zip

  14.6 KB · Affichages: 102
• ESSAI_DE_NOMBRE2.zip

  14.6 KB · Affichages: 107

Vote positif 0 Vote négatif

R

Robert

Guest

• 11 Décembre 2004

• #4

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

 

Vote positif 0 Vote négatif

A

aubelix

Guest

• 11 Décembre 2004

• #5

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

 

Vote positif 0 Vote négatif