Renommer un Label dans un Userform

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

Bonjour,

Des exemples:

Code:

---

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

---

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

---

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

Code:

---

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

---

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

Citation:

---

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

;)

Citation:

---

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! :mrgreen:

Citation:

---

Envoyé par Sclarckone

Tout à fait...honte à moi! :mrgreen:

---

Non non, n'aie pas honte :mouarf:

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.

:ccool:

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

Citation:

---

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.