cs_lanetmel
Messages postés6Date d'inscriptionlundi 2 avril 2012StatutMembreDernière intervention 8 mai 2012
-
2 mai 2012 à 18:51
cs_lanetmel
Messages postés6Date d'inscriptionlundi 2 avril 2012StatutMembreDernière intervention 8 mai 2012
-
3 mai 2012 à 01:56
Bonjour à tous
J'ai une USF avec à l'intérieur 1 frame contenant 11 checkboxs. J'aurais besoin que lorsque plusieurs checkboxs sont cochées, le caption de chacunes aillent se mettre dans une feuill excel mais dans la même case (donc il faudrait concatener les résultats)
Voici ce que j'ai de fais :
For Each checkbox In Frame3.Controls
'Si la valeur du contrôle = True (donc si coché) ...
If CheckBox.Value = True Then
'prend comme valeur le texte du bouton
cell (Lign,109)=
pour que ceci fonctionne, faut-il que checkbox soient une variable? Car présentement il ne semble pas reconnaitre l'ensemble des checkbox..et à la fin dans la ligne 109 je ne sais pas comment, et si cela est possible de concatener les résultats.. (résultats possibles : 3''/ 4''/5''/6''/7''...)
Si quelqu'un peut m'aider! Je suis débutante mais je veux apprendre.
merci à l'avance
Mélanie
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 2 mai 2012 à 23:40
et alors ! concatène donc !
.Cells(lign, 109) = .Cells(lign, 109) & c.Caption & " "
et fais un trim une fois la boucle finie :
.Cells(lign, 109) = trim(.Cells(lign, 109))
pour enlever le dernier espace !
Où est le problème ?
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 2 mai 2012 à 19:02
Bonjour,
faut-il que checkbox soient une variable
Bien évidemment. Et il vaudra mieux éviter de lui donner ce nom-là.
Cer Frame3, par ailleurs : contient-il UNIQUEMENT des CheckBoxes ou également d'autres contrôles ? (important)
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 2 mai 2012 à 19:30
Dans ce cas, ton code ne peut que fonctionner. Mais fais-le "propre" !
regarde ce que fait ceci (exemple) :
Dim c As Control ' <<<<==== toujours déclarer et typer une variable
For Each c In Frame3.Controls ' <<<==== toujours être prudent (on ne veut que les checkboxes
MsgBox c.Name & " " & c.Value
Next
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_lanetmel
Messages postés6Date d'inscriptionlundi 2 avril 2012StatutMembreDernière intervention 8 mai 2012 2 mai 2012 à 19:49
Bonjour Ucfoutu
merci de ta réponse, voici ce que j'ai mis
For Each c In Frame3.Controls
'Si la valeur du contrôle = True (donc si coché) ...
If c = True Then
'prend comme valeur le texte du bouton
.Cells(lign, 109) = c.Caption & " "
ça fonctionne en partie merci beaucoup!, ce qui ne fonctionne pas c'est que si je choche 2 textbox, il ne me donne que le caption de la dernière... Moi j'aurais aimé que toutes les captions des textbox cochées se "concatène" (pas certaine du mot!!!).. Exemple : Si on choche les cases 3'' et 5'' et 9'' et 11''. J'aimerais que dans ma cellule, ça inscrive : 3'' & 5'' & 9'' et 11''
Penses-tu que cela est possible?