Afficher Auto. le résultat d'une cellule dans Label

Bonsoir le forum,

J'aimerais que le résultat d'une cellule apparaisse automatiquement dans un label (sans avoir à cliquer dessus)

j'ai la syntaxe suivante qui fonctionne que quand on clique sur le label !

Private Sub Label2_Click()
Label2.Caption = ActiveSheet.Range("m1").Value
End Sub

D'avance merci pour votre aide

Bonsoir libellule85,

Peux tu essayer en le mettant sur ton formulaire principal comme suit :

Private Sub UserForm_Activate()
Label2.Caption = ActiveSheet.Range("m1").Value
End Sub

Au plaisir de te lire

Amitié

Air_2

bonsoir Air_2,

Merci beaucoup pour ta réponse, mais mon label ne fait pas parti d'un usf. Il est sur ma feuille.

Bonsoir,

essaye de mettre une condition sur la feuille

si la cellule target change alors ton code comme suit :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row = 1 And Target.Column = 13 Then
Target.Value = ActiveSheet.Range("m1")

Label2.Caption = Target.Value
Else: End If

End Sub

A très vite

Air_2

re,

J'ai mis ton code dans ma feuille, et celà marche mais que si je change moi même la valeur de la cellule m1 !

Or, dans la cellule m1 j'ai une formule =SOMME(D58-L58) et c'est le total de cette opération que je souhaite voir apparaître en "temps réel" dans le label.

Je me suis mal exprimé dans l'énoncé de mon problème, avec toutes mes excuses.

bonsoir,

Peux-tu me joindre ton fichier sans les données uniquement avec le bouton en question.

Car je l ai testé avant de te l'envoyer et cela fonctionnait.

A très vite

Amitié

Air_2

re,

ci-joint mon fichier le label se situe en k1.

bonjour libellule85,

J'ai un petit soucis avec ton fichier mais je vois d'ou vient ton problème.

Il te faut recréer une labelbox mais en utilisant pour dessiner ton etiquette celle qui se trouve dans Boîtes à outils contrôles.

et de taper le code suivant :

Private sub Worksheet_Calculate ()

If ActiveSheet.Range("M1")<>"" Then 
Label2.Caption=ActiveSheet.Range("M1")
Call tri
Else: End If

End sub

Si cela ne marche pas peux-tu m'envoyer ton fichier format 2003, car malgrés le converteur certains fichiers ne fconctionnent pas ou me génére des erreurs.

Désolé

Air_2

Bonjour Air_2, le forum,

Tout d'abord je tiens à te remercier de m'avoir aider, c'est vraiment sympa. Grâce à toi maintenant celà fonctionne impeccable, par contre j'ai enlevé l'appel à la macro de tri car celà plantait mon classeur et je l'ai remis dans le Worksheet_Change...

Un grand grand merci

Bon après midi

Bonjour,

J'ai le même problème... je m'explique...

J'ai un USF que j'utilise en même temps que ma feuille Excel. En modifiant ma feuille Excel, j'aimerais que mon "Label" se change sans que j'aille besoin de cliquer dessus. Mon USF je l'utilise pour présenter sur un autre écran, c'est pour ça qu'il faut que les modifications se fassent automatiquement et surtout en même temps!

Est-ce que vous pouvez m'aider ?

Voici ce que j'ai comme code :

Private Sub dernum_Click()

dernum = ActiveSheet.Range("A1").Value

End Sub

Merci pour votre aide