Discussion :

[accro-macro]

Bonsoir Bbil, bonsoir tous,
voila j'ai une petite question a te poser Bbil, a partir d'un userfurm j'ai plusieurs checkboxs et une listbox , je veux en fait afficher ds la listbox tout les captions des checkboxs que j'ai couché , je sais que ce n'est pas compliqué , mais je n'arrive pas a le faire je pensais que si je fait une boucle ds le userform ca devait marcher mais non! c'est pas le cas

merci de votre réponse

[ouskel'n'or]

Si, c'est possible en examinant le type ou le nom du contrôle que tu veux identifier. Si je ne me trompe pas, Silky a donné la solution récemment en passant par le type du contrôle. Malheureusement, je n'ai pas retrouvé la syntaxe.
Pour identifier les contrôles par leurs noms, une boucle

Code :

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

1
2
3
For each Contrôle in Userform1.controls
    LeNomDuContrôle = Contrôle.name
Next

Avant de connaître la syntaxe sur le type, j'utilisais un nom dont une partie était commune à tous les contrôles que je voulais traiter en même temps. Ensuite, dans la boucle, je faisais une recherche sur cette partie commune

Code :

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

if instr(lcase(Contrôle.name), PartieCommune) <> 0 then

Tu dis

[accro-macro]

Bonjour ouskel'n'or, bonjour Bbil, bonjour tous,
merci ouskel'n'or de ta reponse mais je n'ai pas trop compris ce que tu m'as proposé
pour le code

Code :

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

1
2
3
For each Contrôle in Userform1.controls
    LeNomDuContrôle = Contrôle.name
Next

je ne peux pas l'appliquer car je travaille sur une page ( mon Userform contient plusieurs pages, et j'en ai d'autre checkbox dans d'autre pages en fait dans ma page j'ai 10 CheckBox et une list box
voila le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub CheckBox1_Click()
Select Case CheckBox1.Value
        Case True: ListBox.AddItem CheckBox1.Caption
        Case False: ListBox.Clear                           
End Select
End Sub
.
.
.
Private Sub CheckBox10_Click()
Select Case CheckBox10.Value
        Case True: ListBox.AddItem CheckBox10.Caption
        Case False: ListBox.Clear                           
End Select
End Sub

le probleme maintenant qui se pose pour moi c'est que quand j'active un checkbox il s'ajoute bien dans la listbox mais quand je le desactive y'a tout les autres CheckboxX.caption qui s'efface de la listbox

coemment faire dans ce cas la ?

merci pour vos suggestions

[ced600]

Bonjour,
je n'ai pas lu le début de ce post, mais il me semble que si tu fait un ListBox.Clear, tout le contenu de la ListBox va s'effacer. Si tu ne souhaites effacer que certains elements de ta ListBox, il faut la parcourir jusqu'à ce que tu trouves l'élément à supprimer puis le supprimer.
Si tu as un AddItem tu devrais avoir un RemoveItem.

[accro-macro]

ça n'a pas marché
j'ai fait

Code :

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

1
2
3
4
5
6
 
 Select Case CheckBox1.Value
        Case True: ListBox.AddItem CheckBox1.Caption
        Case False: ListBox.RemoveItem CheckBox1.Caption
 
End Select

et j'ai comme message d'erreur:
argument non Valide!

[ced600]

Heu... est ce que tu as regardé une doc pour savoir comment s'utilise la méthode RemoveItem d'une ListBox ?
Tu doit lui passer en paramètre la position de l'item à supprimer.
CheckBox1.Caption -> est ce un nombre ? Je ne pense pas, pour moi un caption est une string, je peut me tromper, mais j'en doute.

[accro-macro]

mais je n'ai pas indexé ma liste a ce que je sache
(je sais , je sais je suis trop nulle pour comprendre ce que tu dis )
veux tu stp m'expliquer d'avange!
merci a toi

[ced600]

Je n'ai jamais utlisé de ListBox en VB, mais cela doit être comme toute liste. Lorsque Tu ajoutes un élément dans ta liste, cet élément aura un index. Un peu comme une liste de course où devant chaque article que tu acheteras un numero sera affecté. Tu demarre de 0 ou de 1 pour le premier article et tu incrémente de 1 en 1 pour les suivant que tu ajoute à ta liste. Un remove d'une liste ne fonctionne que si tu lui donne le numéro d'index de l'item à supprimer. Donc dans ton cas, tu doit parcourir ta liste du début (0 ou 1) à la fin (fin de la liste, peut être que la méthode count, renvoyant le nombre d'élément, est implémenté pour une ListBox). Et pendant ce parcours tu tests pour chaque élément s'il correspond à celui que tu recherches. Et lorsque tu l'as trouvé, tu notes le numéro d'index (un index que tu incrémentes à chaque tour de boucle te permet de connaitre le numero d'index) et une fois sortie de la boucle, tu peut faire ton RemoveItem.
C'est assez simple, non ? .
Si tu veux des meilleurs explications, il doit y avoir des docs sur la ListBox. D'ailleur tu devrais faire une recherche sur les ListBox, pour connaître toute les méthodes utilisable pour cette objet.

[accro-macro]

ok merci je vais regarder ça

[accro-macro]

Bonjour a tous,
voila pour faire un essai j'ai pris un Userform avec deux CheckBox et une listBox, j'ai appliqué ce code pour qu'a chaque fois que je coche un checkbox sa propriété caption viens s'ajouter a ma listbox et si je la decoche qu'il s'efface de la listbox

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub CheckBox1_Change()
If CheckBox1.Value = True Then
    ListBox1.AddItem CheckBox1.Caption, 0
    Else
  ListBox1.RemoveItem 0
End If
End Sub
 
Private Sub CheckBox2_Change()
If CheckBox2.Value = True Then
    ListBox1.AddItem CheckBox2.Caption, 1
    Else
  ListBox1.RemoveItem 1
End If
End Sub

ça a marché mais il faut absolument cocher le premier chekcbox pour commencer ! si je coche directement le deuxieme, il me genere un message d'erreur

Code :

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

1
2
3
 
Erreur d'execution '-2147024809(80070057)'
Argument non valide

pourriez vous me dire qu'est ce que je dois faire dans ce cas la ?
merci

[ThierryAIM]

Pas si simple ton histoire
tu n'as pas le droit d'ajouter un élément d'une liste avec l'index 1 si la liste est vide
Le plus simple, à mon sens est de régénérer ta liste à chaque click sur un Checkbox :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub RemplirList()
Dim Ctrl As Control
    ListBox1.Clear
    For Each Ctrl In Me.Controls
        If TypeOf Ctrl Is msforms.CheckBox Then _
           If Ctrl.Value Then ListBox1.AddItem Ctrl.Caption
    Next
End Sub
 
Private Sub CheckBox1_Click()
    RemplirList
End Sub
 
Private Sub CheckBox2_Click()
    RemplirList
End Sub

[ced600]

Lorsque tu fais un additem, tu lui spécifie l'index pour l'ajout. Donc si tu commence par la checkbox 2 , tu veux ajouter à l'index 1 or je pense que c'est impossible, il doit falloir absolument commencer par l'index 0.

[ced600]

Ok, par contre je ne sais pas si t réponse va lui convenir, parce que justement, au début il cherché à effacer une seule checkbox de la listbox sans supprimer les autres et il utilisais clear parce qu'il ne connaissais pas removeitem. Et ensuite son problème devenais dans l'utilisation de removeitem qui demande en parametre un numero d'index et il ne le savais pas et il ne svaias pas forcement comment le récuperer.

[accro-macro]

vous dites qu'il fallait absolument que je commence mon code par l'index 0 c'est ce que j'ai fait, d'ailleur je l'ai noté sur le code de mon message !

[ThierryAIM]

vous dites qu'il fallait absolument que je commence mon code par l'index 0 c'est ce que j'ai fait

Ah oui, surtout si tu commences par clicker la Checkbox n2

un petit effort de compréhension, stp

[accro-macro]

ce que je cherche a faire Cedric c'est que si je coche mon checkbox qu'il s'affiche sur ma listbox et si je le decoche qu'il s'efface c'est tout

[ThierryAIM]

ce que je cherche a faire Cedric c'est que si je coche mon checkbox qu'il s'affiche sur ma listbox et si je le decoche qu'il s'efface c'est tout

Et tu as essayé ce que je t'ai mis !!!!!!!!!


Non, mais c'est pas vrai

[ced600]

Ce que l'on te disais, c'est que le premier élément que tu ajoutes à listbox, tu doit l'ajouter avec l'index 0. Or si tu commences par cliquer sur la checkbox 2, tu l'ajoutes à l'index 1.

ThierryAim, dans ton code tu efface bien la listbox à chaque appel ? Dans ce cas, tu n'ajoute pas un élément à la listbox, tu en recrés une et tu y ajoute un element, est ce que je me trompe ?

[ThierryAIM]

ThierryAim, dans ton code tu efface bien la listbox à chaque appel ? Dans ce cas, tu n'ajoute pas un élément à la listbox, tu en recrés une et tu y ajoute un element, est ce que je me trompe ?

Oui
il n'a pas 250000 checkboxs a mettre dans sa liste alors qu'est-ce qui est le plus simple en code et le plus rapide, d'après toi ?
- faire une recherche dans la liste en comparant le caption (puisque tu ne sais pas dans quel ordre l'ajout s'est fait)
- ou détruire la liste et la reconstruire à chaque click

et explique moi la différence au final

[ced600]

Voila c'est que moi je suis partis de la :

le probleme maintenant qui se pose pour moi c'est que quand j'active un checkbox il s'ajoute bien dans la listbox mais quand je le desactive y'a tout les autres CheckboxX.caption qui s'efface de la listbox

je n'ai pas lu le debut de la discussion par ce que quand j'ai vu dans le code listbox.clear ca me paraissais normal que tout disparaisse et pas juste 1 checkbox. Donc je lui ai dit.
Et donc avec ta solution j'ai l'impression que l'on retombe sur son problème. Maintenant je pense que c accro-macro qui nous dira si ton code lui conviens ou non, et ceci en l'essayant.
Sinon ton code est très bien .