textbox"i"

ben · 20 Août 2004

bonjour a tout le forum

je fait encore appelle a vous:

dans mon algorithme je voudrai ecrire :
textbox1=cells(1,1)
textbox2=cells(2,1)
textbox3=cells(3,1)
....
je voudrai remplacer 1,2,3 par i

j'ai troucer ce lien:
http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=103512&t=103503

il donne:
Cells(i, 1) = Controls("TextBox" & i)
moi c'est l'inverse que je veux et controls ne marche pas (excell me dit qu'il ne connai pas la fonction

merci de votre aide

@+Thierry · 20 Août 2004

Bonsoir Ben, le Forum

Vite fait, je dois partir...

Dim i As Byte
For i = 1 to 3
Controls("TextBox" & i) = Cells(i, 1)
Next

Maintenant celà dépend OU tu places ce code ? (Dans le UserForm lui Même c'est OK, sinon préciser "UserForm1.Controls("TextBox" .... etc)

Bon Week End
@+Thierry

ben · 23 Août 2004

bonjour le forum

merci thierry mais j'avais deja essayer ça. j'avais trouver un message ou tu l'expliquer.

Mon probleme est que je n'ai pas creer de userforme j'ai mes textbox sur une feuille du classeur et je ne sais pas comment faire référence aux controles de ma feuille (controls() ne marche apparemment pas..)

Au fait quelle est l'interet de creer un userforme si l'on peut tout faire sur une feuille excell? (je débute...)

michel · 23 Août 2004

bonjour Ben , bonjour @+Thierry

tu peux essayer

Sub BoucleTextBoxOleObject()
Dim i As Byte
For i = 1 To 3
ActiveSheet.OLEObjects("TextBox" & i).Object.Text = Cells(i, 1)
Next
End Sub

bon apres midi
MichelXld

ben · 23 Août 2004

Merci beaucoup michel ça marche!!!

textbox"i"

ben

Guest

@+Thierry

Guest

ben

Guest

michel

Guest

ben

Guest

Discussions similaires