Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Case à cocher et couleur

Case à cocher et couleur

14 réponses
Avatar
Alain.fr
Bonjour,

Mes connaissances en Excel sont basiques et la programmation me laisse
pantois.
Mais je ne désespère pas d'apprendre.
Voici mon soucis : Je souhaiterais utiliser une case à cocher pour activer
ou non une couleur à une plage de cellules.
Mes essais se soldent tous par des échecs. Vu le niveau du forum je ne pense
pas que ce soit bien compliqué. Merci de m'éclairer.

J'en suis là :

Private Sub Caseàcocher8_QuandClic()
If (?là je crois qu'il manque quelque chose?) .Value = 1
Then
Range("J4:J15,H4:H15").Select
Range("H4").Activate
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid

Else
Range("H3:H15,J3:J15").Select
Range("J3").Activate
Selection.Interior.ColorIndex = xlNone

End If

End Sub
--
--Alain
Pour me répondre enlever le @no-spam de mon adresse
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Alain.fr
| "isabelle" a écrit dans le message de news:
| il faut redonner le focus à la feuille

Merci Isabelle,
Ca me plait bien cette solution, je testerais lundi car c'est au boulot que
j'ai le problème.
Promis je vous tiens au courant.
A+
--
--Alain
Pour me répondre enlever le @no-spam de mon adresse


"isabelle" a écrit dans le message de news:

| correction, il faut redonner le focus à la feuille,
|
| Private Sub CheckBox1_Click()
| Range("A1").Select
| If CheckBox1 Then
| Range("J4:J15,H4:H15").Interior.ColorIndex = 4
| Else
| Range("J4:J15,H4:H15").Interior.ColorIndex = xlNone
| End If
| End Sub
|
| isabelle
|
Avatar
Alain.fr
|| "isabelle" a écrit dans le message de news:
|| il faut redonner le focus à la feuille

Merci tout plein,
En fait je l'ai écrit comme ça, je voulais protéger la feuille aussi, la
macro le fait mais sans mot de passe tant pis, ça va bien quand même.

Private Sub CheckBox1_Click()
If CheckBox1 Then
Worksheets("Feuil1").Unprotect
Range("A1").Select
Range("J4:J15,H4:H15").Interior.ColorIndex = 4
Worksheets("Feuil1").Protect
Else
Worksheets("Feuil1").Unprotect
Range("A1").Select
Range("J4:J15,H4:H15").Interior.ColorIndex = xlNone
End If
Worksheets("Feuil1").Protect
End Sub

Merci à tous.

--Alain
Pour me répondre enlever le @no-spam de mon adresse
Avatar
isabelle
bonjour Alain,

pour ajouter le mot de passe,

Worksheets("Feuil1").Protect Password:="zaza"

isabelle


|| "isabelle" a écrit dans le message de news:
|| il faut redonner le focus à la feuille

Merci tout plein,
En fait je l'ai écrit comme ça, je voulais protéger la feuille aussi, la
macro le fait mais sans mot de passe tant pis, ça va bien quand même.

Private Sub CheckBox1_Click()
If CheckBox1 Then
Worksheets("Feuil1").Unprotect
Range("A1").Select
Range("J4:J15,H4:H15").Interior.ColorIndex = 4
Worksheets("Feuil1").Protect
Else
Worksheets("Feuil1").Unprotect
Range("A1").Select
Range("J4:J15,H4:H15").Interior.ColorIndex = xlNone
End If
Worksheets("Feuil1").Protect
End Sub

Merci à tous.

--Alain
Pour me répondre enlever le @no-spam de mon adresse




Avatar
Alain.fr
Merci mille fois,

Isabelle tu es magnifique :-))).

--
--Alain
Pour me répondre enlever le @no-spam de mon adresse
1 2