Objet placé à l'intersection de 4 cellules

[etpisculrien]

Bonjour à tous,

Je ne sais pas vraiment si cela est possible mais j'aurais souhaiter faire une macro qui me placerait un objet (genre un petit rond) à l'intersection de 4 cellules définies, un peu comme si la croix dessinée par mes 4 cellules (2x2) etait la cible à atteindre pour mon objet.

Si quelqu'un avait une idée, il me retirerait une poutre du pied!!!

Merci d'avance

 

[Pierrot93]

Re : Objet placé à l'intersection de 4 cellules

Bonjour etpisculrien

essaye peut être le code ci dessous, place la forme à l'intersection de la plage "I1:J2"

Sub test()
Dim l As Double, t As Double
l = Range("j2").Left - (Range("j2").Height / 2)
t = Range("J2").Top - (Range("j2").Height / 2)
ActiveSheet.Shapes.AddShape msoShapeOval, l, t, Range("J2").Height, Range("J2").Height  'ltwh
End Sub

bonne fin d'après midi
@+

 

[etpisculrien]

Re : Objet placé à l'intersection de 4 cellules

Salut Pierrot93,

merci pour ton truc, c'est impeccable, pil ce qu'il me falait

PS: dsl pour la réponse tardive 🙁