boucle avec incrementation sur plusieurs etiquettes

Question

Salut tout le monde,

j'ai créer dans mon formulaire 50 étiquettes  l'une en dessous de l'autre,parce que je dois les traiter une à une. Mon problème est que je dois remplir les étiquettes maintenant. Comme je ne dois pas tout le temps remplir les 50, je veux remplir les étiquettes dans une boucle jusqu'à la fin du recordset. Les étiquettes, je les ai appellé Txt1...à....Txt50 . Comment est ce que je fait pour incrément le nom de l'étiquette?
J'ai essayer me.Txt & cpt mais ca marche pas.Peut-être est-ce que qlq à une autre idée pour simplifier mon boulot?

Merci pour votre aide,

a+ 

Spawn

tof008 · Answer

Que veux tu dire par incrementer le nom des etiquettes?
tu veux avoir autant d'etiquettes que de recordset?
ou juste rajouter +1 a chaque nom d'etiquette?

(Si la réponse vous convient, appuyez sur réponse acceptée...)

Il y a plusieurs facon d'être con ,mais un con choisit toujours la pire< body>

Spawn3107 · Answer

Je veux ajouter 1 a mon étiquettes . Donc premiere : Txt1 ,...., cinquieme: Txt5 . 
Parce que je saurais pas faire 50 fois : me.txt1=rs("Texte"),.......
En plus je ne suis pas sur du nombre d'enregistrement dans le recordset.

tof008 · Answer

ce qsue tu aurais du faire, c'est créer un groupe de controle avec tes textBox. 
Tu en prends une textBox puis tu fais des copier coller et quand il demande "Voulez créer un gpe de contrôle" tu dis oui. 
De cettte maniere, ta premiere txtBox sera text1(0) et la 5eme text1(4)

J'espere que ca t'aidera

(Si la réponse vous convient, appuyez sur réponse acceptée...)

Il y a plusieurs facon d'être con ,mais un con choisit toujours la pire<>

jrivet · Answer

Salut,

Pourquoi tu ne crées pas une matrice de controle.

Toue les étiquettes auront le meme nom mais une propriété Index allant de 0 a 49 (ou 1 a 50)

Et ensuite tu pourras faire
For i = 0 to 49
   Txt(i) = i
Next

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée, Règlement/FONT>

Spawn3107 · Answer

et ca marche comment la matrice de controle?

jrivet · Answer

Desole pour le doublon ... Sinon tu as l'option plus lourde (et moins simple a mon avis) de passer par le contenu de la Collection Controls de ta feuille Dim Ctrl As Object Dim i As Integer For i = 1 To 50 For Each Ctrl In Me.Controls If Ctrl.Name = "Txt" & i Then MsgBox Ctrl.Text Next Next Coloration syntaxique automatique [AFCK] @+, Julien Pensez: Moteur de Recherche, Réponse Acceptée, Règlement/FONT>

tof008 · Answer

lol, c'est vrai ca, ca marche comment une matrice de controle? ca ressemble a un groupe de controle non?

(Si la réponse vous convient, appuyez sur réponse acceptée...)

Il y a plusieurs facon d'être con ,mais un con choisit toujours la pire<>

jrivet · Answer

Salut,

Oui me suis trompe c'est groupe et non matrice.... 

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée, Règlement/FONT>

tof008 · Answer

jpense que c'est la solution la plus simple pour ce qu'il veut faire! Mais c'est pas mal le for each aussi!

(Si la réponse vous convient, appuyez sur réponse acceptée...)

Il y a plusieurs facon d'être con ,mais un con choisit toujours la pire<>

Spawn3107 · Answer

Et qu est ce que tu veux dire par groupe de controle tof008 ? Je ne vois pas ou je peux en créer un.

tof008 · Answer

il faut que tu fasse ta premiere etiquette.
ensuite tu la copie et quand tu la colle, tu as un message qui te demande si tu veux faire un gpe de controle... et tu refais ca autant que tu veux...

(Si la réponse vous convient, appuyez sur réponse acceptée...)

Il y a plusieurs facon d'être con ,mais un con choisit toujours la pire<>

Spawn3107 · Answer

Désolé ,mais lorsque je copie une étiquette et que je la recolle ,il n'y a pas de message qui apparait.

tof008 · Answer

alors essaie de changer le nom de tes textBox. 
Si la premier s'appelle text1, appelle la text1(1), puis la deuxieme text1(2)...

(Si la réponse vous convient, appuyez sur réponse acceptée...)

Il y a plusieurs facon d'être con ,mais un con choisit toujours la pire< body>

Spawn3107 · Answer

j ai trouve pour le groupe d'option, je les ai sélectionné puis groupé. Mais je sais les nommé avec le même nom pour les étiquettes. Ou bien c est autre part que je dois spécifier avec les ( ) ?

Spawn3107 · Answer

maintenant j ai fait avec un groupe de controle :

For Each Mon_Ctl In Forms!Index
    With Mon_Ctl
        If Left(.Name, 5) = "Txt" Then
            Me(.Name).Caption = rs("REGISTER").Value
            rs.MoveNext
        End If
    End With
Next

Sachant que mes étiquettes se nomment Txt1,Txt2,... et que le contenu dois être rs("REGISTER").

Quelqu'un peut me corriger cela? Il compile mais ne m affiche rien pour le moment 

Spawn

PCPT · Answer

salut,
pas de groupe en VBA. (mauvais fil?!)

<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp

Boucle avec incrementation sur plusieurs etiquettes

16 réponses

Votre réponse

Discussions similaires