Décocher plusieurs Checkboxes avec une Checkbox

Version imprimable

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:

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 !

11/10/2018, 09h34
halaster08
Bonjour,

Citation:

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:

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

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:

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

11/10/2018, 10h30
halaster08

Citation:

Envoyé par Arashian

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:

MsgBox OptionButton1.Caption

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

Code:

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:

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