Checkbox (for each controls) caption value concatener réponsesRésolu

Question

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 · Accepted Answer

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 · Answer

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

cs_lanetmel · Answer

Bonjour,

merci pour la réponse! Et oui mon frame 3 ne contien que des checkbox. Par contre j'ai 2 autres frames avec des checkbox dans mon usf

ucfoutu · Answer

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

cs_lanetmel · Answer

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?

merci encore
Mélanie

cs_lanetmel · Answer

merci beaucoup! C'est parfait!

Checkbox (for each controls) caption value concatener réponses

6 réponses

Votre réponse