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