Mettre résultat d'une formule d'une cellule dans une forme par exemple rectangle

[libellule85]

Bonjour le forum,

Actuellement j'utilise la macro suivante pour mettre dans un label le résultat (en temps réel) d'une formule contenue dans une cellule.

Private Sub Worksheet_Calculate()
If ActiveSheet.Range("D1") <> "" Then
Label2.Caption = ActiveSheet.Range("D1")
Else: End If
End Sub

Je voudrais faire la même chose : que le résultat apparaisse dans une forme rectangle par exemple. Mais je ne sais pas comment modifier cette macro 😕
D'avance merci pour votre aide.
Ci-joint mon fichier.

 

[libellule85]

Re le forum,

Après moult essais, j'ai enfin trouvé 😎 !!!
Voici mon code pour les résultats dans une forme rectangle par exemple.

Private Sub Worksheet_Calculate()
If ActiveSheet.Range("D1") <> "" Then
ActiveSheet.Shapes("Rectangle1").Select
Else: End If
Range("b1").Select
End Sub

En fait il fallait que je remplace

Label2.Caption = ActiveSheet.Range("D1")

par

ActiveSheet.Shapes("Rectangle1").Select

Et sur la feuille, il faut sélectionner la forme, et mettre dans la barre de formule

=$D$1

puis faire Entrée.

Je ne sais pas si ce code est parfait pour les pros que vous êtes mais en tous cas il fonctionne !
Excusez-moi de vous avoir dérangé pour rien ! 😱

 

[jeffe]

Re : Mettre résultat d'une formule d'une cellule dans une forme par exemple rectangle

hello,
une autre façon très rapide et sans macro:
tu places ta forme sur la feuille, tu la selectionnes, et dans la barre de formule, tu mets = et la cellule que tu veux afficher.
ou alors, utilise l'appareil photo de excel
j'ai pas 2007 mais ça doit fonctionner aussi

 

[libellule85]

Re : Mettre résultat d'une formule d'une cellule dans une forme par exemple rectangle

Bonjour jeffe,

Merci beaucoup pour ta réponse

Bonne journée