Les grands esprits se rencontrent: en fait, je vais créer un bouton à part qui lancera une macro qui refera tout le décompte des rectangles placés en différents endroits du tableau. Cela obligera l'utilisateur à faire une action supplémentaire, mais c'est déjà ça, et c'est bien plus simple. En tout cas, merci encore pour ton aide.
Sinon, je suis sur une autre idée:
Au lieu d'utiliser un rectangle, je vais utiliser un contrôle (type textbox) directement inséré sur ma feuille. L'avantage est que j'aurai alors accès à une procédure événementielle du type MouseUp.
Inconvénient: l'utilisateur doit pouvoir déplacer ce contrôle. Le classique glisser par click gauche maintenu n'est plus accéssible. Ta macro me sera alors sans doute utile!!!
Autre voie: je cherche à recréer cette fonction de glisser par appui maintenu click gauche ainsi:
Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.Left = TextBox1.Left + X
TextBox1.Top = TextBox1.Top + Y
End Sub
J'ai des petits problèmes de sauts, et des problèmes pour x ou Y<0 (déplacements à gauche ou en haut). Je vais peaufiner tout ça.
Je reposterai peut-être un sujet spécifique très bientôt!!!
A +.