Salut PetitClaude et le Forum...
Tu as des éléments pour faire ceci dans le fichier démo que je t'ai fait dans Lien supprimé tu as déjà une boucle pour faire ceci en partie...
Enfin admettons que ta plage de cellules en partant de l'exemple ci-dessus soit de A40, A41? A42, A43, A44...
Une boucle comme ceci devrait marcher :
Private Sub UserForm_Initialize()
Dim CTRL As Control
Dim Nom As String
Dim i As Integer
i = 40 '<<<<<<<<<<<<<pour partir de A40
For Each CTRL In Controls
If TypeOf CTRL Is MSForms.TextBox Then
CTRL = Sheets(1).Cells(i, 1) '<<<<<<Là je dis Cells(LIGNE 40, COLONNE 1)
CTRL.MultiLine = True
i = i + 1
End If
Next CTRL
End Sub
PS ceci est subordonné à ce que tu aies construit (designé) ton UserForm d'une manière Ordonnée et Méthodique, car les TextBox seront remplies dans l'ordre de leur construction....
Quand à ta seconde question tape "ComboBox" dans le moteur de recherche de ce forum... mais surtout pas avec "Quelle est la formule" car il ne s'agit pas de formules dans ce post mais de codes VBA.
Bonne Soirée
@+Thierry