Beaucoup de TextBox à enregistre

[petitclaude]

Bonjour à tous,
Je me suis crée un USF avec un multiplage de 10 pages et dans chaque page il y à 12 TextBox
Je les enregistre 1 par 1
Quelqu’un pourrait il m’indiqué une formule qui m'évite de les écrire 1 par 1. (120 à faire)

Private Sub UserForm_Initialize()
With TextBox1
.Value = Sheets(1).Range("A41")
MultiLine = True
End With
With TextBox2
.Value = Sheets(1).Range("A42")
MultiLine = True
End With
End Sub

Private Sub CommandButton4_Click()
With Sheets(1)
.Range("A41") = TextBox1
.Range("A42") = TextBox2
End With
End Sub

Une 2° questions,
Quelle est la formule pour crée une liste de zone modifiable dans un USF !

Merci beaucoup de votre aide.

 

[@+Thierry]

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

 

[petitclaude]

Bonjour
Tu as encore réussi à m'aider,je reviendrait te voir plus tard.
Merci beaucoup et bonne continuation.