Discussion :

[poulette17]

Bonjour,

J'ai déjà réalisé pas mal de recherches et j'ai trouvé des pseudos pistes de réponses mais rien ne fonctionne.

Je souhaite récupérer la valeur ou le texte d'une cellule d'une feuille en particulier et l'afficher dans un Label d'un Userform. Mais je n'y parviens pas.


Avec mon programme (PIECE JOINTE) je tente de récupérer la cellule B14 de la feuille "FOSSE_Aval" et l'afficher dans "Label2" du Userform.

J'ai testé des choses telles que:

Code :

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

Me.Controls(Label2).caption=worksheets("FOSSE_Aval").Range("B14").value

Aidez-moi svp car une fois que je comprendrais comment faire alors je pourrais faire tout mon programme.

Merci

[patricktoulon]

Bonsoir

Tout d'abord tu as une erreur dans ton écriture.

A la place de ça :

Code :

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

Me.Controls(Label2).caption=worksheets("FOSSE_Aval").Range("B14").value

met plutôt ceci:

Code :

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

Me.Controls("Label2").caption=sheets("FOSSE_Aval").Range("B14").value

ensuite pourquoi utilises tu la variable "control"
si le code est dans le module du userform tu peut ecrire ceci:

Code :

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

Label2.caption=sheets("FOSSE_Aval").Range("B14").value

Par contre si le code se trouve en dehors du module du userform alors tu as un souci avec la variable object "Me" car cette variable représente le parent du contrôle en l'occurrence le userform à condition que cette ligne de code se trouve dans le module du userform au cas contraire se sera :

Code :

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

nomdeluserform.label2.caption=sheets("FOSSE_Aval").Range("B14").value

Ou alors passer par une variable injecté dans l'appel a la macro ou une variable en public mais ça c'est une autre histoire
au plaisir

[poulette17]

Merci Patricktoulon,

Pour le "worksheets" c'est moi qui me suis enflammé en le tapant dans mon message, j'avais bien mis "sheets"

Dans mes recherches j'avais trouvé l'histoire du "Me.Controls" sans succès..., mais en utilisant ta méthode et bien tout fonctionne merci beaucoup

Une dernière question, la valeur que je récupère fluctue lorsque que je lance une macro qui résout une équation en faisant varier cette valeur (concrètement, la hauteur d'eau dans mon fossé démarre de 0 et augmente de 1 cm jusqu'à atteindre une valeur seuil). Est-il possible que le Userform soit actualisé en permanence, comme pour cette cellule dont je vois la valeur changer au fur et à mesure que la macro résout l'équation ?

Je pensais à faire apparaître et disparaître le Userform de façon à ce que la valeur du label2 soit actualisée en parallèle de la macro..

Enfin, merci quand même.

[patricktoulon]

re

d'accord
en fait on en viens au exemple que je t'ai donné

tout dépend ou se trouve le code qui modifie ta cellule
c'est dans cette macro qu'il faut mettre

Code :

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

nomdel'userform.controls("Label2").caption= ............

n'en voyant pas plus sur le code je ne peut pas t'en dire plus

au plaisir

[poulette17]

J'ai enquêté et c'est bon j'ai trouvé

Userform.repaint

Bonne soirée