Evènement pour private sub dans userform
Bonjour à tous!
Actuellement pour mon travail, je dois dévelloper un fichier excel vérifiant des profilés de construction.
J'utilise des userform pour guider l'utilisateur dans la pose de données.
Dans mes userform, j'ai utilisé des labels pour renvoyer des valeurs du fichiers excel sur le userform.
Mon problême est qu'il ne s'actualise pas tant que je ne clique pas dessus.
Ce qui est normal puisque l'évènement associé est Click
Ex:
Private Sub Mdever_Click()
Mdever.Caption = Sheets("Feuil1").Range("C43").Value
End Sub
Je n'arrive pas à trouver qu'elle évènement me permetrait de l'actualiser quand la valeur associée sur la feuille excel varie.
Je vous remercie par avance de prendre du temps pour m'aider.
Bonjour gcouturi, et bienvenue,
Il te faut attacher le code à l'événement Change de ta feuille de travail. Par exemple :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Mdever.Caption = Target.Value
End SubMais attention, il faut détecter si la cellule modifiée se rapporte bien au Label concerné. La condition If teste donc l'adresse, A1 dans cet exemple mais à toi de l'adapter.
Cordialement.
Merci pour la réponse.
Ca a répondu à ma question.
Bonne journée à vous!