Positionnement USF par rapport à une cellule

[Mi_]

Bonjour le forum,

Je désire ouvrir un UserForm positionné avec le coin haut-gauche toujours dans la cellule B2, n'importe la position de cette cellule sur la feuille.

Mais je n'y arrive pas.

J'ai essayé

Private Sub UserForm_Initialize()

Dim Plage As Range
Set Plage = Range('B2')

With UserForm1
.Left = Plage
.Top = Plage
End With

End Sub

Mais ça ne marche pas.

Est-ce que c'est possible ce que je cherche ?

merci pour tout conseil,
Mi_

 

[Hervé]

Bonjour mi, le forum

essaye comme ceci :

Private Sub UserForm_Activate()
Dim Plage As Range
Set Plage = Range('B2')

With UserForm1
.Left = Plage.Left
.Top = Plage.Top
End With
End Sub

salut

 

[Mi_]

Regardez ce que j'ai trouvé:

Private Sub UserForm_Initialize()

With UserForm1
.Left = Range('B2').Left + 20
.Top = Range('B2').Top + 104
End With

End Sub

J'ai obtenu ces chiffres en faisant des essais de positionnement. Bizzare, +20 et +104. Mais bon, ça marcheu.

 

[Mi_]

Bonjour Hervé,

J'ai pris ton code, finalement on doit l'ajuster aussi avec +20 et +104, comme pour le mien. Marrant, ils viennent d'où ces chiffres ?

Sinon elle est térrifiante, ta vitesse de réponse.

Merci beaucoup,
Mi_

 

[Marc_du_78]

Bonsoir Mi_, Hervé, le Forum,

Normal Mi_, ca c'est du Hervé tout craché. Rien dans les poches tout dans la tête.
Dans 20 ans nous serons toujours derrière lui.
Bonne soirée et courage pour demain.