Indexer des contrôles

[Claude Azoulai]

Bonjour à tous

J'ai une série de textbox sur une feuille.
Je voudrais les remplir avec des données issues d'une table [Valeurs()].
Cela est simple si mes textbox ont un index, avec une simple boucle For..Next, si non, il faut écrire autant de lignes qu'il y a de contrôles à remplir.
Or contrairement à VB6 on ne peut, à ma modeste connaissance, indexer directement des séries de contrôles en mode création.
Quelqu'un a-t-il déja eu ce problème et l'a-t-il résolu.
Merci de me répondre

Claude Azoulai

 

[JC de Lorient]

salut Claude, le forum
essayes comme ça :

Dim x As Byte
For x = 1 To 4
Controls('Textbox' & x) = 5
Next
End Sub

 

[JC de Lorient]

re

tu auras compris que 5 est a adapté!!!

 

[MichelXld]

bonsoir Claude , bonjour JC

j'espere que cet exemple pourra t'aider


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

les TextBox doivent etre nommés TextBox1 , TextBox2, ...ext ...


JC , l'exemple que tu as donné concerne les UserForm...


bonne soirée
MichelXld

Message édité par: michelxld, à: 08/05/2006 17:58

 

[JC de Lorient]

oups
en effet ai lu bcp trop vite !!
désolé

 

[Claude Azoulai]

Bonjour JC et bonjour Michel

Il s'agit bien d'une UserForm, mais je garde le renseignement de Michel pour un autre cas.

J'ai bien pu exécuter la routine de JC, mais je ne sait plus comment s'appellent maintenant mes TextBox.
et je ne peux donc pas les remplir (j'ai essayé avec TextBox(x) mais ça ne marche pas.)
Aurriez vous plus de renseignements à me communiquer.
J'ai une table Valeurs(x) (x de 1 à 4) et je veux remplir 4 TextBox (TextBox1,TextBox2 etc
Merci de votre aide
Claude Azoulai

 

[Claude Azoulai]

Rebonjour c'est encore moi
Cç y est, je n'avais pas saisi que mes contrôles étaient remplis avec la routine de JC (ce que je voulait)et je pensait qu'il étaient simplement renommés.
Merci encore à vous deux
Claude Azoulai

 

[MichelXld]

bonjour Claude , bonjour JC

Oouuppss, toutes mes excuses : c'est moi qui etait dans l'erreur ...


bonne soirée
MichelXld