Bonjour à tous,
Je fais un programme dans lequel plusieurs textBoxs d'une même Userform recoivent la saisie de données qui doivent, en cliquant sur un bouton, aller incrémenter les cellules d'une même ligne.
TextBox1 va dans A1 de la feuille 1
TextBox2 va dans B1 de la feuille 1
TextBox3 va dans C1 de la feuille 1
etc...

Pour l'instant, je procède comme suit :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Sheets("Feuil1").Range("A1") = TextBox1
Sheets("Feuil1").Range("B1") = TextBox2
Sheets("Feuil1").Range("C1") = TextBox3
End Sub
Mais cela allourdit considérablement le fichier, surtout que j'ai 234 TextBoxs.

Je sais qu'il est possible d'aboutir au même résultat avec un code bien plus simple mais je ne sais pas vers quelle(s) fonction(s) m'orienter.

Quelqu'un pourrait-il m'orienter svp pour que j'apprenne et que je comprenne comment faire ?

Merci par avance à ceux qui voudront m'épauler.

Laurent