Impossibilité de remplir un "Label"

[Magic_Doctor]

Bonjour à tous,

J'ai créé un "Label" tout simple (Fond : NOIR / Police : BLANCHE), qui s'intitule par défaut "Label1".
Je voudrais qu'une valeur s'y affiche dans le décours d'une macro.
J'ai, dans la macro, rédigé :

Label1.Caption = [QtNoms].Value
'[QtNoms].Val étant naturellement la valeur qui doit s'afficher dans le "Label1".

Merci pour toute répone "résolutrice" et joyeuses fêtes

 

[Staple1600]

Re : Impossibilité de remplir un "Label"

Bonjour Magic_Doctor, pierrejean, le fil


En VBA
[QtNoms] = une plage de cellules nommée QtNoms


Est-ce la cas?


Ou veux-tu que la Caption de ton label soit QtNoms

Dans ce cas
Label1.Caption ="QtNoms"


Exemple

Si A1 est nommée QtNoms et contient la valeur : test
Le code (dans l'userform)

Private Sub UserForm_Initialize()
Label1.Caption = [QtNoms]
End Sub

La caption du Label1 donne bien test
Pour le code ci-dessous

Private Sub UserForm_Initialize()
Label1.Caption = "QtNoms"
End Sub

La caption du label donne QtNoms

 

[pierrejean]

Re : Impossibilité de remplir un "Label"

bonjourMagic_Doctor

en supposant que ledit Label soit dans l'userform1

tester

UserForm1.Label1.Caption = [Qtnoms].Value

 

[Magic_Doctor]

Re : Impossibilité de remplir un "Label"

En fait le Label nést dans aucun USF.
Mon vocabulaire en VBA laissant à désirer... Il y a 2 moyens de mettre un Label, j'ai choisi celui qui permet de mettre en forme le label de manière, disons, plus sophistiquée. Ce sont exactement les mêmes labes que ceux que l'on place dans un USF, mais en l'occurence, ce Label est au beau milieu de la feuille, toujours visible.
Je voudrais que la macro mette dans ce Label une valeur récupérée dans une autre cellule.

 

[pierrejean]

Re : Impossibilité de remplir un "Label"

re

peux-tu nous poster un fichier exemple avec un tel Label ?

a defaut nous preciser comment tu as créé ledit label ?

 

[Magic_Doctor]

Re : Impossibilité de remplir un "Label"

Je précise en traduisant de l'espagnol, car je ne suis pas en France :
Pour le Label je n'utilise pas un "Contrôle de Formulaire", mais un "Contrôle ActiveX" qui a bcp plus de possibilités pour la mise en forme.

 

[Pierrot93]

Re : Impossibilité de remplir un "Label"

Bonjour à tous

essaye peut être comme ceci :

Sheets("Feuil1").Label1.Caption = Range("Qtnoms").Value

si Qtnoms est une plage nommée et si j'ai bien compris

bon après après midi
@+

edition : suitee ton dernier post, remplace Range("Qtnoms").Value par Range("A9").Value

 

[Magic_Doctor]

Re : Impossibilité de remplir un "Label"

Je vous adresse un exemple.

Je voudrais que la macro mette le contenu de la cellule A9 (153) dans le label

 

[jeanpierre]

Re : Impossibilité de remplir un "Label"

Bonjour Magic-Doctor, PierreJean, Pierrot,

avec :
Private Sub Label1_Click()
Label1 = Range("a9")
End Sub

A te lire,

Jean-Pierre (qui fait dans le simple, inconvénient, il faut cliquer sur le label après changement de valeur pour la mise à jour)

Edit : Pour saluer Staple que je n'avais pas vu plus haut

 

[pierrejean]

Re : Impossibilité de remplir un "Label"

Re

voila de la Magie de guerisseur


edit : bravo jeanpierre

 

[Magic_Doctor]

Re : Impossibilité de remplir un "Label"

Merci à vous tous,

Bien sûr, je devais assigner ces consignes dans un module de feuille et non pas standard !

Joyeuses fêtes septentrionales