VBA: importer les données d'une feuille de calcul dans les champs d'un userform

[Pierre-Alain FERREOL]

Hello! Quelqu'un aurait-il une solution à me proposer pour mon problème.

J'ai une feuille denommée SETUP qui contient des tables (de mortalité, je suis actuaire) avec de nombreux chiffres. Je souhaiterais importer ces chiffres dans les TextBox de mon Userform de manière systématique. Bien sûr, je peux prendre chaque TextBox et lui affecter la cellule de la feuille mais c'est long et laborieux. Aussi je me demande si il n'y a pas une solution dans une boucle FOR ... NEXT à l'initialisation de l'UserForm.

Merci de votre aide.

 

[lupin]

Oui c'est possible en structurant bien ses controles sur le userform. Exemple de code pour mettre dans 5 textbox les valeurs de 5 cellules :

Private Sub UserForm_Initialize()
Dim MonControle As Control

' Récupération de la zone source
Range("A2:E2").Select

' boucle pour remplir les textbox en sélectionnant chaque controle
' et grace à la méthode TypeName détecter quels sont les textbox.
For Each MonControle In Controls
If TypeName(MonControle) = "TextBox" Then
i = i + 1
MonControle = Selection.Cells(i)
End If
Next

End Sub