valeur Label Mise à jour automatique depuis une cellule

[wrap food]

Bonjour

je souhaiterais savoir si il est possible de mettre a jour automatiquement un label qui fait référence a une cellule

la cellule est associée à une textbox qui peut ou pas êtres modifié.

j' ai mis ce code pour le label mais cela ne fonction pas

Private Sub Label1_Change()
If ActiveSheet.Range("k158") <> "" Then
Label1.Caption = ActiveSheet.Range("k158")
Call tri
Else: End If
End Sub

Pourriez vous m'aider
Par avance

merci

 

[camarchepas]

Re : valeur Label Mise à jour automatique depuis une cellule

Bonjour ,
en fait tu veux mettre à jour le textbox lorsque la cellule de la feuille change.

il faudrait donc plutot taper dans le module de la feuille en question et dans l'évenementiel Change

userform1.texbox1.txt = range("A8") par exemple

Mais il faut bien sur que le formulaire soit ouvert

 

[wrap food]

Re : valeur Label Mise à jour automatique depuis une cellule

Merci
Je place ce code ou ?
Dans un Private _Change
ou dans un UserForm_Initialize
Peut-on faire la même chose avec un label .
encore merci de votre aide

 

[camarchepas]

Re : valeur Label Mise à jour automatique depuis une cellule

Oui , pour le label,

oups , un e dans text c'est évadé tout à l'heure, la bonne syntaxe est text

Si l'info est dans la feuille : Feuil1 cellule A8,
Clic droit sur le nom de l'onglet Feuil1, visulaliser le code et copier ceci
le formulaire dans l'exemple devra s'appeler userform1 ou il faudra corriger dans le code

Private Sub Worksheet_Change(ByVal Target As Range)
userform1.Label1.Caption = sheets("Feuil1").range("A7")
userform1.TextBox1.Text = sheets("Feuil1").range("A8")
End Sub

 

[wrap food]

Re : valeur Label Mise à jour automatique depuis une cellule

Bonjour et un très grand merci

Cela fonction très bien.


Juste encore une chose, désolé
si je veux mettre plusieurs label a jour je peux faire un code comme suit:

Private Sub Worksheet_Change(ByVal Target As Range)
userform1.Label1.Caption = sheets("Feuil1").range("A7")
userform1.TextBox1.Text = sheets("Feuil1").range("A8")
userform1.Label9.Caption = sheets("Feuil1").range("A17")
userform1.TextBox9.Text = sheets("Feuil1").range("A18")
End Sub

Encore merci de votre aide

 

[camarchepas]

Re : valeur Label Mise à jour automatique depuis une cellule

Avec une simplification d'écriture

le with permet de mettre un objet en référence:
ici par exemple : la feuille Feuil1 est mise en référence et pour ce reporter à la référence,
l'on met un . devant l'instruction ex ici .range

C'est sympa de voir quelques personnes de temps en temps qui essai de comprendre plutot que de singer, ou pire de faire copiste

Private Sub Worksheet_Change(ByVal Target As Range)
With sheets("Feuil1")
   userform1.Label1.Caption = .range("A7")
   userform1.TextBox1.Text = .range("A8")
   userform1.Label9.Caption = .range("A17")
   userform1.TextBox9.Text = .range("A18")
end with
End Sub

 

[wrap food]

Re : valeur Label Mise à jour automatique depuis une cellule

bonjour,

Désolé de relancer cette discussion et de ne pas vous avoir remercié .

Mais j'ai encore un problème, ( encore une fois ......)

Si la valeur dans un textbox ou un label et égal à zéro peut-on faire en sorte qu'il n'apparaisse pas ( masqué)

je suis vraiment désolé de ne pas avoir posé la question pendant nos premiers échanges .

Par avance merci de vos réponse

et encore désolé .