simplifier un code

[vandewinkel]

Bonjour ts le monde,

Pourriez-vous svp me simplifier ce bout code, car quand j'essaye j'ai chaque fois des erreurs.
Le bur est si checkbox1 est activé les checkbox de 2 à 11 soient désactivés
et si l'un des checkbox box entre 2 et 11 est activé desactivé le 1
Merci

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
End If
End Sub

Sub checkbox2_click()
If CheckBox2.Value = True Then
CheckBox1.Value = False
End If
End Sub
Sub checkbox3_click()
If CheckBox3.Value = True Then
CheckBox1.Value = False
End If
End Sub
Sub checkbox4_click()
If CheckBox4.Value = True Then
CheckBox1.Value = False
End If
End Sub

etc... usqu'à 11

 

[Compte Supprimé 979]

Re : simplifier un code

Salut Vandewinkel,

Le but est si checkbox1 est activé les checkbox de 2 à 11 soient désactivés

Alors pouquoi utilisé des CheckBox 😕🙄

Avec les OptionButton tu n'as pas ce souci

A+

 

[vandewinkel]

Re : simplifier un code

Salut Vandewinkel,


Alors pouquoi utilisé des CheckBox 😕🙄

Avec les OptionButton tu n'as pas ce souci

A+

parceque
checkbox 1 = année
ch2 = jan
ch3 = fév ...;
on peut soit choisir plusieurs mois: jan, avr, aou, ...
ou alors prendre toute l'année

 

[pierrejean]

Re : simplifier un code

bonjour a tous

Une solution un zeste capillotractée et necessitant 11 cellules et un peu de code dans le module de la feuille

 

[vandewinkel]

Re : simplifier un code

Re
essaye :
Sub checkbox1_click()
If CheckBox1.Value = True Then
For I = 2 To 11 ' adapter le chiffre ici
Me.Controls("CheckBox" & I)= false
Next
end if
End Sub

Je te laisse traiter la suite sur la même logique en testant par boucle les chekboxs de 2 à 11 par
une boucle; si tu n'y arrives pas reviens nous voir

merci à tous, je vais essyer ca de ce pas

 

[job75]

Re : simplifier un code

Bonjour à tous,

pierrejean, je faisais une solution semblable à la tienne : affecter les cellules Feuil1!A1, Feuil1!A2 etc... à la propriété ControlSource des CheckBox.

Mais dans le code de la feuille, j'ai cette macro :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$A$1" And [A1] Then [A2:A11] = False
If Application.CountIf([A2:A11], True) Then [A1] = False
Application.EnableEvents = True
End Sub

A+

 

[vandewinkel]

Re : simplifier un code

Re
essaye :
Sub checkbox1_click()
If CheckBox1.Value = True Then
For I = 2 To 11 ' adapter le chiffre ici
Me.Controls("CheckBox" & I)= false
Next
end if
End Sub

Je te laisse traiter la suite sur la même logique en testant par boucle les chekboxs de 2 à 11 par
une boucle; si tu n'y arrives pas reviens nous voir

ca marche pas ?, erreur!!!

 

[pierrejean]

Re : simplifier un code

Re

@ job75 🙂

OK ton code est infiniment plus synthetique
Je suggere donc a notre ami vandewikel de l'adopter en lieu et place du mien

 

[vandewinkel]

Re : simplifier un code

Merci à tous de vos répnses