Positionnement USF par rapport à une cellule

Hervé

XLDnaute Barbatruc

• 15 Janvier 2006

• #2

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

 

Vote positif 0 Vote négatif

M

Mi_

XLDnaute Occasionnel

• 15 Janvier 2006

• #3

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.

 

Vote positif 0 Vote négatif

M

Mi_

XLDnaute Occasionnel

• 15 Janvier 2006

• #4

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_

 

Vote positif 0 Vote négatif

M

Marc_du_78

XLDnaute Accro

• 15 Janvier 2006

• #5

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.

 

Vote positif 0 Vote négatif