Dans un UserForm Excel, comment puis-je mettre à jour une étiquette de légende?

J'ai créé ma première non modale UserForm dans Excel et de mettre un ActiveX étiquette sur elle. Comment puis-je régler la légende de l'étiquette de sorte qu'il affiche tout ce qui est dans Sheet1.Range("A1"), et se met à jour automatiquement lorsque la valeur de la cellule A1 changements?

Fondamentalement, je veux que le Userform's étiquette d'être toujours mis à jour le deuxième quoi que ce soit dans la cellule Excel changements. Merci!!!!

OriginalL'auteur phan | 2011-07-28

  1. 5
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Cells(1, 1), Target) Is Nothing Then
        Exit Sub
    End If
    UserForm1.Label1.Caption = Sheet1.Range("A1").Value
End Sub

    La sous Change est appelée à chaque fois qu'une cellule est modifiée. Pour cela, le code: si A1 a été changé, modifier la légende de Label1 sur UserForm1. Le formulaire doit avoir été ouvert non modal (vbModeless).

    UserForm1.Show vbModeless
    Salut cularis, merci pour l'incroyable réponse rapide! Cela a fonctionné pour moi.

    OriginalL'auteur Jacob

  2. 1

    Cela a Fonctionné pour moi.

    Sheets("Sheet").Shapes("TheNameOfTheLabel").TextFrame.Characters.Text = "Hello"

    OriginalL'auteur moberme