Textbox et variable

[JCA06]

Bonjour le Forum,

Figurez-vous que je n'arrive pas à alimenter une Textbox par une variable.

Voici une peu le fonctionnement de mes codes :
Je dois alimenter une base de données en fonction de sources qui ont des présentations différentes. J'ai donc créé un code par type de source pour aller chercher les informations.
Pour suivre l'alimentation de ma base de données, je passe par une trame qui est la transposition de mes données de la période précédente. Je dois donc savoir quelle colonne est associée à ma source.
Pour ce faire, j'ai donc créé un code qui récupére le nom de référence dans une variable 'nom1'. Ensuite, j'ouvre un USF qui récupére la valeur de cette variable 'nom1' dans une textbox1 et qui servira ensuite de référence à une recherche pour alimenter une listbox.

Hé ben j'arrive pas :angry:
Je pensais qu'il suffisait de mettre cette ligne dans l'initialisation de l'USF :
TextBox1.Value = nom1

Merci de bien vouloir m'aider et d'éviter de rire 🙁

 

[patrice78]

Bonjour JCA06 et au forum,

Tu n'aurais pas un problème de DIM.
Ta variable 'nom1' ne doit elle pas ètre en PUBLIC ?

A+

 

[PascalXLD]

Bonjour

Vu ce que tu ecris je suis d'accord avec Patrice

Il faut déclarer ta variable Public

Public Nom1 as string

Et le faire dans un module au début de celui-ci avant tout code

 

[JCA06]

Bonjour Patrice et Pascal,

Merci de votre aide. Il est vrai que j'avais déclaré ma variable par un Dim.
Mais malgré cette modif, ça ne marche pas encore.

Voici les extraits de codes :

Option Explicit

Public nomfcp As Variant


Sub Macro1()

Dim source As Workbook
Dim trame As Workbook

Set source = Workbooks(Workbooks.Count)
Set trame = Workbooks(Workbooks.Count - 1)
source.Activate
Set nom1 = Range('nom')

rechCol.Show

Et voici pour l'initialisation de l'USF :

Private Sub rechCol_Initialize()

TextBox1 = nom1

Mais ma textbox reste vide !

Heureusement que vous êtes là !