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