Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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]

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]

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]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

monUserForm.Caption = Range("  ").Text

Pas besoin d'une conversion en String.

[langeard]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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,...