[XL-2000] Renommer un Label dans un Userform [Résolu]

[Philindy26]

Bonjour,

Je suis assez débutant dans excel; c'est pourquoi je me rapproche de vous.

Sur un Userform, est-ce que l'on peut définir ou modifier le nom d'un Label (caption) en utilisant la valeur d'une cellule ?

Exemple :
Sur Userform1, j'ai plusieurs Label (label1, label2, label3, ...)
Et sur une feuille nommée "Info", j'ai des données sur les cellules A1, A2, A3, ...

j' aimerais que les valeurs des cellules se reportent sur les Labels :
Le nom du labe1 = valeur de A1
Le nom du labe2 = valeur de A2
Le nom du labe3 = valeur de A3

Et que par la suite, le changement de valeur d'une cellule sur reporte sur le label.

Merci beaucoup d'avance
Philindy26

[LouiMz]

Bonjour,

Des exemples:

Code :

1
2
Label1.Caption = "toto"
Label2.Caption = Range("C2").Value

[Pierre Fauconnier]

Salut.

Tu peux intercepter l'événement Activate du userform

Par exemple, ce code placé dans le module du userform, adaptera les caption des étiquettes Label1, Label2, Label3 en leur attribuant les valeurs des cellules A1, A2 et A3 de Feuil3.

Les noms doivent évidemment être adaptés à ton cas.

Code :

1
2
3
4
5
Private Sub UserForm_Activate()
  Label1.Caption = Feuil3.Range("a1").Value
  Label2.Caption = Feuil3.Range("a2").Value
  Label3.Caption = Feuil3.Range("a3").Value
End Sub

[Sclarckone]

Et pour écarter d'éventuelles erreurs de conversion de type (c'est toujours mieux quand c'est explicite):

Code :

monUserForm.Caption=CStr(Range("  ").Value)

[langeard]

Tu peux tout à fait définir ton label à partir de la valeur d'une cellule

Code :

label.caption = Worksheets("ton nom de feuille").Range("A1").Value

Si tu souhaites que le label se rappoprte toujours a la valeur de ta cellule, le mieux serait d'associer le code précédent à un evenement donné (à définir selon la configuration)

Par ex: changement de selection, activation de la feuille,...

[Pierre Fauconnier]

Envoyé par Sclarckone

Et pour écarter d'éventuelles erreurs de conversion de type (c'est toujours mieux quand c'est explicite):

Code :

monUserForm.Caption=CStr(Range("  ").Value)

Ce n'est pas faux... Alors, tant qu'on y est, il est préférable de préfixer l'objet Range de l'objet worksheet qui le supporte, car si c'est une feuille graphique qui est active au moment de l'exécution du code => plantage...

[Sclarckone]

Envoyé par Pierre Fauconnier

Ce n'est pas faux... Alors, tant qu'on y est, il est préférable de préfixer l'objet Range de l'objet worksheet qui le supporte, car si c'est une feuille graphique qui est active au moment de l'exécution du code => plantage...

Tout à fait...honte à moi!

[Pierre Fauconnier]

Envoyé par Sclarckone

Tout à fait...honte à moi!

Non non, n'aie pas honte

Ton souci de ne pas planter le code (ou envoyer des données "exotiques" au caption) est tout à fait opportun.

On oublie souvent ce petit détail du Range non préfixé, et on cherche parfois longtemps le pourquoi du plantage, puisqu'il n'apparaît pas à tous les coups. C'est pourquoi j'ai cru bon de le souligner, en marge de l'amélioration que tu proposais.

[Philindy26]

Merci beaucoup pour toutes ces réponses.
Et encore bravo pour votre aide
Philindy

[AlainTech]

Envoyé par Sclarckone

Et pour écarter d'éventuelles erreurs de conversion de type (c'est toujours mieux quand c'est explicite):

Code :

monUserForm.Caption=CStr(Range("  ").Value)

En plus de la remarque de Pierre, on peut faire encore mieux:

Code :

monUserForm.Caption = Range("  ").Text

Pas besoin d'une conversion en String.