Remplissage de textbox

Guigui · 12 Décembre 2007

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 · 12 Décembre 2007

Re : Remplissage de textbox

bonsoir Guigui
une 1ère réponse

à bientôt

bqtr · 12 Décembre 2007

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.

Code:

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 · 12 Décembre 2007

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 · 12 Décembre 2007

Re : Remplissage de textbox

Re,

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

slts
Guillaume

Remplissage de textbox

Guigui

XLDnaute Occasionnel

Pièces jointes

Bebere

XLDnaute Barbatruc

Pièces jointes

bqtr

XLDnaute Accro

jp14

XLDnaute Barbatruc

Pièces jointes

Guigui

XLDnaute Occasionnel

Discussions similaires

Remplissage de textbox

Guigui

XLDnaute Occasionnel

Pièces jointes

Bebere

XLDnaute Barbatruc

Pièces jointes

bqtr

XLDnaute Accro

jp14

XLDnaute Barbatruc

Pièces jointes

Guigui

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency