Affecter une forme à une cellule

Bonjour,

J'aurai souhaité savoir si il était possible d'affecter une forme à une cellule de manière à ce que quelque soit la taille que l'on donne à une cellule, la forme reste présente?

Je m'explique, je dispose d'une macro qui colorie la case (M,6) en une certaine couleur selon le critère choisi !


Cette macro je l'affecte à une forme placée au niveau de la cellule (N,6)
=> La forme placée au niveau de la cellule (N,6) gère donc la couleur de la cellule (M,6)

Le problème est que lorsque je réduis la taille de ma cellule (ce qui pourrait se produire durant l'utilisation de cette feuille de calcul) la forme se déplace et il se pose donc le problème de savoir quelle forme gère quelle cellule.

Cordialement

Je n'ai pas très bien compris... Tes macros qui génèrent les couleurs sont liées à des formes, c'est bien cela ? L'affectation les lie même si tu déplaces tes formes. Donc je ne comprends pas où se situe ton problème...

Citation:

---

Envoyé par Kimy_Ire

Je n'ai pas très bien compris... Tes macros qui génèrent les couleurs sont liées à des formes, c'est bien cela ? L'affectation les lie même si tu déplaces tes formes. Donc je ne comprends pas où se situe ton problème...

---

Oui je suis bien d'accord avec toi, n'importe où sera positionnée ma forme lorsque j'appuierai dessus elle excutera la macro !
En fait, je veux simplement "dire" à ma forme tu appartiens à la cellule (M,6), tu ne bougeras jamais de cette cellule. Autrement dit, comment faire pour que ma forme prenne toujours la taille de la cellule ??

Peut-être quelque chose comme ça. Il positionne l'UF selon .Left et .Top

Code:

---

1 2 3 4 5 6

Private sub UserForm_MouseDown(ByVal Button As Integer, _ ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) UserForm1.Left = 100 UserForm1.Top = 100 end sub

---

patricktoulon avait également proposé ça

Code:

---

1 2 3 4

Private Sub Workbook_Open() coordonnée End Sub

---

dans un module standard

Code:

---

1 2 3 4 5 6 7 8

public tope as long public lefto as long sub coordonnée () tope = sheets("nom de la sheets").range("la lette que tu veux,la ligne que tu veux).top   lefto=sheets("nom de ta sheets").range("la lettre que tu veux,la ligne que tu veux ").left end sub

---

au moment que tu veux tu appliques le top et le left de ton Usf le tope et le lefto
peut etre dans le initialyse tout simplement