Discussion :

[tom box]

Bonjour a tous c encore moi
J'espere que vous allé tous bien moi g un petit soucis
sur une page j'ai une dizaine de case a coché j'aimerais qu'une fois la case coché le caption viennent s'inscrire dans une textbox sa g deja reussi.
mais sur cette page ou il y a les 10 case j'aimerais ke l'on puisse coché m'import laquelle et que c'est le caption de cette case qui viendrai dans ma text box
Merci d'avance
gro bizou

[Ania]

ce que je te propose c'est d'utiliser

la propriété _Click de case à cocher

il te suffit de faire un double clique sur ta case en mode création afin de faire apparaitre le Sub correspndant à ton bouton
tu auras qqch comme ca qui devrait apparaitre. tu y insères ton code.

Cela permet d'exécuter le code lorsqu'il y un clique sur cette case
il ne reste plus qu'a faire de meme pour chaque case à cocher

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CheckBox2_Click()
 
End Sub

bonne continuation

[tom box]

Merci je test sa
Mais en fete g plusieur case a cocher
j'aimerais que la premeire case que l'utilisteur va dans la textbox1que la seconde va dans la text box2 et ainsi de suite
Gros bizou

[ouskel'n'or]

En VBA, ça donnerait ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CheckBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Text1.Text = CheckBox1.Caption
End Sub

A+

[jmfmarques]

Sous VB, on utilise intelligemment des groupes de contrôles indexés et on s'arrange pour avoir des index correspondants entre le groupe des CheckBoxes et celui des TextBoxes...
Facile ...

[tom box]

je n'est pas tous compris pourrai-tu m'expliquer comment utiliser les controle indexé pour ce probleme.
car je ne veut pas forcément faire correspondre la checkbox1 avec la textbox1
merci gros bizou

[jmfmarques]

Ah ?
Et que veut alors dire celà ?

j'aimerais que la premeire case que l'utilisteur va dans la textbox1que la seconde va dans la text box2 et ainsi de suite

Explique, alors....
Si tu veux parler de "l'ordre dans lequel on coche", c'est également facile (toujours avec des groupes indexés) avec une variable d'incrémentation pour connaître l'index correspondant des textboxes (super facile également )

[zazaraignée]

Salut

Le problème, c'est qu'avec VBA, je ne crois pas qu'il y ait une propriété Index pour les contrôles. Il y a cependant une propriété GroupName et je n'ai aucune espèce d'idée de comment ça marche...

Je fais quelques tests...

[jmfmarques]

Bonjour, spider étoilée

Alors,... c'est peut-être moi qui suis mal réveillé, aujourd'hui...
Alors... aide-moi, s'il te plait ...
Comment vois-tu, toi, qu'il est sous VBA ?

[tom box]

jmfmarques cela doit surement etre trés clair memelimpide mais j'ai besoin de plus d'information si c possible ainsi que d'un exemple
merci gros bizou

[jmfmarques]

OK tom, on y va (mais arrête tes bisous ... je ne me suis pas rasé ce matin...)

Alors :

commence par ceci :
1)
1 groupe de contrôle indexés de checkboses nommées Check(0) à check(n)

pour faire un groupe de contrôles indexés :
- tu crées un 1er contrôle
- tu le nommes (propriété Name)
- tu lui donnes (propriété Index) l'index 0
- tu le copies et le colles autant de fois que tu veux de contrôles indexés de ce nom

2) un groupe de textboxes indéxées nommées Text1(0) à Text1(n)
(même mécanisme que ci-dessus)

Quand c'est prêt, fais signe et on continue...

A +

[tom box]

ok sa c'est fait
j'ai 12 checkbox indexé et 4 msgbox indexé
gro gro bizou

[jmfmarques]

j'ai 12 checkbox indexé et 4 msgbox indexé

He !
Les msgbox ne s'indexent pas !
C'est 12 textboxes qu'il faut indexer (12)
Je t'attends !

[tom box]

c vrai pas d msgbox d textbox
mais je n'en ai que 4 car dans ma page ou je pe selctionner les 12 check box j'ai fai en sorte que l'on ne puisse que en selectionner au max 4

[jmfmarques]

Alors (en admettant que tu ne puisses vraiment en cocher que 4)
Regarde comme c'est maintenant simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private jmfcoucou As Integer
Private Sub Check1_Click(Index As Integer)
 Text1(jmfcoucou) = Check1(Index).Caption
 jmfcoucou = jmfcoucou + 1
End Sub

tu dis ...comme dit Ousk...

[tom box]

je n'est pas compris a koi ceci servait
Private jmfcoucou As Integer
VB me refuse private il marque atribu incorrect dans sub
ou dans fonction.
peu tu met des commentaire a coté de t ligne pour que j'en comprenne le sens et donc plus facilement le refaire
merci gro bizou aprés le rasage

[ThierryAIM]

tom :
1) tu écris en français, avant que je me fache !!
2) tu mets un tag CLAIR dans le titre de ton message ([VB6] si c'est vraiment du VB6)
3) tu fais un effort de reflexion et de compréhension

sinon, ca va mal finir !

[jmfmarques]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private jmfcoucou As Integer 'jmfcoucou est une variable et cette ligne est à placer tout en haut de ton code
       'pas à l'intérieur du Sub
       'jmfcoucou vas servir de "compteur", c'est tout (s'incrémentant de 1 à chaque fois que tu coches une case
Private Sub Check1_Click(Index As Integer) 'c'est la que commence ta procédure, au click (donc quand tu coches une case)
 Text1(jmfcoucou) = Check1(Index).Caption 'ici Text1(avec pour index = jmfcoucou, donc ton compteur) va prendre le texte (caption)
      ' de la case que tu coches)
 jmfcoucou = jmfcoucou + 1 'et puisque tu as coché, tu incrémentes ton compteur jmfcoucou de 1
End Sub

Voilà tout !

[tom box]

voila qui est clair
pense que tous le monde n'a pas tes connaissances tu doit expliquer comme si tu expliquer a un enfant de dix ans me diasait mon prof de math
merci quand meme pour le français je fait de mon mieux désolé.
gros bizou