Actualiser affichage label étiquette activeX

Bonjour,

Existe t-il un moyen d'actualiser l'affichage d'une étiquette ActiveX sans pour autant devoir cliquer gauche dessus ?

J'ai un Label1 qui est lié à une cellule A1 : Label1 = Sheets("Feuil1").Range("A1")

La cellule A1 une une formule concatener la cellule B1, C1, D1.

Lorsque je modifie la valeur d'une cellule B1, C1, D1, malheureusement mon Label 1 ne se met pas à jour, je dois cliquer gauche pour actualiser l'affichage.

Merci beaucoup pour votre aide !

Bonjour JonVa, le forum,

A tester:

Private Sub Worksheet_Calculate()
 With Sheets("Feuil1")
 .OLEObjects("Label1").Object.Caption = .Range("A1").Value
 End With
End Sub

Code à placer dans le module de la feuille "Feuil1"

Cordialement,

Bonjour Xorsankukai,

Merci pour votre aide.

De mon côté, je reçois un message "impossible de lire la propriété OLEObjects". Pourtant, mon fichier source est sur le même principe que l'exemple donnée, que votre fichier.

A quoi est-ce que cela peut être dû un tel message ?

Merci,

Edit : Je ne sais pas ce que j'ai modifier dans mon fichier source, mais finalement ça fonctionne, l'erreur n'apparaît pas.

Merci !