Value de textBox en boucle

[phil]

Lutlut le forum

J'ai un petit soucis avec une boucle et plussieurs textbox que j'ai dans un userform, je veux afficher le contenu des textbox dasn des cellules

Sub boucleTex()

For x = 1 to nbtextbox

Range("A1").offset(x).value = Textbox.... 'c la que je c pas koi mettre en fait

next x

nbtextbox je le recupere ailleurs ( c le nombre de textbox qui a été rempli )
mais je c pas comment incrementer Textbox1...2...3 ect... y a pas un & quelque part ?

c pour eviter d'ecrire

Range("A1").offset(1).value = Textbox1
Range("A1").offset(2).value = Textbox2
... surtout que je c pas combien je vais avoir de textbox de rempli


Merci d'avance

 

[Robert]

Salut Phil, salut le forum

Tu peux essayer comme ça :

for x = 1 to nbtextbox
Range("A1").Offset(x).Value = Userform1.Controls("Textbox" & x).Value
next x

j'ai l'impression qu'il manque une donnée à offset(x) ???

À plus,

Robert

 

[CHti160]

Salut"phil"et"Robert"
un exemple à modifier en pièce jointe
A+++
Jean Marie

 

[phil]

Bonjour le forum,


Merci a tous les deux pour votre reponse et excusez d'avoir été aussi long a vous en remercier ^^, j'ai eu une petite periode de repos suite a ce post j'ai donc pas vu les reponses

Je vais de ce pas mettre en pratique vos suggestions

Thx

Phil