Cases à cocher

[popof]

Bonjour le forum et bonjour à tous

Problème du jour:

Sub Caseàcocher2_QuandClic()
Range('D14', 'D15').Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Range('a1').Select
End Sub

Donc ok pour mettre la couleur quand on clic mais quand on décoche je trouve pas comment faire pour remettre sans couleur dans les cases.

Nota : Prise de conscience personnelle: je suis nul 😛

Merci

 

[CelineG]

Bonjour !

essaye ça :

Sub Caseàcocher2_QuandClic()

Range('D14', 'D15').Select

if caseAcocher = true then
'met la couleur
else
'enleve la couleur
end if
Range('a1').Select
End Sub

bon courage !

 

[Hervé]

BOnjour le forum, popof, Céline

personnellement je te conseillerais d'utiliser plutot la boite à outils : boites à outils Controles au lieu de la boite : formulaire

en effet, celle ci contient les memes controles mais ce sont des activeX, et sont donc plus adaptés au macro.

ensuite le code, pour le checkbox de la boite à outils controles:

Sub CheckBox1_Click()
If CheckBox1 = True Then
    Range('D14', 'D15').Interior.ColorIndex = 6
Else
    Range('D14', 'D15').Interior.ColorIndex = -4142
End If

Range('a1').Select

End Sub

De plus, si je peut me permettre tu n'est pas obligé de sélectionner des cellules pour travailler avec.

salut

 

[popof]

re hervé, céline

Je me posais la question concernant les différences entre une chekbox et une ' case à cocher ', comme d'habitude Hervé réponse très clair de ta part, merci encore ( et toujours 😉 )

Céline merci aussi, ta proposition fonctionne elle aussi trés bien

😛

 

[popof]

Pour continuer je vais donc utiliser les checkbox, une fois ma première checkbox sélectionner puis je comme avec les cases à cocher, vérouiller les checkbox de mon choix ex checkbox 2

 

[popof]

Donc voilà ma solution at grâce à votre aide pour utiliser les checboxs suivant règles suivantes:

1 checkbox à la fois cocher
1 checkbox cocher = couleurs des cases


Sub CheckBox1_Click()
If CheckBox1 = True Then
CheckBox2 = False
Range('D14:G12').Interior.ColorIndex = 6
Else
Range('D14:G12').Interior.ColorIndex = -4142
End If
Range('a1').Select
End Sub


Private Sub CheckBox2_Click()
If CheckBox2 = True Then
CheckBox1 = False
Range('D14:G12').Interior.ColorIndex = 12
Else
Range('D14:G12').Interior.ColorIndex = -4142
End If
Range('a1').Select
End Sub

Pas forcement le plus simple mais efficace 😛

Merci à tous
:kiss:

 

[popof]

voici le fichier joint pour l'exemple

😉 [file name=Classeur2_20050606151032.zip size=10218]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20050606151032.zip[/file]