Remplissage de textbox

[Guigui]

Bonsoir le forum,

Voici mon probleme,
J'ai un Userform avec des textbox, l'idée est de faire 1 textbox pour une cellule (sur une feuille)

Je souhaiterais qu'a l'ouverture du USF, si les cellules contiennent des choses que le contenu se retrouve dans les textbox...

A l'inverse, aprés saisie dans le USF (dans les Textbox) que les données soit transferé dans les cellules.

j'avais vu une fois un code à base de
textbox & i.value = cell(i,0)
mais impossible de retrouvé plus...

je vous joint un exemple .

Merci d'avance pour votre aide
Slts
Guillaume

 

[Bebere]

Re : Remplissage de textbox

bonsoir Guigui
une 1ère réponse

à bientôt

 

[bqtr]

Re : Remplissage de textbox

Bonsoir Guigui

Voici deux procédures :
La 1ère transfère le contenu des TextBox dans les cellules.
La 2ème , à l'initialisation du Userform, récupère le contenu des cellules dans les TextBox.

Cela suppose que la numérotation soit parfaite, dans l'exemple tu as le
TextBox1, TextBox2,..........Textbox10.

Private Sub OK_Click()

Dim i As Integer
For i = 1 To 10
  Cells(i, 1) = Me.Controls("TextBox" & i)
Next

End Sub


Private Sub UserForm_Initialize()

Dim i As Integer
For i = 1 To 10
   Me.Controls("TextBox" & i) = Cells(i, 1)
Next

End Sub

Si les données commencent à la ligne 4 par exemple, tu modifies comme ceci
Cells(i + 3, 1) = Me.Controls("TextBox" & i) et
Me.Controls("TextBox" & i) = Cells(i + 3, 1)

A+

Bonsoir Bebere

 

[jp14]

Re : Remplissage de textbox

bonsoir bqtr, Guigui, bebere

Ci joint le fichier avec des macros au niveau de l'usf.
Une variable publique indique la colonne utilisée.

Attention à la numérotation des textbox.

A tester

JP

 

[Guigui]

Re : Remplissage de textbox

Re,

Merci beaucoup à tous les 2, c'est parfait .. comme d'hab..

slts
Guillaume