Discussion :

[AntMi]

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

[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...

[AntMi]

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 ??

[NEC14]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Workbook_Open()
coordonnée
End Sub

dans un module standard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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