Macro Checkbox

Bonjour

Je viens vous demander de l'aide pour établir une macro qui puisse permettre de sélectionner 2 Checkbox issues de la boîte à outils contrôle afin de les cocher en même temps.

J'ai pensé à ce code mais il ne fait que sélectionner les 2 CheckBox :

Sub Macro1()

Worksheets("Feuille1").Shapes.Range(Array("CheckBox1", "CheckBox2")).Select
With Selection
.Value =  True
End With

End Sub

Je pense que cela doit venir d'une petite erreur, mais là je tourne en rond...

Salut goodjet,

Essayes comme dans le fichier joint,

A+,

OB

Merci pour ton aide, mais j'ai mal exprimé le problème.

Dans le fichier joint que tu as transmis, la checkbox1 est coché, puis la checkbox2. Je cherche un code qui permettrait de cocher les 2 simultanément.

En fait j'ai créé des procédures événementielles basées sur ces checkbox pour modifier le contenu de la feuille:

Private Sub CheckBox1_Change()
If (CheckBox1.Value = True) And (CheckBox2.Value = False) Then
    Worksheets("Demande sous-traitance").Range("B31").Value = "Transport Plaquette"
    Worksheets("Demande sous-traitance").Range("C31").Value = "ROT"
    Worksheets("Demande sous-traitance").Range("E31").Select
    Selection.ClearContents
End If

End Sub

Private Sub CheckBox2_Change()
If (CheckBox2.Value = True) And (CheckBox1.Value = False) Then
    Worksheets("Demande sous-traitance").Range("H18").Value = "VALOBOIS"
    Worksheets("Demande sous-traitance").Range("K22,K23,K24,K25").Select
    Selection.ClearContents
    Selection.Interior.ColorIndex = 40

End If

End Sub

Mais si ces deux conditions ne sont pas vraies, laisser la feuille tel quel.

Je ne suis pas sûre de te suivre...

Tu veux donner la valeur "true" à tes deux checkbox simultanément, mais si les deux chexkbox sont "true" tes evenement ne se produiront pas puisque il impliquent qu'au moins une des checkbox soit sur "false"...

A te lire

OB

Pourtant tu as compris le principe

J'aimerais que la feuille (demande sous-traitance) ne soit pas modifiée si les valeur des 2 checkbox sont égales (True ou False). Mais si les 2 checkbox sont différentes , alors la feuille est modifié en fonction des procédures évènementielles liées au checkbox. C'est comme un ET Exclusif.

J'espère que c'est clair

Oui, ça j'avais compris. Ce que je ne comprends pas c'est:

Si tu veux que les evênements se produisent lorsque la valeur des checkbox est différente, pourquoi veux tu leur donné la même valeur "true" comme indiqué dans ton 1er message.

Désolé si je ne comprends pas tout, je suis loins d'être un maitre excel, j'essaye juste de me rendre utile si possible vu tout l'aide que m'ont déjà apporté les utilisateurs de ce forum...

A te lire,

OB

Bonsoir à tous,

Pourquoi ne pas mettre un 3ème contrôle qui annihilerait les 2 premiers ?

Amicalement

Claude

Je vous remercie pour votre aide

J'ai résolu le problème en rajoutant une autre condition et en mettant le même code des procédures évènementielles pour les 2 checkbox.

C'est ici