du basique if elseif endif

bonjour,
Nul en vba, j'ai besoin d'obtenir un résultat mais je ne parviens pas à illucider le bug qui m'empéche d'aboutir.

au regard du code ci-dessous, je souhaiterais ceci:

checkbox1 à true(checkbox2 false) alors, quand clic bouton, b1 en jaune

checkbox2 à true (checkbox1 false) alors, quand clic bouton, b2 en bleu

checkbox1 et checkbox2 à true alors, quand clic bouton, b1 en jaune et b2 en bleu

et uniquement si les 2 sont à false, alors
MsgBox "rien n'est coché"

le bug dans le code ci-dessous est que, quand les 2 sont cochés, je n'ai que b1 jaune qui s'active

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub CommandButton1_Click() If CheckBox1.Value = True Then Range("B1").Select With Selection.Interior .ColorIndex = 6 .Pattern = xlSolid End With   ElseIf CheckBox2.Value = True Then Range("B2").Select With Selection.Interior .ColorIndex = 8 .Pattern = xlSolid End With Else MsgBox "rien n'est coché" End If End Sub

---

Merci à ceux qui sauront éclairer ma lanterne.

Salut,

Essaie comme ca.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Option Explicit   Private Sub CommandButton1_Click() With Range("B1:B2").Interior .ColorIndex = xlNone .Pattern = xlSolid End With   If Not CheckBox1 And Not CheckBox2 Then MsgBox "rien n'est coché" Else If CheckBox1.Value = True Then Range("B1").Interior.ColorIndex = 6 End If   If CheckBox2.Value = True Then Range("B2").Interior.ColorIndex = 8 End If End If End Sub

---

Merci Minick ça marche nickel
peux-tu juste m'expliquer le début:

Code:

---

1 2 3 4

With Range("B1:B2").Interior .ColorIndex = xlNone .Pattern = xlSolid End With

---

merci encore;)

Re,

Plutot que d'enlever le fond si la condition n'est pas rempli, on enleve le fond
des le debut. Ca nous evite de faire un 'sinon' dans l'instruction If..Else...

Donc la on eleve le fond des cellules B1, B2 et ensuite on colorie si la condition est rempli

Merci pour tes explications Minick
sympa;)

à bientôt

Bonjour,
moi, je te propose pour le plaisir ce petit jeu :

Code:

---

1 2 3 4 5 6 7

verif = Val(CheckBox1.Value * -1 & CheckBox2.Value * -1) Select Case verif Case 0: MsgBox "rien de coché" Case 1: MsgBox "seule la checkbox2 est cochée" Case 10: MsgBox "seule la checkbox1 est cochée" Case 11: MsgBox "les 2 sont cochées" End Select

---

et te laisse le soin de remplacer par tes instructions de coloriage les msgbox ;)

Ok pas mal non plus et sans if, je me garde tout cela
encore merci à tous :zoubi: