couleur de cellules

[alex]

Bonjour,

J'ai un problème pour colorier des cellules:

If CheckBox1.Value = True Then
Range("c37").Value = CheckBox1.Caption
Range("e6,e7,e8,e31").Interior.ColorIndex = 6
masquage1 = False
Else
Range("c37").Value = ""
masquage1 = True
Range("e6,e7,e8,e31").Interior.ColorIndex = xlNone
End If

If CheckBox2.Value = True Then
Range("c44").Value = CheckBox2.Caption
masquage2 = False
Range("e7,e8,e9,e31").Interior.ColorIndex = 6
Else
Range("c44").Value = ""
masquage2 = True
Range("e7,e8,e9,e31").Interior.ColorIndex = xlNone
End If

If CheckBox3.Value = True Then
Range("c50").Value = CheckBox3.Caption
masquage3 = False
Range("e10,e11,e31").Interior.ColorIndex = 6
Else
Range("c50").Value = ""
masquage3 = True
Range("e10,e11,e31").Interior.ColorIndex = xlNone
End If

If CheckBox4.Value = True Then
Range("c56").Value = CheckBox4.Caption
masquage4 = False
Else
Range("c56").Value = ""
masquage4 = True
End If

If CheckBox5.Value = True Then
Range("c61").Value = CheckBox5.Caption
masquage5 = False
Else
Range("c61").Value = ""
masquage5 = True
End If

If CheckBox6.Value = True Then
Range("c68").Value = CheckBox6.Caption
masquage6 = False
Range("e12,e13,e14,e15,e16,e31").Interior.ColorIndex = 6
Else
Range("c68").Value = ""
masquage6 = True
Range("e12,e13,e14,e15,e16,e31").Interior.ColorIndex = xlNone
End If

If CheckBox7.Value = True Then
Range("c73").Value = CheckBox7.Caption
masquage7 = False
Range("e23,e24,e25,e26,e31").Interior.ColorIndex = 6
Else
Range("c73").Value = ""
masquage7 = True
Range("e23,e24,e25,e26,e31").Interior.ColorIndex = xlNone
End If

If CheckBox8.Value = True Then
Range("c81").Value = CheckBox8.Caption
masquage8 = False
Range("e19,e22,e31").Interior.ColorIndex = 6
Else
Range("c81").Value = ""
masquage8 = True
Range("e19,e22,e31").Interior.ColorIndex = xlNone
End If

If CheckBox9.Value = True Then
Range("c89").Value = CheckBox9.Caption
masquage9 = False
Range("e17,e18,e20,e21,e31").Interior.ColorIndex = 6
Else
Range("c89").Value = ""
masquage9 = True
Range("e17,e18,e20,e21,e31").Interior.ColorIndex = xlNone
End If

If CheckBox10.Value = True Then
Range("c93").Value = CheckBox10.Caption
masquage10 = False
Range("e27").Interior.ColorIndex = 6
Else
Range("c93").Value = ""
masquage10 = True
Range("e27").Interior.ColorIndex = xlNone
End If

If CheckBox11.Value = True Then
Range("c100").Value = CheckBox11.Caption
masquage11 = False
Range("e6,e28").Interior.ColorIndex = 6
Else
Range("c100").Value = ""
masquage11 = True
Range("e6,e28").Interior.ColorIndex = xlNone
End If

If CheckBox12.Value = True Then
Range("c104").Value = CheckBox12.Caption
masquage12 = False
Else
Range("c104").Value = ""
masquage12 = True
End If

If CheckBox13.Value = True Then
Range("c108").Value = CheckBox13.Caption
masquage13 = False
Else
Range("c108").Value = ""
masquage13 = True
End If



Quand je sélectionne seulement mes deux premières checkbox, je voudrais en jaune les cellules e6,e7,e8,e9,e31.
Or, j'obtiens en jaune les cellules e7, e8,e9 et pas e6 et e31.

Si quelqu'un a une idée...

Merci, A+

Alex

 

[jaccard]

Hello,

pendant le déroulement de ta macro,
si CheckBox1 et CheckBox2 sont les seules cochées :

la couleur de la cellule e6 est changée en jaune avec CheckBox1 cochée mais CheckBox11 étant pas cochée la cellule redevient sans couleur.

Idem pour e31, changée avec CheckBox1 et CheckBox2
mais invalidée par CheckBox3 6 7 8 et 9

dom ;-)

 

[xa]

Bonjour,

Je viens de crée un userform avec 2 checkbox et j'y ai intégré ton code
et cela fonctionne (Excel97)
Quand la checkbox1 est sélectionner "e6" en jaune
Qaund la checkbox2 est selectionner "e7,e8,e9,e31" en jaune

les 2 ensemble donne la plage de cellules e6,e7,e8,e9,e31.



salut


xa

 

[alex]

Rebonjour,

Merci beaucoup mais ça ne résout pas mon problème. Xa, je suis Ok avec toi mais tu n'as que 2 checkboxs. Or, comme le dit Jaccard, le fait de ne pas sélectionner les autres checkboxs invalident les deux premières...
Si quelqu'un a une autre idée, merci beaucoup.

A+,

Alex

 

[eric]

Alex

Il serait sympa quand quelqu'un te propose une soluce (voir ton post du début d'après midi), que tu lui dises si la réponse apportée te convient.

Celà t'éviterait d'une part de reposer les mêmes questions.

Et d'autre part, Si tu ne répond pas, tout le monde est persuadé que la soluce proposée te convient, et c'est pour cette raison que tu n'a pas eu d'autres propositions.

 

[alex]

Rebonjour,

Tout d'abord pardon de ne pas avoir répondu dans mon premier post, ça marche super bien. Cependant, si j'en ai ouvert un second, c'est que mon problème est différent. Je voulais au début colorier toutes les cellules qui n'avaient pas été coloriées en jaune en noir:ça marche super.
Mon autre problème est différent comme je l'explique dans ce post!
donc si vous avez une solution, merci beaucoup.

A+, Alex

 

[Mytå]

Bonsoir le forum

Alex regarde la piece jointe si cela pourrait te convenir

Mytå

 

[alex]

Bonjour,

merci myta, ça marche super

A+, Alex