Discussion :

[Arashian]

Bonjour à tous,

Je souhaite développer un petit programme Excel pour mon travail afin de faciliter la navigation sur le réseau informatique avec ses 170.000 dossiers (j'exagère à peine).
J'en suis presque à la fin et là je suis surtout sur l'optimisation du code : j'ai pas mal de Checkboxes dans mon Userform1, et je souhaiterais que lorsque j'en coche une, toutes les autres soient décochées.

Pour l'instant j'ai ça :

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
17
If CheckBox1.Value = True Then
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
CheckBox5.Value = False
CheckBox6.Value = False
CheckBox7.Value = False
CheckBox8.Value = False
CheckBox9.Value = False
CheckBox10.Value = False
CheckBox11.Value = False
CheckBox12.Value = False
CheckBox13.Value = False
CheckBox14.Value = False
CheckBox15.Value = False
CheckBox16.Value = False
End If

Sauf que, si ce n'était que pour une seule case ça aurait été.. mais c'est chaque checkbox qui doit décocher toutes les autres : la ChckB1 doit décocher celles de 2 à 16, la ChckB2 doit décocher celles de 1 à 16 (sauf elle-même), la 3 doit décocher celles de 1 à 16 (sauf elle-même), et ainsi de suite jusqu'à 16..

Auriez-vous une petite solution pour créer une boucle et éviter d'avoir autant de lignes ?
Merki d'avance !

[halaster08]

Bonjour,

j'ai pas mal de Checkboxes dans mon Userform1, et je souhaiterais que lorsque j'en coche une, toutes les autres soient décochées.

Dans ce cas il valait mieux utiliser des OptionButton qui ont de base cette propriété

edit: pour la boucle, il y a pas mal d'exemple dans ce tuto: https://silkyroad.developpez.com/VBA...UserForm/#LI-B

un autre exemple fait par moi, inspiré du tuto pour parcourir mes optionbutton

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
Dim Ctrl As Control
 
For Each Ctrl In UserForm1.Controls
     If TypeOf Ctrl Is MSForms.OptionButton Then Ctrl.Object.Value = True
Next Ctrl
End Sub

[Arashian]

Bonjour,

Merci pour la réponse, mais en fait j'avais déjà essayé avec des OptionButtons sauf que je n'avais pas réussi à faire ce que je souhaitais..

En fait en cochant une de mes checkbox, j'ai une Combobox qui affiche directement la liste des fichiers qui se trouvent dans un dossier (que l'on choisit avec les checkboxes justement).

Du coup le code donne

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
CheckBox5.Value = False
CheckBox6.Value = False
CheckBox7.Value = False
CheckBox8.Value = False
CheckBox9.Value = False
CheckBox10.Value = False
CheckBox11.Value = False
CheckBox12.Value = False
CheckBox13.Value = False
CheckBox14.Value = False
CheckBox15.Value = False
CheckBox16.Value = False
End If
 
 
Dim Chemin As String, Fichier As String
   Fichier = "14001453 AUTO\"
   Chemin = Dir(Sheets("Liens").Range("C6") & Fichier)
    Do While (Len(Chemin) > 0)
     Me.ComboBox2.AddItem Chemin
     Chemin = Dir()
    Loop
 
If CheckBox1.Value = False Then ComboBox2.Clear
End Sub

Je ne sais pas pourquoi mais la fin de ce code ne fonctionnait pas avec des OptionButtons...

EDIT: Ca ne fonctionnait pas car ça ne voulait pas clear la Combobox2, et derrière je n'arrivais pas à retrouver la valeur de l'OptionButton pour ouvrir le fichier sélectionné dans la ComboBox

[halaster08]

je n'arrivais pas à retrouver la valeur de l'OptionButton pour ouvrir le fichier sélectionné dans la ComboBox

La valeur d'un optionbutton c'est vrai/faux suivant qu'il soit coché ou non, si tu veux récupérer le texte affiché c'est caption qu'il faut utiliser:

Code :

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

 MsgBox OptionButton1.Caption

[Arashian]

Parfait, j'ai réussi à trouver comment vider ma combobox au final, au début j'avais

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub OptionButton1_Click()
 
Dim Chemin As String, Fichier As String
   Fichier = "14001453 AUTO\"
   Chemin = Dir(Sheets("Liens").Range("C6") & Fichier)
    Do While (Len(Chemin) > 0)
     Me.ComboBox2.AddItem Chemin
     Chemin = Dir()
    Loop
 
If OptionButton1.Value = False Then ComboBox2.Clear
 
End Sub

Sauf que ça ne fonctionnait pas, donc j'ai tenté :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub OptionButton1_Click()
    ComboBox2.Clear
 
Dim Chemin As String, Fichier As String
   Fichier = "14001453 AUTO\"
   Chemin = Dir(Sheets("Liens").Range("C6") & Fichier)
    Do While (Len(Chemin) > 0)
     Me.ComboBox2.AddItem Chemin
     Chemin = Dir()
    Loop
 
End Sub

Qui fonctionne, il fallait simplement passer le clear de la ComboBox au début et non à la fin

Merci pour les réponses et bonne journée