Pbm avec textbox

[Guillaume]

Salut a tous!
J'ai un petit pbm.
A l'ouverture d'une userform, je souhaite recuperer automatiquement des infos dans des cellules d'une feuille excel et reporter ces infos dans des textbox de ma userform.

Je vous remercie par avance.
Bonne Journée

 

[Spock]

C'est un peu léger comme question, mais bon !

Disons Frm1. TxtBox1 = feuil1.Range 'a1'.Value

Message édité par: Spock, à: 19/07/2005 18:15

 

[Guillaume]

Merci Spock mais je le place dans quelle procédure?
Car je veux ke la récupération de données se fasse au chargement de la userform.

 

[PascalXLD]

Bonjour

Voici ce que cela donnerait à placer dans le code de ta feuille

Private Sub UserForm_Initialize()

TextBox1.Value = sheets('feuil1').Range('A1')
TextBox2.Value = sheets('feuil1').Range('A2')
TextBox3.Value = sheets('feuil1').Range('A3')
End Sub

Bon courage

 

[_Thierry]

Bonjour Guillaume, Mr Spock, Pascal, le Forum


Officier Spock, au rapport chez le Capitaine !

1) Erreur de Syntax 'feuil1.Range('a1').Value'

2) En général sur l'Enterprise XLD' on essaie d'être un peu plus explicatif, même si la question était légère, elle demandait bien 'A l'ouverture d'une userform'...

Le vaisseau de Guillaume risque de se retrouver dans l'Hyper Espace sans Initialiser son USF !

Sinon donc Pascal t'explique bien comment faire, le 'Private Sub UserForm_Initialize()' doit se trouver dans le Private Module du UserForm lui-même. (Click droit depuis l'Explorateur de Projet quand tu as sélectionné ton UserForm.

Sinon pour une mise à jour en masse on peut aussi envisager ceci :

10 TextBoxes nommées 'Texbox1, Texbox2, Texbox3' ... les donnée dans 'TaFeuille' de la cellule 'A1' à A10'

Private Sub UserForm_Initialize()
Dim WSsource As Worksheet
Dim i As Byte

Set WSsource = ThisWorkbook.Sheets('NomDeTaFeuille')

    For i = 1 To 10
        Me.Controls('TextBox' & i) = WSsource.Cells(i, 1)
    Next i
   
End Sub

Si tu as des problèmes sur les UserForms pour démarrer Guillaume regarde cette Démo :

USF-Rudiments-Basic.zip


Bonne Soirée
@+Thierry